vba - 处理 docmd.applyfilter 的无结果

Question

我有一个使用搜索功能的 Access 应用程序。我在窗体上有一个文本框和一个搜索按钮，它对用户在文本框中输入的任何内容进行通配符搜索，并在其他控件(文本和组合框)中显示记录。

为此，我使用了 DoCmd.ApplyFilter 方法，我想知道是否有一种方法可以处理“无结果”的情况？它目前所做的是将所有显示控件显示为空，并且 ID 字段显示(自动编号)，就好像我正在添加一条新记录一样。

如果无法使用 DoCmd.ApplyFilter 处理无结果，那么是否有另一种方法来搜索记录并处理“无结果”的情况？

Answer 1

可以查看recordsetclone，看是否有记录，没有则去掉filter。

DoCmd.ApplyFilter , "id=5"
If Me.RecordsetClone.RecordCount = 0 Then
    MsgBox "No records"
End If