Filterfehler abfangen
Dreho52
Gesendet: 19.02.19 12:13
Betreff: Filterfehler abfangen


Member

Beiträge: 14

Hallo
ich setze in einem Formular einen Filter.
Funktioniert bestens.
Wenn aber kein Datensatz mit dem Filter übereinstimmt,
funktioniert meine Fehlermeldung nicht.
Hier ein Ausschnitt aus dem VBA im Formular.
Jetzt schon Danke vielmals an die guten Seelen dieses Forums.
Markus

' wird nach Aktualisierung des Feldes txtSuch ausgeführt!
' (nach Eingabe der Taste
'
Me.Filter = "[HilfsFilter] like '*" & Me!txtSuch & "*'"
Me.FilterOn = True
On Error GoTo nicht_gefunden
Exit Sub
nicht_gefunden:
MsgBox "mit diesem Filter wurde kein Datensatz gefunden"
Me.FilterOn = False
DoCmd.Close
DoCmd.OpenForm "frm_Buchungen_Fertig_stellen", acNormal, "", "", , acDialog
Top of the page Bottom of the page