Asterisk in Inputbox

  • Thread starter Thread starter Dave
  • Start date Start date
D

Dave

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

Code: 
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
 
There is a format wizard which allows you to present the info as a series of
astericks.
 
How do I apply that to an Inputbox?

Mike Painter said:
There is a format wizard which allows you to present the info as a series
of astericks.
Dave said:
I am using this code to password protect (such as it is) the opening
of a form

Code: 
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
Click to expand...
Click to expand...
 
Back
Top