Log in Code Help

[HYKE]

Helle there,

I found this code in the net and copied it to my current project in ms access ( I am a beginner ) however there is one particular line that is not working. I want lo load navigation form when the user login is successful but nothing is happening no matter how many times I click the okay button. can somebody help figure out the error in the code?

Option Compare Database

Private intLogAttempt As Integer
Private Sub cboUser_AfterUpdate()
txtPassword.SetFocus
End Sub
Private Sub cboUser_GotFocus()
    cboUser.Dropdown
End Sub
Private Sub cmdExit_Click()

    Response = MsgBox("Do you want close this application?", vbYesNo + vbQuestion, "Quit Application")
    
    If Response = vbYes Then
        Application.Quit
    End If

End Sub
Private Sub cmdLogin_Click()
    Call Login
End Sub
Private Sub cmdLogin_Enter()
    Call Login
End Sub
Public Sub Form_Load()
    
'    txtFocus.SetFocus 'txtFocus is a textbox control with height, widht and positions set to zero
    
End Sub
Public Sub Login()
On Error GoTo ErrorHandler:

    If IsNull([cboUser]) = True Then 'Check UserName
        MsgBox "Username is required", vbExclamation, "Emerging Market Service Dept Database"
        
    ElseIf IsNull([txtPassword]) = True Then 'Check Password
        MsgBox "Password is required"
        
    Else
    
        'Compare value of txtPassword with the saved Password in tblUser
        If Me.txtPassword.Value = DLookup("Password", "tblUsers", "[UserName]='" & Me.cboUser.Value & "'") Then
            strUser = Me.cboUser.Value 'Set the value of strUser declared as Global Variable
            strRole = DLookup("Role", "tblUsers", "[UserName]='" & Me.cboUser.Value & "'") 'set the value of strRole declared as Global Variable
            DoCmd.Close acForm, "frmLogin", acSaveNo
            MsgBox "Welcome Back, " & strUser, vbOKOnly, "Welcome"
            DoCmd.OpenForm "frmNavigation", acNormal, "", "", , acNormal
            
        Else
            MsgBox "Invalid Password. Please try again.", vbOKOnly, "Invalid Password"
            intLogAttempt = intLogAttempt + 1
            txtPassword.SetFocus
    
        End If
    
    End If
    
    'Check if the user has 3 wrong log-in attempts and close the application
    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

Thanks!

 

[SydneyGeek]

try changing this line:

            DoCmd.Close acForm, "frmLogin", acSaveNo

to

            Me.Visible = False

Once you close the form on which the code is running, you stop the procedure. By hiding the form you can continue to use the form and display somethning else in its place.

Note: When you hide a form instead of closing it, be sure to actually close it once the procedure has finished running. Otherwise you will get an error when you try to launch an alreday open form. So, make sure that you have the Close statement just before the End Sub or that you check for the presence of the form before you open it again.

Denis

 

[HYKE]

Hi,

did as what you advised, changed the code to

 Me.Visible = False

but still the code is not closing the form and not loading the other form as well

 

[SydneyGeek]

Does the MsgBox display when you run the code? If not, you are getting an error and the routine is exiting.
Try putting some code around the error handler --
Chenge this

ErrorHandler:
 
End Sub

To this

    Exit Sub
ErrorHandler:
    MsgBox "Error " & Err.Number & "; " & Err.Description
 
End Sub

Denis

 

[HYKE]

Hi Denis,

The msgbox displays this error:

Error 2471 : The expression you entered as a query parameter produced this error: 'Role'

Thanks,
HYKE

 

[SydneyGeek]

This line is looking for a Role in tblUsers.

            strRole = DLookup("Role", "tblUsers", "[UserName]='" & Me.cboUser.Value & "'") 'set the value of strRole declared as Global Variable

Do you have such a field? If not, comment out that line and see how you go.

Denis