Suchfunktion aufrufen: "No Match" anzeigen, wenn keine Datensätze gefunden wurden

Question

Ich habe in meinem Access-Formular eine Suchfunktion implementiert. Ein Benutzer kann suchen, um festzustellen, ob ein Eintrag vorhanden ist. Ich möchte es so machen, dass es eine Anzeige "Keine Übereinstimmung gefunden" gibt, wenn der Benutzer sucht und keinen existierenden Eintrag.

Unten ist mein VBA-Code so weit:

Private Sub Command49_Click() 
Dim strsearch As String 
Dim strtext As String 
strtext = Me.txtSearch.Value 
strsearch = "SELECT * from ID_Theft_Log where (ID like strtext)" 
Me.RecordSource = strsearch 
End Sub 

Was muss ich meinen Code hinzuzufügen, dass der Text angezeigt werden?

Answer 1

IF strsearch.value = VbNullString Then 
    MsgBox "Not Found" 
End if