Abfrage mit VBA ändern
Mike Berger
ich habe ein Formular "frm_BriefKorrekturAuswertung" dies hat ein
Unterformular "ufrm_BriefKorrekturAuswertung".
Dieses Unterformular wird gefüllt über die Abfrage "qryBriefeAuswertung".
Wie kann ich jetzt diese Abfrage mit VBA ändern?
Und danach sollen die "ausgewerteten" Datensätze nur noch im
Unterformular angezeigt werden.
Vielen Dank.
Mike
Gunter Avenius
Mike Berger schrieb folgendes:
Definiere "ändern"
Querydefs("DeineAbfrage").SQL= "SELECT ...."
wenn Du nur Kriterien ändern willst, kannst Du als Kriterium in Deiner
Abfrage einen Formularbezug einbauen.
Als Kriterium in Deine Abrage:
=Forms("DeinFormular")!DeinFeld
und ein Requery auf das Ufo machen
Me!DeinUfoSteuerelementName.Form.Requery
Gruß
Gunter
--
__________________________________________________________
Access FAQ: http://www.donkarl.com
home: http://www.avenius.com - http://www.AccessRibbon.de
http://www.ribboncreator.de
Mike Berger
ich habe nun folgendes als Code:
Private Sub Umschaltfläche2_Click()
QueryDefs("qryBriefeAuswertung").SQL = "SELECT * " & _
"FROM tbl_BriefeAuswertung " & _
"WHERE tbl_BriefeAuswertung.Mitarbeiter = '" & cboMitarbeiter.Value
& "'" & _
"ORDER BY tbl_BriefAuswertung.Mitarbeiter;"
End Sub
nun kommt aber eine Fehlermeldung: Sub oder Function nicht definiert.
Was habe ich denn vergessen?
Mike
Gunter Avenius schrieb:
Peter Doering
Mike Berger wrote:
> ich habe nun folgendes als Code:
>
> Private Sub Umschaltfläche2_Click()
>
> QueryDefs("qryBriefeAuswertung").SQL = "SELECT * " & _
> "FROM tbl_BriefeAuswertung " & _
> "WHERE tbl_BriefeAuswertung.Mitarbeiter = '" & cboMitarbeiter.Value
> & "'" & _
> "ORDER BY tbl_BriefAuswertung.Mitarbeiter;"
Das Objekt fehlt:
CurrentDb.QueryDefs("...
Gruss - Peter
--
Mitglied im http://www.dbdev.org
FAQ: http://www.donkarl.com
Gunter Avenius
Mike Berger schrieb folgendes:
> ich habe nun folgendes als Code:
>
> Private Sub Umschaltfläche2_Click()
>
> QueryDefs("qryBriefeAuswertung").SQL = "SELECT * " & _
> "FROM tbl_BriefeAuswertung " & _
> "WHERE tbl_BriefeAuswertung.Mitarbeiter = '" & cboMitarbeiter.Value
> & "'" & _
> "ORDER BY tbl_BriefAuswertung.Mitarbeiter;"
>
> End Sub
>
> nun kommt aber eine Fehlermeldung: Sub oder Function nicht definiert.
CurrentDb.QueryDefs("DeineAbfrage").SQL="Select..."
Aber reicht nicht als Kriterium für das Feld "Mitarbeiter" in Deiner
Abfrage:
=Forms("DeinFormular")!cboMitarbeiter
Mike Berger
ich habe es mit dem Kriterien versucht, aber da kommt ebenfalls ein Fehler:
Der von Ihnen eingegebene Ausdruck enthält einen unzulässigen. (Punkt)-
oder !-Operator oder ein unzulässiges Klammernpaar ().
=Forms("frm_BriefKorrekturAuswertung")!cboMitarbeiter
so steht das drinn.
Mike
Gunter Avenius schrieb:
Mike Berger
vielen Dank, das hat funktioniert.
Jedoch muss ich das Formular erst schließen und dann wieder öffnen,
damit es angezeigt wird, obwohl ich
Me!ufrm_BriefKorrekturAuswertung.Form.Refresh
dies mit eingesetzt habe.
Mike
Peter Doering schrieb:
Peter Doering
Mike Berger wrote:
> Peter Doering schrieb:
>> Mike Berger wrote:
>>
>>> ich habe nun folgendes als Code:
>>>
>>> Private Sub Umschaltfläche2_Click()
>>>
>>> QueryDefs("qryBriefeAuswertung").SQL = "SELECT * " & _
>>> "FROM tbl_BriefeAuswertung " & _
>>> "WHERE tbl_BriefeAuswertung.Mitarbeiter = '" & cboMitarbeiter.Value
>>> & "'" & _
>>> "ORDER BY tbl_BriefAuswertung.Mitarbeiter;"
>>
>> Das Objekt fehlt:
>>
>> CurrentDb.QueryDefs("...
>
> Jedoch muss ich das Formular erst schließen und dann wieder öffnen,
> damit es angezeigt wird, obwohl ich
>
> Me!ufrm_BriefKorrekturAuswertung.Form.Refresh
>
> dies mit eingesetzt habe.
Me!ufrm_BriefKorrekturAuswertung.Form.Requery
Thomas Möller
Mike Berger schrieb:
> Jedoch muss ich das Formular erst schließen und dann wieder öffnen,
> damit es angezeigt wird, obwohl ich
>
> Me!ufrm_BriefKorrekturAuswertung.Form.Refresh
>
> dies mit eingesetzt habe.
probier mal ein >>Requery<< statt dem >>Refresh<<.
HTH
--
Thomas
Homepage: www.Team-Moeller.de
Thomas Möller
Mike Berger schrieb:
> ich habe es mit dem Kriterien versucht, aber da kommt ebenfalls ein Fehler:
>
> Der von Ihnen eingegebene Ausdruck enthält einen unzulässigen. (Punkt)-
> oder !-Operator oder ein unzulässiges Klammernpaar ().
>
> =Forms("frm_BriefKorrekturAuswertung")!cboMitarbeiter
>
> so steht das drinn.
probier's mal so:
=Forms!frm_BriefKorrekturAuswertung!cboMitarbeiter
Mike Berger
danke, das hat funktioniert.
Mike
Thomas Möller schrieb:
Mike Berger
Me!ufrm_BriefKorrekturAuswertung.Form.Requery
das hatte ich auch schon probiert, aber alles ging nicht.
Ich habe jetzt in die Abfrage den Bezug auf das Formular gemacht und
dann nochmals dies eingetragen.
Hier funktioniert es wunderbar, aber mit dem SQL ging es nicht.
Mike
Peter Doering schrieb: