「yes」なら実行させて「no」なら実行させない仕組みをAccessのマクロで作れますか？

解決済

質問者：greentea69
質問日時：2007/04/30 14:04
回答数：3件

以前にも似たようなご質問をしましたが、回答して頂いた内容が私では解らなかったので再度させて頂きます。
“クエリ”を実行させる前に『「本当に実行しますか？」とメッセージを表示させて、「yes」なら実行させて「no」なら実行させない』という仕組みを「マクロ」で作れないのでしょうか？

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

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

上記の知識しかありません。どなたか柔らかくご説明して頂けないでしょうか？よろしくお願い致します。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： venzou
回答日時：2007/04/30 14:41

自分はマクロをほとんど使わないので、VBA風になりますが・・・

条件付のマクロにする（[表示]→[条件]）

１行目
条件：MsgBox("本当に実行しますか？",4)<>6
アクション：全マクロの中止

２行目以降 Yes の場合の処理

こんな感じで出来ると思います。

4 とか 6 とかは、VBAの定数です。
VBA内では vbYes 等の名前で参照しますが、マクロ中では使えないと思いますので、直接数字を書きます。

幾つか定数を書いておきます。
（VBAのヘルプの MsgBoxを調べれば詳しく書いてます。）

1 vbOKCancel　[OK] ボタンと [キャンセル] ボタンを表示します。
4 vbYesNo　　 [はい] ボタンと [いいえ] ボタンを表示します。

アイコンを表示するなら、上記の数字＋下記の数字

16 vbCritical 　　警告メッセージアイコンを表示します。
32 vbQuestion 　　問い合わせメッセージアイコンを表示します。
48 vbExclamation　注意メッセージアイコンを表示します。
64 vbInformation　情報メッセージアイコンを表示します。

例：注意アイコン付き　Yes/No　：4 + 48 = 52
　　MsgBox(""本当に実行しますか？",52)<>6　となります。

戻り値の定数

1 vbOK
2 vbCancel
6 vbYes
7 vbNo

6 は Yes です。
<>6 でYesでなければ、中止・・・となります。

- 1
- 件

通報する

この回答へのお礼

やってみたらできました！ホント身震いするくらい感動です！！ありがとーございました

通報する

お礼日時：2007/05/01 09:55

No.3

回答者： DexMachina
回答日時：2007/05/01 01:33

すみません、venzouさんの回答の通りなのですが・・・greentea69さんに

本当にお伝えしなければならない部分への触れ方があまりにもあっさりしていて
見過ごされてしまいそうな気がしたので、お節介ながら補足させて戴きます。

> 条件付のマクロにする（[表示]→[条件]）
というのは、マクロをデザインビューで開いたときのメニューから、「表示(V)」の
「条件(C)」をクリックして、「条件」欄を表示させる、ということです。

「アクション」欄の「メッセージボックス」というのは、メッセージを表示させるため
だけのもので、今回のご質問のように場合分けをする際には、MsgBox関数を
「条件」欄で使用する必要があります。
(なお、「『はい』ならマクロAを、『いいえ』ならマクロBを、それぞれ実行」といった
　ような動作をさせる場合は、フォーム上にテキストボックス(「可視」を「いいえ」
　に設定)を作成し、「値の代入」アクションで「式」にMsgBox関数を、「アイテム」
　にそのテキストボックスをそれぞれ指定して、「条件」欄には
　「Forms!フォーム名!テキストボックス名=6」といった式を入れるようにします。
　・・・これは、今後の参考までに)