Access 2010 VBA：如果没有匹配过滤器的记录，则显示“未找到记录”

Question

我想要一个查询来返回文本，例如“找不到符合条件的记录”。或者没有符合输入标准的记录。

我正在使用Access 2010，可以使用VBA或SQL。我想象查询（SQL）是最容易应用的地方。

Answer 1

我的第一个想法是做这样的事情::

sql = "SELECT * FROM table WHERE SomeID = 123" 
Set rst = CurrentDb.OpenRecordset(sql)
If rst.recordcount = 0 Then
    Debug.print "Nothing to see, move along"
Else
    ' Do something useful
End If

如果您正在使用QBE内置的查询，您可以执行类似操作并使用存储的querydef而不是sql字符串打开记录集。