色彩検定1級を取得する魅力を紹介♪

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

gooドクター

A 回答 (1件)

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



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
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング