abfrage in access

Question

Hallo,
ich möchte über eine button ein Formular aufrufen aber das Ergebnis einschränken, bei einer Auswahl klappt das auch, ich möchte aber eine weitere Einschränkung hinzufügen. Wenn ich nun eine 2te Anfrage anhänge vergisst Access die 1ste Abfrage, was mache ich falsch?
Vielen Dank im voraus
Gunter


Private Sub Werknummer_pro_Jahr_Click()
DoCmd.Close
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frm_gesamt_Ausgaben_Einnahmen"

stLinkCriteria = InputBox("Bitte Werknummer eingeben:", "Servicevertrag")
stLinkCriteria = "qrygesamt_Ausgaben_Einnahmen.Werknummer LIKE '*" & stLinkCriteria & "*'"

stLinkCriteria = InputBox("Bitte Jahr eingeben:", "Servicevertrag")
stLinkCriteria = "qrygesamt_Ausgaben_Einnahmen.Jahr LIKE '*" & stLinkCriteria & "*'"



DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Abfrage_Werknummer_Click:
Exit Sub
End Sub

Answer 1

stLinkCriteria1 = InputBox("Bitte Werknummer eingeben:", "Servicevertrag")
stLinkCriteria2 = InputBox("Bitte Jahr eingeben:", "Servicevertrag")

stLinkCriteria = "qrygesamt_Ausgaben_Einnahmen.Werknummer LIKE '*" & stLinkCriteria1 & "*'" & _
" AND qrygesamt_Ausgaben_Einnahmen.Jahr LIKE '*" & stLinkCriteria2 & "*'"

versuchs mal so ähnlich

Gruß Marie

Answer 2

Hallo,
vielen Dank, hat super funktioniert.
Gruß
Gunter