訪問搜索功能：如果沒有找到記錄，則顯示「No Match」

Question

我在我的Access窗體中實現了搜索功能。用戶可以搜索以查看是否存在現有條目。我想這樣做，以便如果用戶搜索並且沒有現有條目，將會顯示「找不到匹配」。

下面是我的VBA代碼至今：

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 

什麼我需要添加到我的代碼來顯示文本？

Answer 1

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