I developed some database and I put the password on the delete command button. So in order to delete we have to enter password. But I am unable to apply on Save Command Button.. Any other technique ?
Code for Password Delete Button:
Private Sub Delete_Click()
Dim strPassword
strPasswd = InputBox("Enter Password", "Restricted Access")
If strPasswd = "" Or strPasswd = Empty Then
MsgBox "No Input Provided", vbInformation, "Required Data"
Exit Sub
End If
If strPasswd = "ESWErase" Then
Me.Recordset.Delete
Else
MsgBox "Sorry you do not have access to override", _
vbOKOnly, "Important Information"
Exit Sub
End If
End Sub