以前にも似たようなご質問をしましたが、回答して頂いた内容が私では解らなかったので再度させて頂きます。
“クエリ”を実行させる前に『「本当に実行しますか?」とメッセージを表示させて、「yes」なら実行させて「no」なら実行させない』という仕組みを「マクロ」で作れないのでしょうか?
私が作成した方法は
マクロの
1行目
「アクション」のとこで「メッセージボックス」を選択し、アクションの引数「メッセージ」の箇所に「本当に実行しますか?」と入力。
2行目
「アクション」のとこで「クエリを開く」を選択し、アクションの引数「クエリ名」の箇所に「●●クエリ(任意のクエリ)」と入力。
そして保存します。
そのマクロを実行させても「本当に実行しますか?」のメッセージが出て、「OK」のボタンしか表示されないんです。
(当たり前なのかもしれませんが…)
そしてその「OK」をESCキーで回避してもクエリが実行されてしまいます。
(当たり前なのかもしれませんが…)
上記の知識しかありません。どなたか柔らかくご説明して頂けないでしょうか?よろしくお願い致します。
No.2ベストアンサー
- 回答日時:
自分はマクロをほとんど使わないので、VBA風になりますが・・・
条件付のマクロにする([表示]→[条件])
1行目
条件:MsgBox("本当に実行しますか?",4)<>6
アクション:全マクロの中止
2行目以降 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でなければ、中止・・・となります。
No.3
- 回答日時:
すみません、venzouさんの回答の通りなのですが・・・greentea69さんに
本当にお伝えしなければならない部分への触れ方があまりにもあっさりしていて
見過ごされてしまいそうな気がしたので、お節介ながら補足させて戴きます。
> 条件付のマクロにする([表示]→[条件])
というのは、マクロをデザインビューで開いたときのメニューから、「表示(V)」の
「条件(C)」をクリックして、「条件」欄を表示させる、ということです。
「アクション」欄の「メッセージボックス」というのは、メッセージを表示させるため
だけのもので、今回のご質問のように場合分けをする際には、MsgBox関数を
「条件」欄で使用する必要があります。
(なお、「『はい』ならマクロAを、『いいえ』ならマクロBを、それぞれ実行」といった
ような動作をさせる場合は、フォーム上にテキストボックス(「可視」を「いいえ」
に設定)を作成し、「値の代入」アクションで「式」にMsgBox関数を、「アイテム」
にそのテキストボックスをそれぞれ指定して、「条件」欄には
「Forms!フォーム名!テキストボックス名=6」といった式を入れるようにします。
・・・これは、今後の参考までに)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
高校生はアルバイトするべきだろうか?賛成だったら「賛」、否定だったら「否」を文頭においてあなたの意見を教えてください。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
Accessのマクロで「yes、no」の選択ができますか?
Word(ワード)
-
エクセルでマクロボタンを押す前に、実行するかどうか再確認させたいのですが・・・。
Excel(エクセル)
-
VBAでシートコピー後、シート名が重複している時の処理
Access(アクセス)
-
-
4
accessでイベントを中止するようなコマンドはあるのでしょうか?
その他(データベース)
-
5
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
Enterキーでマクロを起動さす。
その他(ソフトウェア)
-
8
ACCESSでデータ読み取り専用を解除する方法
その他(データベース)
-
9
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
10
テキストボックス(VBA)でEnterを押したときに作動するマクロ
Access(アクセス)
-
11
access 登録したデータを修正するフォーム
Access(アクセス)
-
12
マクロを実行する前に確認メッセージを出したい。
Excel(エクセル)
-
13
Accessで文字列の長さによって、フィールドの幅を自動で合わせる方法
Excel(エクセル)
-
14
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
15
access テーブル内のレコードの編集を不可に。
その他(データベース)
-
16
Accessのコンボボックスでリストが選択できない
Word(ワード)
-
17
クエリで出来た表にチェックボックスを追加する
その他(Microsoft Office)
-
18
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
19
エクセルvbaで転記したのですが、数字のゼロが消えてしまいます。 ゼロも転記するためにはどうしたらい
Excel(エクセル)
-
20
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
マクロ 実行ボタンを押さずに...
-
EXCELのセルへ、デジタル時計を...
-
Excelを開いた時に表示さ...
-
Excel VBA のdebug(F8キー) が...
-
マクロ ブックをマクロなしでコ...
-
エクセルのマクロ機能で前のシ...
-
エクセルで複数のシートをまと...
-
エラーになってないのにVBA...
-
エクセル グラフの軸の最小値最...
-
ワードからエクセルへ貼り付け...
-
ワードで画像を自動で挿入する方法
-
Wordで「原稿用紙○枚」を換算す...
-
秀丸エディタに検索履歴を記憶...
-
EXCEL2000 VBA マクロ実行中に...
-
モジュール内のマクロを全て実...
-
ヘッダ内の表をマクロ(VBA)で指...
-
マクロを実行した日付をセルに...
-
エクセルVBA:エラー時にはマク...
-
ThisWorkbook.Pathを実行すると...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
マクロ 実行ボタンを押さずに...
-
Excel VBA のdebug(F8キー) が...
-
複数ファイルにある特定のシー...
-
EXCELのセルへ、デジタル時計を...
-
Excelを開いた時に表示さ...
-
エラーになってないのにVBA...
-
エクセル グラフの軸の最小値最...
-
ワードからエクセルへ貼り付け...
-
エクセルのマクロ機能で前のシ...
-
Wordの画面を左右にスクロール...
-
モジュール内のマクロを全て実...
-
Wordで「原稿用紙○枚」を換算す...
-
Excelの改ページ 同シート内で...
-
EXCEL 複数のシートの同一の位...
-
Accessのクエリを実行するショ...
-
エクセルで複数のシートをまと...
-
Excelマクロでオプションボタン...
-
【Excel VBA】エラー番号400
-
《エクセル2000》非表示になっ...
おすすめ情報