不处理docmd.applyfilter的结果

时间:2009-11-13 16:24:47

标签: vba ms-access search filter

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

为实现这一目标,我使用的是DoCmd.ApplyFilter方法,我想知道是否有办法可以处理'无结果'的情况?它当前所做的是将所有显示控件显示为空,ID字段显示(自动编号),就好像我正在添加新记录一样。

如果无法使用DoCmd.ApplyFilter处理任何结果,那么是否有其他方法可以搜索记录并处理“无结果”方案?

1 个答案:

答案 0 :(得分:5)

您可以检查recordsetclone以查看是否有任何记录,如果没有则删除过滤器。

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