help please!!

[Craig AS]

I have a project which requires a password to allow specific users to log on. I have tryed using this:

Private Sub CommandButton1_Click()
Dim strPass As String

strPass = TextBox1.Text

Do Until iTries = 3
If strPass = "Secret" Then
MsgBox "Log in OK!"
Run "LogInOk"
End
End If
MsgBox "Log in NOT OK!"
iTries = iTries + 1
Exit Do
Loop

If iTries = 3 Then Unload Me

End Sub

However when I press the macro command button nothing happens, I have no Idea what is going on. Any help will be appreciated.
Thanks alot
Craig

[Dave Hawley]

Hi Craig, This code looks very familiar )

Try this

Dim strPass As String
Dim iTries As Integer
Private Sub CommandButton1_Click()


strPass = TextBox1.Text

Do Until iTries = 3
If strPass = "Secret" Then
MsgBox "Log in OK!"
Run "LogInOk"
End
End If
MsgBox "Log in NOT OK!"
iTries = iTries + 1
Exit Do
Loop

If iTries = 3 Then Unload Me

End Sub


The bit I modified was your variable iTries It MUST be at the Module level else it will loose it's value each time.

[Craig AS]

lol, yeah it does look familiar, thanks for that by the way. I'll see how this works now then, thanks alot

Craig