password to open form

[jpr]

Hello, I have a simple question.

I would like to restrict the opening of a form using a password. My
database it's already quite secure therefore it's just an additional
way to avoid users to intrude in this form.

On the OnLoad event I have added this code:
Dim strInputBox As String, bytChoice As Byte
InputPoint:
strInputBox = InputBox("Please input the password.", "Password
Required - Restricted Area! ")
If Len(strInputBox) 0 Then
If strInputBox <"***" Then
bytChoice = MsgBox("Wrong password" & vbNewLine & vbNewLine & "Do
you want to try another?", vbExclamation + vbYesNo, "Warning")
If bytChoice = vbYes Then
GoTo InputPoint
End If
Else
DoCmd.OpenForm ("myform")

End If
End If

Something is here not working correctly as whatever option I select
(yes or no) it will open my form.
What I need is that when I select No, it will prompt again to type the
password, while if I click YES, it will open my form.

Thank you for any help.

[Tom van Stiphout]

On 3 Oct 2006 07:01:54 -0700, "jpr" <jp***@tin.itwrote:

Your code should be moved to the Form_Open event and if the password
is not given, set Cancel=True.

-Tom.

>Hello, I have a simple question.

I would like to restrict the opening of a form using a password. My
database it's already quite secure therefore it's just an additional
way to avoid users to intrude in this form.

On the OnLoad event I have added this code:
Dim strInputBox As String, bytChoice As Byte
InputPoint:
strInputBox = InputBox("Please input the password.", "Password
Required - Restricted Area! ")
If Len(strInputBox) 0 Then
If strInputBox <"***" Then
bytChoice = MsgBox("Wrong password" & vbNewLine & vbNewLine & "Do
you want to try another?", vbExclamation + vbYesNo, "Warning")
If bytChoice = vbYes Then
GoTo InputPoint
End If
Else
DoCmd.OpenForm ("myform")

End If
End If

Something is here not working correctly as whatever option I select
(yes or no) it will open my form.
What I need is that when I select No, it will prompt again to type the
password, while if I click YES, it will open my form.

Thank you for any help.

[jpr]

thanks. but where should I add the cancel true?

Dim strInputBox As String, bytChoice As Byte
InputPoint:
strInputBox = InputBox("Please input the password.", "Password
Required - Restricted Area! ")
If Len(strInputBox) 0 Then
If strInputBox <"***" Then
bytChoice = MsgBox("Wrong password" & vbNewLine & vbNewLine & "Do
you want to try another?", vbExclamation + vbYesNo, "Warning")
If bytChoice = vbYes Then
GoTo InputPoint
End If
Else
DoCmd.OpenForm ("myform")

End If
End If

Something is here not working correctly as whatever option I select
(yes or no) it will open my form.
What I need is that when I select No, it will prompt again to type the
password, while if I click YES, it will open my form.

Thank you for any help.

[Tom van Stiphout]

On 3 Oct 2006 07:13:32 -0700, "jpr" <jp***@tin.itwrote:

Pseudo-code:
if UserWantsAnotherTry then
Goto InputPoint
else
'User wants to quit
Cancel=True
end if

-Tom.

>thanks. but where should I add the cancel true?

>Dim strInputBox As String, bytChoice As Byte
InputPoint:
strInputBox = InputBox("Please input the password.", "Password
Required - Restricted Area! ")
If Len(strInputBox) 0 Then
If strInputBox <"***" Then
bytChoice = MsgBox("Wrong password" & vbNewLine & vbNewLine & "Do
you want to try another?", vbExclamation + vbYesNo, "Warning")
If bytChoice = vbYes Then
GoTo InputPoint
End If
Else
DoCmd.OpenForm ("myform")

End If
End If

Something is here not working correctly as whatever option I select
(yes or no) it will open my form.
What I need is that when I select No, it will prompt again to type the
password, while if I click YES, it will open my form.

Thank you for any help.

[jpr]

OK, its' working now. Thanks.