アクセスVBAの部屋

VBA Homeへ戻る

MsgBox  分岐処理メッセージ

解説

「OK」ボタンと「Cancel」ボタンを使って処理を分けます。このように関数の戻り値を使用する場合は引数をかっこで囲みます。

使用例

次の例は「OK」ボタンが押された場合はそのまま終了します。「Cancel,」ボタンが押された場合はやり直しのメッセージと「警告」ボタンを追加して出しています。

Public Sub MsgBox_2()
 If MsgBox("作業は終わりました。終了しますか?。", vbOKCancel, "確認") = vbOK Then
 Exit Sub
 Else
 MsgBox "やり直してください", vbOKOnly + vbCritical, "確認"End If
End Sub

次はvbOKCancelボタンで表示されました。

OKボタンでは何も行いません。Cancelボタンが押されたときに次の表示になります。

このように分岐処理で使います。

(この項終わり)