How do you say "If, Or, Then, Else" in VBA
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)
"Frank Kabel" wrote in message
...
Hi
try
If MyPassword.TextBox1.Value = "kenny" Or _
MyPassword.TextBox1.Value = "kenny1" Then
--
Regards
Frank Kabel
Frankfurt, Germany
Newbie1 wrote:
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
|