Password Prompt

[pushrodengine via AccessMonster.com]

When the user clicks on the command button a prompt appears asking to enter a
password.

Everything works great except the password can be seen as it is typed.
Is there a way to force the text to appear as “*†while it is being typed?

I’m using the code:

Private Sub ProtectMenu_Click()

Dim strInput As String
Dim strMsg As String
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmMenu"

strMsg = "Please enter password"
strInput = InputBox(Prompt:=strMsg, title:="Password")

If strInput = "the password" Then
DoCmd.OpenForm stDocName
Else
MsgBox ("Sorry the password is incorrect!")

End If

End Sub


Thank you.

 

[Guest]

You can't do that with an input box. You will need to create a popup form or
put a text box on your form and set the Input Mask to "Password"