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