Access 2010 VBA：如果没有记录与筛选条件匹配，则显示“未找到记录”。

Question

当没有符合输入条件的记录时，我希望查询返回文本，例如“未找到符合条件的记录。”

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

- music2myear

---

发布一些代码会很好。 - Jacob

在客户端测试返回的记录数，并在该点替换您的消息。不要让SQL负责UI功能。 - Joe Stefanelli

@Joe，是因为SQL的效率不高还是因为这是“最佳实践”？ - music2myear

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中构建的查询，则可以采用类似的方法，使用存储的查询定义而不是SQL字符串打开记录集。

- chip