This should be an easy one but I am not 100% sure how to do it.
I have written the following code on a command button to set up a basic password for deleting current record. What I really want to do is hide the password being typed into the input box with asterix's. Here is the current code and password:
Private Sub Toggle33_Click()
Dim strPasswd
strPasswd = InputBox("Enter Password", "Restricted Form")
If strPasswd = "" Or strPasswd = Empty Then
MsgBox "No Input Provided", vbInformation, "Required Data"
Exit Sub
End If
If strPasswd = "Oxy123" Then
DoCmd.RunCommand acCmdDeleteRecord
Else
MsgBox "Sorry, you do not have access to delete record", _
vbOKOnly, "Important Information"
Exit Sub
End If
End Sub
I have written the following code on a command button to set up a basic password for deleting current record. What I really want to do is hide the password being typed into the input box with asterix's. Here is the current code and password:
Private Sub Toggle33_Click()
Dim strPasswd
strPasswd = InputBox("Enter Password", "Restricted Form")
If strPasswd = "" Or strPasswd = Empty Then
MsgBox "No Input Provided", vbInformation, "Required Data"
Exit Sub
End If
If strPasswd = "Oxy123" Then
DoCmd.RunCommand acCmdDeleteRecord
Else
MsgBox "Sorry, you do not have access to delete record", _
vbOKOnly, "Important Information"
Exit Sub
End If
End Sub