Access 2007 Login help

[menkenk]

Hello,

I am new to Access and I have created a database for my company. I found code for a login script online. The code I used is as follows.

Private Sub cmdLogin_Click()
 
'Check to see if data is entered into the UserName combo box
 
    If IsNull(Me.cboEmployee) Or Me.cboEmployee = "" Then
      MsgBox "You must enter a User Name.", vbOKOnly, "Required Data"
        Me.cboEmployee.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("strEmpPassword", "tblEmployees", _
            "[lngEmpID]=" & Me.cboEmployee.Value) Then
 
        lngMyEmpID = Me.cboEmployee.Value
 
        'Close logon form and open splash screen
 
        DoCmd.Close acForm, "frmLogon", acSaveNo
        DoCmd.OpenForm "frmSplash_Screen"
 
 
    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 admin.", _
               vbCritical, "Restricted Access!"
        Application.Quit
    End If
 
End Sub

I have created a Table called tblEmployees with the FIELDS of EmpID, EmpName, EmpPassword, and EmpUsertype. For the Usertype FIELD I inputted Admin or User for each person in the company. I need to have any user with Admin to be able to open a form that is specifically for admins, which I called frmSplash_Screen_Admin. Is there any way I could add to the existing code above? If not could anyone help me figure out how to do solve this issue?

Thank you.

[NeoPa]

Your data doesn't seem to match the code at all. The field names are different. You need to go through the code first to make sure it matches your names for all the objects (fields etc).

When that's completed, in place of line #30 put the following lines :

        If DLookup("[EmpUserType]", _
                   "[tblEmployees]", _
                   "[EmpID]=" & Me.cboEmployee) = "Admin" Then
 
            DoCmd.OpenForm "frmSplash_Screen_Admin"
        Else
            DoCmd.OpenForm "frmSplash_Screen"
        End If

Welcome to Bytes!

[menkenk]

Hello NeoPa,

I actually didn't notice that I didn't match the Field names on the code with my tables. Your advice worked perfectly for me. Thank you very much.

[NeoPa]

Very pleased to hear it.

Good luck with your project.