条件分岐

Access VBA 条件分岐 If文

条件分岐 If文

If文を使い条件分岐のプログラムを作成します。
If thenで始まり、End Ifで終わります。

If ~ then ~ Else

プログラムの例

Private Sub コマンド0_Click()

If Me.テキスト1 > 100 Then
MsgBox “100より多い”
Else
MsgBox “100以下”
End If

End Sub

プログラムの説明

「Me.テキスト1」の値が100より多い場合と100以下の場合で2通りのメッセージを表示させるプログラム例です。
If・・もし  then・・の時  else・・そうでなければ

If ~ Then

プログラム例

Private Sub コマンド0_Click()

If Me.テキスト1 > 100 Then
MsgBox “100より多い”
End If

End Sub

プログラムの説明

「Me.テキスト1」の値が100より多い場合にメッセージボックスを表示させる例です。
If・・もし  then・・の時

ElseIf

プログラム例

Private Sub コマンド0_Click()

If Me.テキスト1 > 100 Then
MsgBox “100より多い”
ElseIf Me.テキスト1 > 50 Then
MsgBox “50より多くて100以下”
End If

End Sub

プログラムの説明

「Me.テキスト1」の値が100より多い場合と50より多く100以下の場合で2通りのメッセージを表示させるプログラム例です。
If・・もし  then・・の時  elseIf・・そうでなければ、もし