Asterisk in Inputbox

[Dave]

I am using this code to password protect (such as it is) the opening of a
form

Private Sub cndAdminArea_Click()

Dim password As String
Dim Answer As String

password = "admin"
Answer = InputBox("Enter Admin Password:  ", "Admin Confirmation",
"Enter Password")
If Answer = password Then
DoCmd.OpenForm "frmUpdate"
Else
MsgBox "You have not entered the correct password" & vbLf & _
"Please check the password and try again OR contact the real
Administrator"
Exit Sub
End If
End Sub

I would like the password as it is being typed in to show Asterisk's

I tried this with no luck.
InputBox.PasswordChar [=*]

Any suggestions on how to do this


OR - Alternatively

How to use a password table where the datatype of the password field has an
input mask for password


Any help here will be appreciated.

Thanks in advance
dave

 

[Mike Painter]

There is a format wizard which allows you to present the info as a series of
astericks.

 

[Dave]

How do I apply that to an Inputbox?

There is a format wizard which allows you to present the info as a series
of astericks.

I am using this code to password protect (such as it is) the opening
of a form

Private Sub cndAdminArea_Click()

Dim password As String
Dim Answer As String

password = "admin"
Answer = InputBox("Enter Admin Password:  ", "Admin Confirmation",
"Enter Password")
If Answer = password Then
DoCmd.OpenForm "frmUpdate"
Else
MsgBox "You have not entered the correct password" & vbLf & _
"Please check the password and try again OR contact the real
Administrator"
Exit Sub
End If
End Sub

I would like the password as it is being typed in to show Asterisk's

I tried this with no luck.
InputBox.PasswordChar [=*]

Any suggestions on how to do this


OR - Alternatively

How to use a password table where the datatype of the password field
has an input mask for password


Any help here will be appreciated.

Thanks in advance
dave

 

[Dave]

Thank you.

dave

You can't. You have to supply your own modal form if you want to use a
password input mask.