Hallo, ich habe in meinem Formular ein Suchfeld mit folgendem Code:Private Sub txtSuche_AfterUpdate()
Dim strFilter As String
If Not IsNull(Me!txtSuche) Then
strFilter = "Aktenbetreff LIKE '*" & Me!txtSuche & "*' OR Vorgangsbetreff LIKE '*" & Me!txtSuche & "*' OR Geschaeftszeichen LIKE '*" & Me!txtSuche & "*' OR BearbeitungDurch LIKE '*" & Me!txtSuche & "*' OR Bearbeiter LIKE '*" & Me!txtSuche & "*'"
Me.Filter = strFilter
Me.FilterOn = True
End If
End Sub
Wenn die Suche kein Ergenis liefert, zeigt der Bildschirm eine leere Seite. Ich hätte nun gern, dass da die Information gegeben wird, dass kein Treffer vorliegt.
Könnt ihr mir da weiterhelfen. Danke im voraus :)
...
Me.FilterOn = True 'Filter anwenden
If Me.Recordset.RecordCount = 0 Then
MsgBox "Keine Daten!"
End If
End If
Vielen Dank! :)