訪問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打開記錄查詢串。