如果表單在過濾後不顯示任何結果，則顯示一條消息

下面是我的VBA當前的樣子。 searchCrit是組合框與像名字，姓氏等，searchTxt各種搜索條件是輸入的值：如果表單在過濾後不顯示任何結果，則顯示一條消息

If searchCrit = "First Name" Then 
    Me.Search_Results.Form.Filter = "[FirstName] LIKE '%" & searchTxt & "%' 
    Me.Search_Results.Form.FilterOn = True 

    If Me.Search_Results.Form.RecordCount < 1 Then 
     MsgBox ("No Results Found") 
    End If 
Else If .......

我就行收到一個錯誤：

If Me.Search_Results.Form.RecordCount < 1 Then

是總記錄這不是一個可行的方法嗎？有沒有其他的方法來檢測表單是否沒有返回結果？

來源

2017-03-08 Steven

嘗試：

If Me!Search_Results.Form.RecordsetClone.RecordCount = 0 Then 
    MsgBox ("No Results Found") 
End If

來源

2017-03-08 16:49:15 Gustav

「應用程序定義或對象定義錯誤」不幸的是，我得到了這些。 – Steven

將記錄集存儲在查詢中會更簡單嗎？運行它並檢查recordcount> 0而不是嘗試引用表單 – Steven

那麼請嘗試使用子表單。請參閱編輯。 – Gustav

如果表單在過濾後不顯示任何結果，則顯示一條消息

回答

相關問題