条件分岐

Access VBA 条件分岐 select case文

条件分岐 select case文

さまざまな条件(case)によって実施する処理を分岐させるプログラムです。
Select Caseで始まり、End Selectで終わります。

プログラムの例

Private Sub コマンド0_Click()

Select Case Me.テキスト1

Case “10”
MsgBox “10です。”

Case “20”
MsgBox “20です。”

Case “30”
MsgBox “30です。”

Case Else
MsgBox “その他です。”

End Select

End Sub

プログラムの説明

「Me.テキスト1」内の値が10,20,30の場合にそれぞれのメッセージボックスを表示します。これら以外の値の場合は別のメッセージボックスを表示します。