How do you say "If, Or, Then, Else" in VBA

  • Thread starter Thread starter Newbie1
  • Start date Start date
N

Newbie1

Happy Easter everyone

I have a working If statement

Private Sub CommandButton1_Click()
If MyPassword.TextBox1.Value = "kenny" Then
Unload MyPassword
Else
MsgBox "Password incorrect - access denied!"
End If
End Sub

I want to allow two values so I tried changing the first line to -

If MyPassword.TextBox1.Value = "kenny" Or "kenny1" Then

But that did not work!

Could someone assist please

Kenny
Windows Me and 2000
Office 97 and 2000
 
Hi
try
If MyPassword.TextBox1.Value = "kenny" Or _
MyPassword.TextBox1.Value = "kenny1" Then
 
Classic case for a With

Private Sub CommandButton1_Click()
With MyPassword.TextBox1
If .Value = "kenny" Or .Value = "kenny1" Then
Unload MyPassword
Else
MsgBox "Password incorrect - access denied!"
End If
End With
End Sub

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
You may want to take a look at: "Select case" in VBA's help

Select Case LCase(myPassword.TextBox1.Value)
Case Is = "kenny", "kenny2"
'do lots of stuff
Case Is = "jimmy"
'do different stuff
Case Else
MsgBox "no, no!"
End Select
 
Back
Top