Access クエリの結果が0件だった場合、エラーを表示させる方法

選択クエリやパラメータクエリを実行し、その結果が0レコードだった場合、エラーを表示させ、クエリの実行を中止させる方法はありますか？
VBAで作成可能な場合、どのような構文を書いたらよいのか、教えていただけると助かります！！

No.1 ベストアンサー 回答者： noname#102878 回答日時： 2003/07/24 10:47

「エラーを表示させる」の意味がわかりませけど、

Sub hoge()
　Dim objCon As ADODB.Connection
　Dim objRs As ADODB.Recordset

　Set objCon = CurrentProject.Connection
　Set objRs = New ADODB.Recordset
　objRs.Open "クエリー名", objCon
　If (objRs.BOF = True) And (objRs.EOF = True) Then
　　' レコードなし
　Else
　　' レコードあり
　End If

　objRs.Close
　Set objRs = Nothing
　objCon.Close
　Set objCon = Nothing
End Sub

この回答へのお礼

ありがとうございます！
ためしにやってみます！

お礼日時：2003/07/24 13:16