Erstell' dir ein Formular mit einem Feld 'txtKriterium' für das Kriterium nach dem gefiltert werden soll und einem Button 'cmdFilterApply' der das Filtern startet. Dann =>
' im Formular für die Kriterieneingabe (z.B. 'frmSuchformular')
Private Sub cmdFilterApply_Click()
Access.Forms.item("frmDatenanzeige").FilterOn = False
Access.Forms.item("frmDatenanzeige").Filter = "Datenfeld = " & Me.txtKriterium
Access.Forms.item("frmDatenanzeige").FilterOn = True
DoCmd.Close acForm, "frmSuchformular", acSaveNo
End Sub
' im Formular für die Datenanzeige (z.B. 'frmDatenanzeige')
Private Sub cmdFilterCompose_Click()
DoCmd.OpenForm "frmSuchformular"
End Sub
Das sollte eigentlich dein Problem lösen.
|