メッセージボックスで［はい］が選択されたらアクションを実行する

Accessのフォームで［閉じる］ボタンを設置しても、メッセージボックスは表示されずにフォームは閉じられてしまいます。

［閉じる］ボタンをクリックしたらメッセージボックスを表示して、［はい］のボタンが押されたときのみフォームを閉じるように設定することができます。

埋め込みマクロで解説します。

ここでは［閉じる］ボタンで解説しますが、他のコマンド実行時でも設定できますので活用してみてください。

フォームに［閉じる］ボタンを設置

フォームに［閉じる］ボタンを作成します。

ここで使用するフォームは、以下の記事で作成したものです。

フォームをデザインビューで開いて、［フォームデザイン］タブの［コントロール］グループにある［ボタン］をクリックしてボタンを挿入します。

［コマンドボタンウィザード］が表示されたら、［キャンセル］ボタンをクリックして閉じます。

コマンドボタンのプロパティシートを表示して、［書式］タブの［標題］にボタンに表示したい名前を入力します。

ここでは、［閉じる］にします。

［F4］キーを押すと、プロパティシートを表示できます。

参考ここでは、ウィンドウの表示は、既定の［タブ付きドキュメント］にしています。

埋め込みマクロの作成

コマンドボタンを選択して、プロパティシートを表示します。

［イベント］タブの［クリック時］の［ビルダー選択］ボタン［…］をクリックします。

［ビルダーの選択］ダイアログボックスが表示されますので、［マクロビルダー］を選択して［OK］ボタンをクリックします。

マクロデザインが表示されます。

［新しいアクションの追加］の▼をクリックして、［If］を選択します。

テキストボックスに以下のように入力します。

または、以下のように入力します。

条件式のすぐ下にある［新しいアクションの追加］から［ウィンドウを閉じる］を選択します。

これでメッセージボックスの戻り値が［6］であれば、アクション［ウィンドウを閉じる］を実行するということになります。

［オブジェクトの種類］の指定を省略した場合は、アクティブウィンドウが閉じられます。

“CloseWindow/ウィンドウを閉じる“ マクロ アクション - Microsoft サポート（Microsoft）

以下のようになっていることを確認して、上書き保存して閉じます。

コマンドボタンのクリック時のプロパティには、［埋め込みマクロ］と表示されています。

［F5］キーを押して、フォームビューに切り替えます。

［閉じる］ボタンをクリックすると、以下のメッセージボックスが表示されます。

先に［ウィンドウを閉じる］ボタンを設置していた場合

ウィンドウを閉じるボタンは、コマンドウィザードでも作成できます。

コマンドボタンウィザードで［フォームの操作］と［フォームを閉じる］を選択すると、コマンドボタンを作成できます。

先にコマンドボタンを作成していても、［If］の条件式を追加して設定することができます。

以下は、コマンドボタンウィザードで［フォームを閉じる］を選択して作成したボタンのマクロツールです。

［新しいアクションの追加］で［If］を選択して、条件式を入力します。

そして、［If］を［上へ移動］ボタンをクリックして、上へ移動します。

以下のようになりますので、［ウィンドウを閉じる］の［上へ移動］ボタンをクリックして、上へ移動します。

以下のようになれば、OKです。

参考マクロアクションは、アクションカタログから既存のマクロアクションを追加できます。別のフォームで同じマクロアクションを使用したい場合は、再利用するのが効率的です。

MsgBox関数について

MsgBox関数は、メッセージボックスを表示して、クリックされたボタンによる戻り値によってアクションを実行します。

詳細は、以下のMicrosoftの記事を参照してください。

MsgBox 関数 - Microsoft サポート（Microsoft）

MsgBoxの構文は以下のようになります。［メッセージ］以外は省略可能です。

［ボタンやアイコン］は、以下のように［ボタンの種類］+［アイコンの種類］+［標準のボタンの指定］で合計値を指定しても構いません。

メッセージボックスで見ると、以下のようになります。

ボタンの種類

アイコンの種類

数値	種類
16	警告
32	問い合わせ
48	注意
64	情報

標準のボタンの指定

標準のボタンとは、メッセージボックスを表示したときに選択された状態になるボタンのことです。

戻り値

戻り値が指定された値以外であれば、アクションは何も行わずにメッセージボックスを閉じます。

参考MsgBox構文で省略できないメッセージのみにすると、以下のようなメッセージボックスになります。

ただし、データベースのアプリケーションタイトルを付けている場合は、それがメッセージボックスの［タイトル］となります。

アプリケーションタイトルについては、以下で解説しています。

メッセージボックスは、アプリケーションパーツから作成することもできます。