sql - Access 2010 VBA : If no records match filter, 显示 "No records found"

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 字符串打开记录集。