Input mask

[Charlie]

Is there a way to add the input mask for the password in this code?

Dim stPasswd
Dim stDocName As String

stPasswd = InputBox("Enter Password", "Restricted Report")

stDocName = "usys_rptRepReport"

If stPasswd = "" Or stPasswd = Empty Then
MsgBox "No Input Provided", vbInformation, "Required Data"
Exit Sub
End If

If stPasswd = "PASSWORD" Then
DoCmd.OpenReport stDocName, acPreview
Else
MsgBox "Incorrect Password", vbOKOnly, "Incorrect Password!"
Exit Sub
End If

 

[Linq Adams via AccessMonster.com]

I don't think so. Just like with messageboxes, when you want to do any
formatting you need to make a PopUp/Dialog form to imitate the Input box.
Then setting the Input Mask to Password is a snap.

 

[mscertified]

Not via Inputbox; you need to get the input with a form then you can specify
an input mask of 'password'.

-Dorian