B
Brook
good day,
I have frmorders that I have one command button to open in Edit mode with
a password and another command button to open in preview only.
the following is my code for my password:
--- Begin Code ---
Private Sub Command10_Click()
Dim strPasswd
strPasswd = InputBox("Enter Password", "Restricted Form")
'Check to see if there is any entry made to input box, or if
'cancel button is pressed. If no entry made then exit sub.
If strPasswd = "" Or strPasswd = Empty Then
MsgBox "No Input Provided", vbInformation, "Required Data"
Exit Sub
End If
'If correct password is entered open Orders form
'If incorrect password entered give message and exit sub
If strPasswd = "alpha" Then
DoCmd.OpenForm "frmorders", acNormal
Else
MsgBox "Sorry, you do not have access to this form", vbOKOnly, "Important
Information"
Exit Sub
End If
End Sub
--- end code ---
What I would like to do/have is the password set up to only show " * "
astrix instead of the password... how is this possible?
thanks in advance..
Brook
I have frmorders that I have one command button to open in Edit mode with
a password and another command button to open in preview only.
the following is my code for my password:
--- Begin Code ---
Private Sub Command10_Click()
Dim strPasswd
strPasswd = InputBox("Enter Password", "Restricted Form")
'Check to see if there is any entry made to input box, or if
'cancel button is pressed. If no entry made then exit sub.
If strPasswd = "" Or strPasswd = Empty Then
MsgBox "No Input Provided", vbInformation, "Required Data"
Exit Sub
End If
'If correct password is entered open Orders form
'If incorrect password entered give message and exit sub
If strPasswd = "alpha" Then
DoCmd.OpenForm "frmorders", acNormal
Else
MsgBox "Sorry, you do not have access to this form", vbOKOnly, "Important
Information"
Exit Sub
End If
End Sub
--- end code ---
What I would like to do/have is the password set up to only show " * "
astrix instead of the password... how is this possible?
thanks in advance..
Brook