Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Select Case True
Case Me.cboType = 1
'
Case Me.cboType = 2
'
Case Else
'
End Select
Select Case Me.cboType
Case 1
'
Case 2
'
Case Else
'
End Select
Dim i As Integer
i = 3
If i = 0 Then
MsgBox i
ElseIf i = 3 Then
[highlight]MsgBox i & " Ta da"[/highlight]
ElseIf i = 100 Then
MsgBox i
ElseIf i = 3 Then
[highlight #FF99FF]MsgBox i & " BINGO?"[/highlight]
Else
MsgBox i
End If
I can't think of a better reason to abandon If...ElseIf...Else...End If.Pack10 said:testing a lot of conditions
Select Case True
Case Me.cboType = 1 And Me.TxtDept = "Finance"
'
Case Me.cboType = 2 And Me.TxtDept <> "Finance"
'
Case Else
'
End Select
If strCode ="B" or strCode = "C" or strCode = "Q" Then
'do this
else if strcode = "A" or strCode = "Z" Then
'do that
else
'do the other thing
end if
Select Case strCode
Case "B","C","Q"
'do this
Case "A","Z"
'do that
Case Else
'do the other thing
End Select