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

質問

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

回答No.1

noname#102878 · ベストアンサー

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

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

お礼

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