Password ### login

[buckwheat]

I have this VBA code on a cmd button that would grant access only to certain users. Can someone tell me how to set the display when entering the password to be #### instead of seeing the actual password please?

Private Sub cmdMasterFiles_Click()
Dim sPW As String
sPW = InputBox("Password", "Password")
If sPW <> "Password01" Then
MsgBox "Invalid Password!", vbCritical
Exit Sub


Else
DoCmd.OpenForm "frmMasterMenu"
DoCmd.Close acForm, "Main Menu"
End If
End Sub

[pbaldy]

I've heard of a fairly long-winded way of putting an input mask on the InputBox, but I prefer this:

http://www.baldyweb.com/WrappedForm.htm

since I can call it from anywhere.

[runbear]

What I do is set the default value to "#####" and the font to Wingding or some other unreadable font.

[pbaldy]

You can do that in an InputBox? I just use the password input mask on a form textbox.

[buckwheat]

Just now getting back to this segment of the project. I'm at a loss as to how to input suggestions above since I did not create a form, so I'm not sure how I would enter anything into a InputBox. . . when the password input box appears to enter the password, I am not able to do into the design view, so I'm guessing the VBA code needs modified . . .does anyone how how to do this?

Private Sub cmdMasterFiles_Click()
Dim sPW As String
sPW = InputBox("Password", "Password")
If sPW <> "Alta01" Then
MsgBox "Invalid Password!", vbCritical
Exit Sub
Else
DoCmd.OpenForm "frmMasterMenu"
DoCmd.Close acForm, "Main Menu"
End If
End Sub

[pbaldy]

Like I said, it's fairly involved. I think this is it:

http://www.access-programmers.co.uk/...d.php?t=150644

I just use the little wrapped form.