hide password (1 Viewer)

[rainbows]

hi

the code below is for a password to get into a form
how can the code be changed to hide the password when typing it in

thanks steve

Private Sub Command370_Click()


Dim strInput As String
Dim strMsg As String

Beep
strMsg = "Please Enter  the password to allow access."
strInput = InputBox(Prompt:=strMsg, Title:="Admin Password")
If strInput = "mhatb" Then
'MsgBox "Password accepted! Welcome!     " & "Ellen " 'password is correct
DoCmd.OpenForm "issue list"
DoCmd.Maximize
DoCmd.Close acForm, Me.Name
Else 'password is incorrect
MsgBox "Incorrect Password!" & vbCrLf & vbLf & "You are not allowed access to the ''issue list''.", vbCritical, "Invalid Password"
Exit Sub
End If
End Sub

 

[isladogs]

Either use a masked input box http://www.mendipdatasystems.co.uk/masked-input-box/4594462216 or create your own form with a password mask