Accessのマクロで「yes、no」の選択ができますか？

質問

マクロを実行する前に「本当に実行しますか？」とメッセージを表示させて、「yes」なら実行させて「no」ならマクロを中止させるような場合はどのようにすればよいでしょうか？
メッセージboxなどを使用するんだろうなとは思いますが具体的にどうすればよいか解りませんので教えて下さい。

回答No.3

fly_moon

ご推測のとおりMsgBox関数を使い、戻り値で判断して分岐します。
「はい」はvbYesという定数を返し「いいえ」はvbNoという定数を返してきます。
これは、
Const vbYes As Integer = 6
Const vbNo As Integer = 7
とあらかじめ宣言してある定数を使用しているのと同じですから、戻り値はInteger型で受け取ります。他の値を知りたければ、Ｆ２でオブジェクトブラウザを表示して検索してみて下さい。

補足

ご返事が遅くなって申し訳ありません。
正しいご回答とは思いますが、私の質問説明がおかしかったので再度、下記のご質問をさせて頂きます。

例えば、“クエリ”を実行させる前に『「本当に実行しますか？」とメッセージを表示させて、「yes」なら実行させて「no」なら実行させない』という仕組みを「マクロ」で作れないのでしょうか？

ということです。「Const vbYes As Integer = 6」なんて出てきてあせりました（＾＾；）まったく意味が解りませんので…すみません。

回答No.2

Dxak

マクロですよね？モジュールじゃなくて・・・

条件を表示させて
「MsgBox("本当に実行しますか？",4)=7」
を条件として
「アクション」を
「マクロの中止」
とします
「はい」をクリックした際は、この条件の下の内容を実行させます

補足

ご返事が遅くなって申し訳ありません。
正しいご回答とは思いますが、私の質問説明がおかしかったので再度、下記のご質問をさせて頂きます。

例えば、“クエリ”を実行させる前に『「本当に実行しますか？」とメッセージを表示させて、「yes」なら実行させて「no」なら実行させない』という仕組みを「マクロ」で作れないのでしょうか？

ということです。

マクロの
１行目
「アクション」のとこで「メッセージボックス」を選択し、アクションの引数「メッセージ」の箇所に「本当に実行しますか？」と入力。
２行目
「アクション」のとこで「クエリを開く」を選択し、アクションの引数「クエリ名」の箇所に「●●クエリ（任意のクエリ）」と入力。
そして一旦保存します。

そのマクロを実行させても「本当に実行しますか？」のメッセージが出て、「ＯＫ」のボタンしか表示されないんです。
（当たり前なのかもしれませんが…）
そしてその「ＯＫ」をＥＳＣキーで回避しても実行されてしまいます。
（当たり前なのかもしれませんが…）

上記の知識しかないので、もう少し柔らかくご説明して頂けないでしょうか？よろしくお願い致します。

回答No.1

hana-hana3

If MsgBox("本当に実行しますか？", vbQuestion + vbYesNo) = vbNo Then Exit Sub