If Then Else Multiple Criteria

[GrayWolf]

Hello,



I have a custom login page that works

On Error GoTo ErrorHandler:


    If IsNull([txtLogin]) = True Then 'Check if UserName is blank
        MsgBox "Please type in your ACF2 or login ID."
        
    Else
    
        'Compare value of txtLogin with the saved Logins in Users table and whether Active is "Yes".
        If Me.txtLogin.Value = DLookup("Login", "Users", "[Login]='" & Me.txtLogin.Value & "'") Then
            DoCmd.RunMacro "cmdOK"
            DoCmd.Close acForm, "Login", acSaveNo
            MsgBox "Welcome Back, " & strName, vbOKOnly, "Welcome"
            DoCmd.OpenForm "Main", acNormal, "", "", , acNormal
            
        Else
            MsgBox "Invalid Login or your Access has been Deactivated. Please try again.", vbOKOnly, "Invalid Password"
            intLoginAttempt = intLoginAttempt + 1
            txtLogin.SetFocus
                
        End If
    
    End If

This takes the value entered into the txtLogin control on the Login form and does a little dlookup into the Users Table to find if this txtLogin finds a match in the Login column on the Users table.

What I am having difficulty with is trying to add a second criteria to the "If" statement. Not only do I need to match the Login ID, but i have an Active column which has Yes or No beside each user to identify if they are active or not.

I need the "If" statement to look for a matching Login as I have above, plus look to see if that Login has 'Yes" in the Active column as well.

I tried this and It is not working, no debug error, just lets me log in if I have Yes or No.

 If Me.txtLogin.Value = DLookup("Login", "Users", "[Login]='" & Me.txtLogin.Value & "'") And Me.txtLogin.Value = DLookup("Login", "Users", "[Active]= Yes") Then

Suggestions?

[pbaldy]

As answered elsewhere, does this work?

If Me.txtLogin.Value = DLookup("Login", "Users", "[Login]='" & Me.txtLogin.Value & "' And [Active]= Yes") Then

[GrayWolf]

Thank you for your response. There was no difference. whether YES or NO I still logged right in.

[GrayWolf]

This Worked like a charm. Thank you

If Me.txtLogin.Value = DLookup("Login", "Users", "[Login]='" & Me.txtLogin.Value & "' And [Active]= 'Yes'") Then

[pbaldy]

No problem. As discovered elsewhere, the field is Text rather than Yes/No, so the single quotes were required around the value.

[pbaldy]

Monest, what is the purpose of all your posts? Are you preparing to spam? If you actually disagree, what with?

Edit: I found the user was spamming so deleted all posts.