login, how to send to different forms?

[behedwin]

Hey

I want a simple login screen for my access file.

I have it all working with users in a table.

this code works fine

    If Me.txtPassword.Value = DLookup("Password", "Access_Table", "[User_ID]=" & Me.txtUsername.Value) Then
 
        lngMyEmpID = Me.txtUsername.Value

'Close logon form and open splash screen
        
        DoCmd.Close acForm, "Login_Form", acSaveNo
        DoCmd.OpenForm "Main_Form"

        Else
        MsgBox "Password Invalid.  Please Try Again", vbOKOnly, "Invalid Entry!"
        Me.txtPassword.SetFocus
    End If

but i want to add another "if" statement if the login is correct.
I have a column in my access_table (where user info is stored) that is named "Role"

I want to send the user to different forms if he types in correct username and password.
If Role = Admin
go to xxxx form
If Role = User
go to yyyy form

how to ad this to my code?

 

[Micron]

DLookup the role. How to use depends on what the possibilities are. If many, assign to a variable and write a bunch of If blocks or a Select Case block.
Or, if only 2 possibilities:

If DLookup("Role", "Access_Table", "[User_ID]=" & Me.txtUsername.Value) = "User" Then
  DoCmd.OpenForm "yyyy"
Else
  DoCmd.OpenForm "xxxx"
End If

You don't need .Value to know the value of a text or combo box. It's the default property. Also, I try to avoid writing multiple instances of a reference such as Me.txtUsername. 1 or 2, OK. Otherwise,

Dim lngUsrID As Long <-looks to me like it should be a number, not text
lngUsrID = Me.txtUsername <- but the control name suggests it's text??

If DLookup("Role", "Access_Table", "[User_ID]=" & lngUserName)...

None of the above, nor your code, allows for the possibility that DLookup returns nothing