Hi All,
I have a form called frmLogon.......whcih has a Unbound combo box(User Name)
Unbound Text
box(Password)
Command Button (Login)
The Source for this form is the tblEmployee Table......
the fields are.....
lngEmployee_ID strEmployee_Name strPassword strAccess_Level
1 Pradeep Pradeep M
2 Reddy Reddy T
So I can able to log in using the below code but I want to put the user
access level after log in ,,,because I have form1,form2,form3,form4.
Here Pradeep has access to all the forms.....Reddy has access to form1 and
form2...
I am posting my code....any help please...I guess Understand my problem above
mentioned......
Option Compare Database
Private intLogonAttempts As Integer
Option Explicit
Private Sub cboEmployees_AfterUpdate()
'After selecting user name set focus to password field
Me.txtPassword.SetFocus
End Sub
-----------------------------------------------------------------
Private Sub cmdLogin_Click()
Dim lngMyEmployee_ID As Long
'Check to see if data is entered into the UserName combo box
If IsNull(Me.cboEmployees) Or Me.cboEmployees = "" Then
MsgBox "You must enter a User Name.", vbOKOnly, "Required Data"
Me.cboEmployees.SetFocus
Exit Sub
End If
'Check to see if data is entered into the password box
If IsNull(Me.txtPassword) Or Me.txtPassword = "" Then
MsgBox "You must enter a Password.", vbOKOnly, "Required Data"
Me.txtPassword.SetFocus
Exit Sub
End If
'Check value of password in tblEmployees to see if this matches value chosen
in combo box
If Me.txtPassword.Value = DLookup("strPassword", "tblEmployee",
"[lngEmployee_ID]=" & Me.cboEmployees.Value) Then
lngMyTester_ID = Me.cboEmployees.Value
'Close logon form and open splash screen
DoCmd.Close acForm, "frmLogon", acSaveNo
DoCmd.OpenForm "form1"
Else
MsgBox "Password Invalid. Please Try Again", vbOKOnly, "Invalid Entry!"
Me.txtPassword.SetFocus
End If
'If User Enters incorrect password 3 times database will shutdown
intLogonAttempts = intLogonAttempts + 1
If intLogonAttempts > 3 Then
MsgBox "You do not have access to this database. Please contact your
system administrator.", vbCritical, "Restricted Access!"
Application.Quit
End If
End Sub
---------------------------------------------------------------------------------------
Private Sub Form_Open(Cancel As Integer)
'On open set focus to combo box
Me.cboEmployees.SetFocus
End Sub
---------------------------------
See the all-new, redesigned Yahoo.com. Check it out.
[Non-text portions of this message have been removed]
------------------------ Yahoo! Groups Sponsor --------------------~-->
See what's inside the new Yahoo! Groups email.
http://us.click.yahoo.com/2pRQfA/bOaOAA/yQLSAA/q7folB/TM
--------------------------------------------------------------------~->
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/ms_access/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
