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

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

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

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