Login Form Will Not Open next form once Ok is clicked please Help!

[DRAGONFABLE517]

Hi there I am kind of new to access, but i have worked with VB.net before and SQL so this VBA Language is Similar, BUT! I am stuck with something and it is wrecking my brain.
What is happening is that when the 'User' Enters username and password, they are correct, otherwise it will show an error, but it will not open the "Switchboard" to the user's access level i.e Customer or Admin the login form just sits there and does nothing.



The Ok button handles the user login and then checks the user's access level from there it Should open the next form and close itself but it does not.
P.S I was working on this today and realised that emails would double up so that is not a efficient way to login so im half way through changing to username, all the search queries with the username criteria work just the msg boxes haven't changed yet
Here Is My Code:

Private Sub Command1_Click()
Dim userlevel As Boolean
Dim Adminlevel As Boolean
userlevel = False
Adminlevel = False
If IsNull(Me.email1) Then
   MsgBox "Please Enter Your Email", vbInformation, "Email Required"
   Me.email1.SetFocus
ElseIf IsNull(Me.password1) Then
   MsgBox "Please Enter Password", vbInformation, "Password Required"
   Me.password1.SetFocus
Else
    If (IsNull(DLookup("[Username]", "Participants", "[Username] ='" & Me.email1.Value & "' and Password = '" & Me.password1.Value & "'"))) Then
       MsgBox "Incorrect Email Or Password"
    Else
       If DLookup("[Username]", "Participants", "[Username] ='" & Me.email1.Value & "' and [Usrlvl] ='" & User & "'") Then
          userlevel = True
          Adminlevel = False
       End If
       If DLookup("[Username]", "Participants", "[Username] ='" & Me.email1.Value & "' and [Usrlvl] ='" & Admin & "'") Then
          userlevel = False
          Adminlevel = True
       End If
       If Adminlevel = True Then
           DoCmd.Close acForm, Me.Name, acSaveNo
           DoCmd.OpenForm "Admin_Switchboard", acNormal
       ElseIf userlevel = True Then
           DoCmd.Close acForm, Me.Name, acSaveNo
           DoCmd.OpenForm "Switchboard user", acNormal
       End If
   End If
End If
End Sub

[June7]

Note that code is easier to read if it is indented. Use CODE tags in post and indentation will be preserved. I fixed your post.

Have you step debugged?

[thebigthing313]

I think you might be using DLookup wrong. There's no explicit comparison happening in your IF statements, i.e.
If DLookup(args) = SomeValue.

Without that, your DLookup If statements implicitly read,
If DLookup(args) = True

Is "Usrlevel" a field in the Participants table, and is it a Yes/No?

Because if so, you can just test for that:

If DLookup("UsrLvl", "Participants", "Username = '" & Me.email1.Value & "'") Then
     'code here
Else
     'code here
End If

In the future, you might want to look into naming conventions to avoid any problems caused by bad object names.

[June7]

thebigthing makes a good point. The first DLookup wrapped in IsNull Is appropriate.

[DRAGONFABLE517]

Thanks, i tried indenting it but it didn't seem to do it so i thought it didn't want it indented, that was before i found out there were Code Tags cheers

[June7]

Is issue resolved?

[DRAGONFABLE517]

no, unfortunately it is still doing what it was doing/is doing but ill try a couple more ideas before setting thread to solved

[Rawb]

In the code, you are referencing the variables User and Admin in your DLookups, but I'm not seeing them declared anywhere. If those are the actual values you're querying for, they need to be inside the quotes like so:

Private Sub Command1_Click()
Dim userlevel As Boolean
Dim Adminlevel As Boolean
userlevel = False
Adminlevel = False
If IsNull(Me.email1) Then
   MsgBox "Please Enter Your Email", vbInformation, "Email Required"
   Me.email1.SetFocus
ElseIf IsNull(Me.password1) Then
   MsgBox "Please Enter Password", vbInformation, "Password Required"
   Me.password1.SetFocus
Else
    If (IsNull(DLookup("[Username]", "Participants", "[Username] ='" & Me.email1.Value & "' and Password = '" & Me.password1.Value & "'"))) Then
       MsgBox "Incorrect Email Or Password"
    Else
       If DLookup("[Username]", "Participants", "[Username] ='" & Me.email1.Value & "' and [Usrlvl] ='User'") Then
          userlevel = True
          Adminlevel = False
       End If
       If DLookup("[Username]", "Participants", "[Username] ='" & Me.email1.Value & "' and [Usrlvl] ='Admin'") Then
          userlevel = False
          Adminlevel = True
       End If
       If Adminlevel = True Then
           DoCmd.Close acForm, Me.Name, acSaveNo
           DoCmd.OpenForm "Admin_Switchboard", acNormal
       ElseIf userlevel = True Then
           DoCmd.Close acForm, Me.Name, acSaveNo
           DoCmd.OpenForm "Switchboard user", acNormal
       End If
   End If
End If
End Sub