do not show password characters

[dr.tom]

On my form when a button is pressed I require the user to enter a password in order to open the form. The code works great but what can I add to this code to make an "*" appear vice the letters of the password when typed.

Here is the current code that works.

Private Sub Command1_Click()
Dim strInput As String
Dim strMsg As String
Beep
strMsg = "This form is used only by the ''Administrator''." & vbCrLf & vbLf & "Please key in password to allow access."
strInput = InputBox(Prompt:=strMsg, Title:="Admin Password")
If strInput = "FERRIS" Then 'password is correct
DoCmd.OpenForm "frm course edit"
Else 'password is incorrect
MsgBox "Incorrect Password!" & vbCrLf & vbLf & "You are not allowed access to ''Administration''.", vbCritical, "Invalid Password"
Exit Sub
End If
End Sub

 

[DCrake]

Ordinarily there is no input mask for an input box, however there is a vba fix for it if you arre up to it. Do a search on the forum for it.

 

[GaryPanic]

How about change the font style ?

 

[dogdays]

In the properties of the text box for the password set Input Mask to Password.

Jack