Password

[Nick]

The following code allows me to access my database back-end as I have the
Shift-Enter function disabled. However, when I enter in my password, it
displays alphanumeric characters rather than "*".

Does anyone know how to modify this? No big deal, as I am the only one who
knows where to trigger the event, but you can never be too safe. As well, I
would like to learn.

Thank you. As always, your expert help is appreciated.

Nick C.

Private Sub BDisableBypassKey_DBLClick(Cancel As Integer)
On Error GoTo Err_BDisableBypassKey_DBLClick

'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 = "siteadmin" 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_DBLClick:
Exit Sub
Err_BDisableBypassKey_DBLClick:
MsgBox "bDisableBypassKey_DBLClick", Err.Number, Err.Description
Resume Exit_BDisableBypassKey_DBLClick
End Sub

 

[Rowland]

Nick,

an input box can not be masked with "*"'s, what you need
to do is make another form with a text field, and in the
inputmask part of the properties for that text field, type
password. that will hide your letters and make
them "*"'s. I tried the same think you did using the
InputBox and couldn't figure out how to hide, it, and I
took the same route you did, I came here to find out how,
and got that answer, you can't with an input box.

Rowland