Access 2010 VBA : 필터와 일치하는 레코드가 없으면 "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을 사용하여 레코드 집합을 열 수 내장 쿼리를 사용하는 경우 끈.