Go to:
http://www.databasedev.co.uk/disable_shift_bypass.html
to discover how to disable the shift by-pass key. It may look a bit daunting
at first but it really isn't that difficult.
To initiate a password, create a button, make it the way you want it to look
and put the following code into either a "click" or "double click" event.
Choose a password and put it where it says "YOUR PASSWORD HERE".
Dim strPasswd
strPasswd = InputBox("This is a restricted form for updating pay rate
information. Only the administrator has permission to do this", "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 Employees form
'If incorrect password entered give message and exit sub
If strPasswd = "YOUR PASSWORD HERE" Then
DoCmd.OpenForm "Empl Rate", acNormal
Else
MsgBox "Sorry, you do not have access to this form", _
vbOKOnly, "Important Information"
Exit Sub
End If