bypasskey for 2007

accs

New member
Local time
Today, 06:00
Joined
Aug 26, 2014
Messages
9
ive tried few codes on net but im not lucky to make it work ive searched in this forum but still not lucky.

what i wanted to do is to change the bypass key to different key or give me an option to input password before the bypass key to work

or any suggestion that will make my access secure .



thanks and this forum rocks , you are always helpful to me
 
I generally use a standard password form to authorize my criteria.
frmpasswordadmin
Text0 for the password field
chkpswd for the command button to verify password.
Then using the OnClickEvent
Of course adjust code to suit your needs,i.e. form name and criteria.

If IsNull(Forms!frmpasswordadmin!Text0) Then 'No Blank passwords allowed
MsgBox "You cannot enter a blank Password. Try again."
Me!Text0.SetFocus
Else
'No More Than 3 Attempts Allowed
If Me.LIChk > 2 Then
MsgBox "You may not make more than three Password entry attempts.", vbCritical + vbOKOnly, "Oops!"
DoCmd.Close acForm, "frmpasswordadmin"
ElseIf IsNull(DLookup("pw", "tblUserSecurity", "pw='" & Me.Text0 & "'")) Then
Me.LIChk = Me.LIChk + 1
MsgBox "The Password you entered is incorrect." & vbCrLf & _
"Please enter your correct Password or contact your Application " & _
"Administrator.", vbOKOnly, "Password " & Me.Text0.Value & " Incorrect"
Else
If Forms!frmpasswordadmin!Text0 = "password" Then
DoCmd.SetWarnings False
DoCmd.SelectObject acForm, "frm1"
Forms![frm1]![AuthorityCode].Enabled = True
DoCmd.SetWarnings True
DoCmd.Close acForm, "frmpasswordadmin"
Else
'do something for other users

End If
End If
End If

HTH
 
thanks for the rep.

but i already have the log in form.

what i wanted to change is the default bypass key.

can you please give me codes to change the bypass key or changing the set up to access the bypasskey.

thanks
 

Users who are viewing this thread

Back
Top Bottom