password input box should display asterisks

[imdl]

I have the code below that works fine, except that the input box for the password displays the actual password, and not asterisks (*****).

Private Sub cmdOpenForm_Click()
Dim strInput As String
Dim strMsg As String
Beep
strMsg = "Please contact your Administrator to reset your password." & vbCrLf & vbLf & "Enter Administrator's password."
strInput = InputBox(Prompt:=strMsg, Title:="password")
If strInput = "password" Then 'password is correct
DoCmd.OpenForm "SpecialFormName"
DoCmd.Close acForm, Me.Name
Else 'password is incorrect
MsgBox "Incorrect Password!" & vbCrLf & vbLf & "You are not allowed access to the ''Special Form''.", vbCritical, "Invalid Password"
Exit Sub
End If
End Sub

I found the attached file that displays asterisks when the password is typed into the input box, but I need help on how to have this feature with the code that I have above.

I hope somebody can help.

imdl

 

[DCrake]

A standard Access InputBox() does not provide this functionality you have to use it in the same way as the demo.

Just tried the demo you attached in A2007 and it worked for me

 

[AliyuKatsina]

You must use a form with a textbox control for the password input and format the textbox input mask as password.