Imput Mask

[unclefink]

I have a button in the main menu that I created that opens a new form for "maintenance" capabilities. I dont want just anyone who uses the database to access this form so I found this code to "secure" a button.

Dim PassWord As String
PassWord = InputBox("Enter Password")
If PassWord = "[B]YourPassword[/B]" Then
' Open Form
DoCmd.OpenForm "[B]YourFormName[/B]"
DoCmd.GoToRecord , , acNewRec
Else
MsgBox ("You're not authorized")
End If

I've got it all set and it works for what I want with one exception, when I type in the password, it displays the actual password so anyone in the room or possibly looking over my shoulder could see. How can I make any characters typed into this code display with "*"?

 

[JHB]

The inputbox doesn't have such features.
Create a small form with a text control and use the Password inputmask.