MsgBox（メッセージボックス）の使い方、返り値・改行方法について：Access VBA入門

● メッセージを表示する

下がもっともシンプルなMsgBoxの使い方です。
引数promptのみ指定しています。


Sub MyMsgBox()
    Dim i As Long
    
    i = 325
    MsgBox "変数iの値は、" & i & "です。"
End Sub

実行結果です。
引数Titleを省略しているので、使用しているアプリケーションの名前が表示されています。

● 問合せを行う

引数のprompt・buttons・titleを指定しています。
返り値はIF文で判定しています。


vbYesNoCancel + vbQuestion + vbDefaultButton3で、ボタンの種類にvbYesNoCancelを、アイコンの種類にvbQuestionを、デフォルトボタンにvbDefaultButton3を指定しています。

このように引数buttonsは複数の定数を「＋」で組み合わせて使用します。

Sub MyMsgBox()
    Dim nRet As Long
    
    nRet = MsgBox("よろしいでしょうか？", vbYesNoCancel + vbQuestion + vbDefaultButton3, "問合せ")
    If nRet = vbOK Then
        MsgBox "ＯＫボタンが押されました。"
    ElseIf nRet = vbNo Then
        MsgBox "ＮＯボタンが押されました。"
    Else
        MsgBox "ＣＡＮＣＥＬボタンが押されました。"
    End If
End Sub

実行結果です。
ボタンは「はい・いいえ・キャンセル」から選択できます。
アイコンは問合せが表示されています。
デフォルトボタンは、初期状態でフォーカスがあるボタンを指定します。このままEnterキーを押すと採用されるボタンになります。
第3ボタンを指定しているので［キャンセル］がアクティブになっています。