Help Needed in Login Form Codes

[Nashaath]

I want to create a login screen where different users are directed to different forms on successful login. The code I wrote does not open any from on successful login. I am new to access, I need help in solving this problem. Thank you in advance.
Here is the code

 
Option Compare Database
Private intLogAttempt As Integer
Private Sub cboUser_GotFocus()
cboUser.Dropdown
End Sub
Private Sub close_form_click()
    Response = MsgBox("Do you want to close this application?", vbYesNo + vbQuestion, "Quit Application")
    
    If Response = vbYes Then
    Application.Quit
    End If
End Sub

Private Sub cmdOK_Click()
Call Login
End Sub

Public Sub frm_load()
txtFocus.SetFocus
End Sub

Public Sub Login()
On Error GoTo ErrorHandler:

If IsNull([cboUser]) = True Then
MsgBox "Username is required"

ElseIf IsNull([Password]) = True Then
MsgBox "Password is required"

Else

If Me.Password.Value = DLookup("Password", "user", "[UserID]='" & Me.cboUser.Value & "'") Then

strUser = Me.cboUser.Value
strRole = DLookup("access_level", "user", "[UserID]'" & Me.cboUser.Value & "'")
DoCmd.Close acForm, "frmLogin", acSaveNo
MsgBox "Welcome Back, " & strUser, vbOKOnly, "Welcome"
DoCmd.OpenForm "admin_menu", acNormal, "", "", , acNormal

Else
MsgBox "Invalid Password. Please try again.", vbOKOnly, "Invalid Password"
intoLogAttempt = intLogAttempt + 1
Password.SetFocus

End If
End If

If intLogAttempt = 3 Then
MsgBox "You do not have access to this database.Please contact admin." & vbCrLf & vbCrLf & _
        "Application will exit.", vbCritical, "Restricted Access!"
Application.Quit
End If

ErrorHandler:

End Sub

[Bob Fitz]

Try:
DoCmd.OpenForm "admin_menu"
Or:
DoCmd.OpenForm "admin_menu", acNormal, , , , acNormal
Instead of:
DoCmd.OpenForm "admin_menu", acNormal, "", "", , acNormal

[Nashaath]

it doesn't work. tried 2 options u gave.

[JeroenMioch]

Well i made a login system very similair to yours.
I didnt check all of it but the line responcible for checking the password is the same but for a few details.
Perhaps these details are the key.

If Me.Password = DLookup("Password", "user", "UserID = '" & Me.cboUser.Value & "'") Then

I also see call login, what does that do ?

[Bob Fitz]

1)What is the purpose of this line:
strRole = DLookup("access_level", "user", "[UserID]'" & Me.cboUser.Value & "'")
and what happens if you remove it.
2)If you step through the code, what happens when it gets to the line that should open the form.

[Nashaath]

call login, calls the function Public Sub login ()

[JeroenMioch]

Did you try the modified line i gave ?

[JeroenMioch]

What format is your UserID field in your table ?
Is it Autonumber ?, Text ?, Number ?

[Nashaath]

yea i did try with the code you gave. but no luck yet.

UserID field is Text

[Nashaath]

i've uploaded my db...here is the link..please help to solve my problem... i need to login with three different level of users to three different forms..

http://www.midupload.com/nhqnjzg9zva0

[JeroenMioch]

Well that rules out that the line to check for the password is fault.
Im beginning to think that your misplacing an "if" "else" or "elseif".

I basicly have the same login system and mine works.

Try to strip the code to that what is nessecary. WITHOUT the check for empty strings in the username and password.
Just check for the password and then open the form in its basics like this :

If Me.Password.Value = DLookup("Password", "user", "[UserID]='" & Me.cboUser.Value & "'") Then
docmd.openform "admin_menu"

[JeroenMioch]

Ohh the surf protecting of my work disables the content of your database
Im really curious where your problem is haha.

[Bob Fitz]

Can you attach a copy of your db in mdb (A2003) format.

[Nashaath]

cannot convert it to earlier versions. due to macros

[Nashaath]

http://www.midupload.com/d209qqqcvgbu