[MaverickSidewinder]

I want to password protect an application. I got this:

Private Sub Form_Load()

lngBefore = Timer
Do
strAns = InputBox("What is the password?", "Password Required")
Loop Until Val(strAns) = Example
lngAfter = Timer
MsgBox "Correct Password", vbInformation

End Sub

When i run the form it asks me for a password. If i type directly ok it says: Correct Password. I press Cancel it says: Correct password. If i type anypassword it says: Password correct. How do i fix that?

Thanks again!

- Maverick

Edited by MaverickSidewinder, 15 June 2005 - 10:20 AM.

[Advertisements]

Here's Modified Code

Private Sub Form_Load()

lngBefore = Timer
Do
strAns = InputBox("What is the password?", "Password Required")

'This was where your problem was
'The Val() thing and Example
Loop Until strAns = "The Password"

lngAfter = Timer
MsgBox "Correct Password", vbInformation

End Sub

[stu_design]

Here's Modified Code

Private Sub Form_Load()

lngBefore = Timer
Do
strAns = InputBox("What is the password?", "Password Required")

'This was where your problem was
'The Val() thing and Example
Loop Until strAns = "The Password"

lngAfter = Timer
MsgBox "Correct Password", vbInformation

End Sub

[TwiztidNinja]

Why a timer?

[MaverickSidewinder]

Thank you stu_design

[MaverickSidewinder]

NEW QUESTION!

Sub Form_Terminate()
MsgBox "You pressed the wrong command.", 48, "ERROR"
GoTo Form1
End Sub

If a person clicks on the X button this msgbox comes up. How can i either redirect him back to form1 when he presses the OK button or shade the X?
I improvised the GoTo Form1 thing... ...its actually a real thing i think, but when i click ok when i run it it says: "Label Undefined"...

Thanks!

- Maverick

Edited by MaverickSidewinder, 15 June 2005 - 10:34 AM.

[TwiztidNinja]

lets say your current form is form2
instead of goto say
form1.Show
form2.Hide
or
form1.visible = True
form2.visible = false

[MaverickSidewinder]

I only have 1 form...

[TwiztidNinja]

can you post all the code and were you are expecting that goto to go to

[MaverickSidewinder]

Sub Form_Terminate()
MsgBox "You pressed the wrong command.", 48, "ERROR"
GoTo Form1
End Sub

No, i did not expect it but VB reads it as a real thing so im assuming its real, cause i typed: goto and it automatically changed it to GoTo.

Anyway, this is the code.

[TwiztidNinja]

yea goto goes to a part of code but when your closeing the form it wont work
*******************
Load Form1
Form1.Show
*******************

try that code and heres an example of how goto works


1:
tones of code
GoTo 1

^ that particular example would be an edless loop of code

[MaverickSidewinder]

TwiztidNinja

Doesn't work.

[TwiztidNinja]

i dont quite get it sub Terminate executes when you press the Exit X in the corner right?

[TwiztidNinja]

try
*********************
Load Form1
Form1.Visible = True
*********************

[MaverickSidewinder]

Doesn't work. I need a code that brings me back to form1, not a code that lets me see it...

[TwiztidNinja]

thats what the Load Form1 is thats just odd