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 

あなたが似た何かをして、代わりにSQLの保存されたクエリ定義を使用してレコードセットを開くことができQBEに建設されたクエリを使用している場合文字列。