アクセスVBAでVBYESNOボタンについて

質問

ど素人ですいません。
アクセスでVBAを書いています。
クエリーを走らせる前に確認のメッセージを表示させます。「Vbyesno」ボタンでYesなら処理開始、Noなら元のフォームに戻りたいのですが、どうしたらいいのでしょうか？

回答No.2

happypoint · ベストアンサー

ikeidoさん、こんにちは。

こんな感じです。
クエリー処理は、自分で書いたものを埋め込んでね。

Option Explicit

Sub test()
Dim intReturn As Integer

intReturn = MsgBox("実行しますか？", vbQuestion + vbYesNo)
If intReturn = vbNo Then Exit Sub 'Noのときは抜ける

'↓ここ以降にクエリ処理を書く
'(例)Call クエリ処理

End Sub

お礼

ありがとうございました。
ホント、助かりました。

初めての質問で答えがこんなに早くかえってくるなんて
感激です。

これからもよろしくお願いします。

ikeido

回答No.1

maruru01

こんにちは。maruru01です。

こんな感じでしょうか。

Dim ret As Long

ret = MsgBox("クエリーを実行しますか？", vbYesNo + vbQuestion)
If ret = vbYes Then
　　（クエリーを実行）
Else
　　（元のフォームへ戻る）
End If

お礼

ありがとうございました。
ホント、助かりました。

初めての質問で答えがこんなに早くかえってくるなんて
感激です。

これからもよろしくお願いします。

ikeido