Solved: How to create a pop up box with password format

[winxmun]

Dear All,

Reference to VBA below, any idea how to change the input box of "strInput" as a password format? That's mean when the inputing the password on to the pop up box, the display should be ****** i/o displaying the password that I am typing.
:help thank you!

'***************** Code Start ***************
'Assign this to the OnClick event of a command button (or double-click event
'of a label or graphic) named "bDisableBypassKey"
'Change the "TypeYourBypassPasswordHere" default password to your password
Private Sub bDisableBypassKey_Click()
On Error GoTo Err_bDisableBypassKey_Click
'This ensures the user is the programmer needing to disable the Bypass Key
Dim strInput As String
Dim strMsg As String
Beep
strMsg = "Do you want to enable the Bypass Key?" & vbCrLf & vbLf & _
"Please key the programmer's password to enable the Bypass Key."
strInput = InputBox(Prompt:=strMsg, title:="Disable Bypass Key Password")
If strInput = "password" Then
SetProperties "AllowBypassKey", dbBoolean, True
Beep
MsgBox "The Bypass Key has been enabled." & vbCrLf & vbLf & _
"The Shift key will allow the users to bypass the startup & _options the next time the database is opened.", _
vbInformation, "Set Startup Properties"
Else
Beep
SetProperties "AllowBypassKey", dbBoolean, False
MsgBox "Incorrect ''AllowBypassKey'' Password!" & vbCrLf & vbLf & _
"The Bypass Key was disabled." & vbCrLf & vbLf & _
"The Shift key will NOT allow the users to bypass the & _startup options the next time the database is opened.", _
vbCritical, "Invalid Password"

Exit Sub
End If
Exit_bDisableBypassKey_Click:
Exit Sub
Err_bDisableBypassKey_Click:
MsgBox "bDisableBypassKey_Click", Err.Number, Err.Description
Resume Exit_bDisableBypassKey_Click
End Sub
'***************** Code End ***************

[hansup]

InputBox has limited features. I don't believe there is any way to apply a password-style input mask for it.

If you want the stars, build a form with a text box control for the password and set its Input Mask property to Password.

[HiTechCoach]

hansup is correct. The input box does not have this option. You will need to use a form for what you want. In addition to what hansup recommended, I would add that you will also want to open the form in dialog mode.

[winxmun]

Dear All,

noted with thanks! =)

[HiTechCoach]

You're welcome.

Glad we could assist.