各種メッセージボックス(MsgBox) ： Access

Access VBAのメッセージボックスの引数には、「ボタンの種類」、「アイコンの種類」、「標準ボタン」などの設定があります。

ここではいろいろと試してみたいと思います。

ans = MsgBox("よろしいですか?", vbAbortRetryIgnore)

「中止ボタン」でvbAbort（3）が返ります
「再試行ボタン」でvbRetry（4）が返ります
「中止ボタン」でvbIgnorel（5）が返ります

ans = MsgBox("よろしいですか?", vbApplicationModal)

「OKボタン」でvbok（1）が返ります

ans = MsgBox("よろしいですか?", vbDefaultButton1)

「OKボタン」でvbok（1）が返ります

ans = MsgBox("よろしいですか?", vbDefaultButton2)

「OKボタン」でvbok（1）が返ります

ans = MsgBox("よろしいですか?", vbDefaultButton3)

「OKボタン」でvbok（1）が返ります

ans = MsgBox("よろしいですか?", vbAbortRetryIgnore)

「中止ボタン」でvbAbort（3）が返ります
「再試行ボタン」でvbRetry（4）が返ります
「中止ボタン」でvbIgnorel（5）が返ります

ans = MsgBox("よろしいですか?", vbDefaultButton4)

「OKボタン」でvbok（1）が返ります

ans = MsgBox("よろしいですか?", vbExclamation)

注意アイコンが表示されます
「OKボタン」でvbok（1）が返ります ans = MsgBox("よろしいですか?", vbInformation)

情報アイコンが表示されます
「OKボタン」でvbok（1）が返ります

ans = MsgBox("よろしいですか?", vbMsgBoxHelpButton)

「OKボタン」でvbok（1）が返ります
「ヘルプボタン」でvbok（1）が返りますが、フォームは閉じません

ans = MsgBox("よろしいですか?", vbMsgBoxRight)

メッセージが右寄せで表示されます。
「OKボタン」でvbok（1）が返ります

ans = MsgBox("よろしいですか?", vbMsgBoxRtlReading)

メッセージを右から左の方向で表示しますとありますが、日本版では使えないようです。
「OKボタン」でvbok（1）が返ります

ans = MsgBox("よろしいですか?", vbMsgBoxSetForeground)

最前面のウィンドウとして表示します。
「OKボタン」でvbok（1）が返ります