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
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
--
Dave Peterson