MsgBox関数 ： Access

■ 構文
MsgBox(prompt[, buttons] [, title] [, helpfile, context])

prompt ： （必須） メッセージ文字列を指定します。複数行を指定する場合は、キャリッジ リターン(Chr(13))、ライン フィード(Chr(10))、組み合わせた(Chr(13) & Chr(10)) を使い改行します。
buttons ： （省略可）表示されるボタンの種類・アイコン・モーダルかどうか等を指定します。省略した場合、0 になります。
title ： （省略可）タイトルバーに表示する文字列を指定します。省略すると、アプリケーション名が表示されます。
helpfile ： （省略可）使用するヘルプファイルの名前を示す文字列式を指定します。
context ： （省略可）ヘルプトピックに指定したコンテキスト番号を指定します。

■ ボタンの定数
vbOKOnly　：　 0 -　 [OK] ボタンのみを表示。
vbOKCancel　：　 1 -　 [OK] ボタンと [キャンセル] ボタンを表示。
vbAbortRetryIgnore　：　 2 -　 [中止]、[再試行]、および [無視] の 3 つのボタンを表示。
vbYesNoCancel　：　 3 -　 [はい]、[いいえ]、および [キャンセル] の 3 つのボタンを表示。
vbYesNo　：　 4 -　 [はい] ボタンと [いいえ] ボタンを表示。
vbRetryCancel　：　 5 -　 [再試行] ボタンと [キャンセル] ボタンを表示。

■ メッセージアイコンの定数
vbCritical　：　 16 -　 警告メッセージ アイコンを表示。
vbQuestion　：　 32 -　 問い合わせメッセージ アイコンを表示。
vbExclamation　：　 48 -　 注意メッセージ アイコンを表示。
vbInformation 　：　64 -　 情報メッセージ アイコンを表示。

■ 標準ボタンの定数
vbDefaultButton1　：　 0 -　 第 1 ボタンを標準ボタンにします。
vbDefaultButton2　：　 256 -　 第 2 ボタンを標準ボタンにします。
vbDefaultButton3　：　 512 -　 第 3 ボタンを標準ボタンにします。
vbDefaultButton4　：　 768 -　 第 4 ボタンを標準ボタンにします。

■ モーダルかどうかの定数
bApplicationModal　：　 0 -　 アプリケーションモーダル（メッセージ ボックスが終了するまで応答なし）に設定。
vbSystemModal　：　 4096 -　 システム モーダル（メッセージ ボックスが終了するまで応答なし）に設定。
vbMsgBoxHelpButton　：　 16384 -　 ヘルプ ボタンを追加。
VbMsgBoxSetForeground　：　 65536 -　 最前面のウィンドウとして表示。
vbMsgBoxRight　：　 524288 -　 テキストを右寄せで表示。
vbMsgBoxRtlReading　：　1048576 -　 テキストを、右から左の方向で表示。

■ 戻り値
下記の定数が返ります。

vbOK　：　 1 -　 OK
vbCancel　：　 2 -　 キャンセル
vbAbort　：　 3 -　 中止
vbRetry　：　 4 -　 再試行
vbIgnore　：　 5 -　 無視
vbYes　：　 6 -　 はい
vbNo　：　 7 -　 いいえ

■ Access VBA 実行コード

Option Compare Database
Option Explicit
Private Sub コマンド0_Click()
    'OKボタンのみ + 警告 のメッセージボックス
    MsgBox "OKボタンのみ", vbOKOnly + vbCritical, "MsgBox関数"
End Sub
Private Sub コマンド1_Click()
    Dim ans As String
    '「はい」「いいえ」「キャンセル」＋注意 のメッセージボックス
    ans = MsgBox("はい・いいえ・キャンセル ボタン", vbYesNoCancel + vbExclamation, "MsgBox関数")
    Select Case ans
        Case vbyes:  MsgBox "「はい」が選択されました。", vbOKOnly + vbInformation, "MsgBox関数"
        Case vbno:  MsgBox "「いいえ」が選択されました。", vbOKOnly + vbInformation, "MsgBox関数"
        Case vbcancel:  MsgBox "「キャンセル」が選択されました。", vbOKOnly + vbInformation, "MsgBox関数"
    End Select
End Sub