Input mask

  • Thread starter Thread starter Charlie
  • Start date Start date
C

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
 
Not via Inputbox; you need to get the input with a form then you can specify
an input mask of 'password'.

-Dorian
 
Back
Top