How do you say "If, Or, Then, Else" in VBA
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 |
How do you say "If, Or, Then, Else" in VBA
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 |
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 |
All times are GMT +1. The time now is 11:41 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com