hi im using the code below to password protect a button on a form.... is there any code i can use within the below to *asterix* out the password when typed in cheers.
Code:
Private Sub Edit_Staff_Click()
Dim strInput As String, strMsg As String
strMsg = "Enter your password to proceed."
strInput = InputBox(Prompt:=strMsg, _
Title:="SCRM Security Check")
If UCase(strInput) = "people5804" Then
DoCmd.OpenForm "Contacts", acNormal
Else
MsgBox "Sorry wrong password."
End If
End Sub
Comment