Making simple login window 'dynamic'

[davidogutu]

Hello there, I am doing a school project and we haven't been taught lots of VBA.
To earn more marks, I copied this example (it's allowed-research) from databasedev.co.uk and I want to make the 'admin' to see a different form from the 'limited user'

You can download it from http://databasedev.co.uk/downloads/login.zip

I would appreciate the help.

Thanks in advance.

Here is the VBA code:

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", "[EmpID]=" & Me.cboEmployee.Value) Then
 
        lngMyEmpID = Me.cboEmployee.Value
 
'Close logon form and open splash screen
 
        DoCmd.Close acForm, "frmLoginForm", acSaveNo
        DoCmd.OpenForm "frmSelectLevelSwitch"
 
        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

[nico5038]

We don't do school projects, but I can give directions.
You'll need to add a test for "admin" in the code before opening a different form.
For getting the "admin marker" from the usertable you can use a DLookup like:
DLookup("IsAdmin", "tblEmployees", "[EmpID]=" & Me.cboEmployee.Value)

Success !

Nic;o)

[davidogutu]

Thanks Nico. I'll give it a try