■メッセージボックスを表示(第2パラメーターを指定することで、注意マークなどを表示可能)
MsgBox "メッセージ", vbOKOnly + vbExclamation , "タイトル"
※ メッセージを複数行に設定したい場合は、文字列内に、VbCrLf (改行)を挿入
例: "一行目" & VbCrLf & "2行目"
第2パラメータ一覧 (パラメータは数値を足していく事で、複数選択可) 組み込み定数 値 内容 vbOKOnly 0 ボタン : [OK] vbOKCancel 1 ボタン : [OK]、[キャンセル] vbAbortRetryIgnore 2 ボタン : [中止]、[再試行]、[無視] vbYesNoCancel 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 ボタンへ vbApplicationModal 0 メッセージボックスが閉じるまでAccessは一時ストップ (既定値) vbSystemModal 4096 メッセージボックスをWindowsの画面最前へ表示し、
メッセージボックスが閉じるまで全てのアプリケーションは一時ストップ。vbMsgBoxHelpButton 16384 ヘルプ ボタンを追加します。 VbMsgBoxSetForeground 65536 アクセスアプリケーション内で最前面に表示します。あまり意味無い? vbMsgBoxRight 524288 テキストを右寄せで表示します。使わない? vbMsgBoxRtlReading 1048576 テキストを、右から左の方向で表示します。使わない?
■メッセージボックスを表示し、押されたボタンを判定
If MsgBox("続けますか?", vbOKCancel) = vbCancel Then Exit Sub
組み込み定数 値 内容 vbOK 1 [OK] vbCancel 2 [キャンセル] vbAbort 3 [中止] vbRetry 4 [再試行] vbIgnore 5 [無視] vbYes 6 [はい] vbNo 7 [いいえ]