Form still opens when wrong password is typed

[sk88]

So I have my main form linked to all the other forms. I have set password to protect any one from opening. The codes I have is

Private Sub Form_Open(Cancel As Integer)
Dim stDocName As String
Dim stLinkCriteria As String
Dim PassWordtxt


PassWordtxt = InputBox("Please Type in password")

If PassWordtxt = "password" Then

stDocName = "frmMainMenu"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else

MsgBox "The password provided was incorrect - you do not have permission"

End If
End Sub


It works fine except that when I type the wrong password, it shows me the MsgBox "The password provided was incorrect - you do not have permission" and then opens my main form.



Any suggestions anyone?

[ketbdnetbp]

Try -

If PassWordtxt = "password" Then

stDocName = "frmMainMenu"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else

MsgBox "The password provided was incorrect - you do not have permission"
Cancel = True
End If
End Sub

Hope this helps,

Jim

[sk88]

That works!!

Thanks Jim!!

[sk88]

Hi Jim,
Question... is there a way where I can hide those characters from showing when typing password?

Like... I would definitely love to have my password as ***** when typing it for security and privacy issue.


any suggestions anyone?

[ketbdnetbp]

I don't know a way to mask the characters while using an input box. That's not to say there isn't a way, I just haven't encountered one.

I usually use create a password form (modal & unbound) with an unbound textbox and set the input mask of the textbox to Password. So, in your case, instead of the input box, open the password form, have user type in password, check password, if correct, close password form and open the other form.

Hope that helps,

Jim

[sk88]

Thanks Jim for your help!

[JohnB47]

Hi Jim,
Question... is there a way where I can hide those characters from showing when typing password?

Like... I would definitely love to have my password as ***** when typing it for security and privacy issue.

any suggestions anyone?

Try going to the text box you use for password entry and change it's 'Input Mask' property to 'password'.

Hope that helps.