MsgBox関数 : Access

Access MsgBox関数はメッセージ付きのダイアログ ボックスを表示します。

BackHomeへ BackAccess関数メニューへ



■ 構文
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実行画面

OKボタンのみ か はい・いいえ・キャンセル ボタンをクリックします。
メッセージボックス表示ソフト

OKボタンを押した場合のMsgBox
OKを表示させる

はい・いいえ・キャンセルボタンを押した場合のMsgBox
Yes No Cancel を表示させる

さらに、「はい」を選択した場合
はいの選択結果

■ 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



BackHomeへ BackAccess関数メニューへ

Copyright(C) FeedSoft