Multiple IF-Then-Else Statement...PLEASE HELP

[royalrochelle]

Can someone please guide me in the right direction with this problem that I am having? I am working on a multiple IF-Then-Else statement but I can’t seem to get it to work properly. Here are three different If-Then-Else statements that I have tried:
Example 1:
If Me.txtEliAge > "18" Then
Me.txtDemEligible = "Yes"
Else


Me.txtDemEligible = "No"
End If
If Me.txtEliLiving <> "3" Then
Me.txtDemEligible = "Yes"
Else
Me.txtDemEligible = "No"
End If
If Me.txtEliERReason <> “2” then
Me.txtDemEligible = “Yes”
Else
Me.txtDemEligible = “No”
End If

Example 2:
If Me.txtEliAge > "18" or Me.txtEliLiving <> "3 or Me.txtEliERReason <> “2” Then
Me.txtDemEligible = "Yes"
Else
Me.txtDemEligible = "No"
End If

Example 3:
If Me.txtEliAge > "18" Then

If Me.txtEliLiving <> "3" Then
If Me.txtEliERReason <> “2” then
Me.txtDemEligible = "Yes"
Else
Me.txtDemEligible = "No"
End If
End If
End If

The 1st and 3rd example seemed to work the best but once I added the third If which is “If me.txtEliERReason <> “2” then”, it doesn’t give me the result I am looking for. What am I doing wrong?

[orange]

Example 2 seems ok if you add the "
Example 2:
If Me.txtEliAge > "18" or Me.txtEliLiving <> "3" or Me.txtEliERReason <> “2” Then
Me.txtDemEligible = "Yes"
Else
Me.txtDemEligible = "No"
End If

[royalrochelle]

Thanks for pointing that out Orange and a big thank you for your fast reply. I do have that for the code but I just forgot to add that here. Sorry about that but even with the proper quotation marks I still get the same problem

[dreday]

You might want to try adding some parenthesis just to keep things straight -

Example 2:
If ((Me.txtEliAge > "18") or (Me.txtEliLiving <> "3") or (Me.txtEliERReason <> “2”))
Then
Me.txtDemEligible = "Yes"
Else
Me.txtDemEligible = "No"
End If

[royalrochelle]

Thanks dreday! I just tried it but it does not work. For some reason it doesn't even recognize the word Or which is really frustrating me.

[dreday]

Hmmmm, very odd. Can you post a screenshot of the if/then statement in your VBA code? Maybe that will have some extra info in it.

[royalrochelle]

[IMG]file:///C:/DOCUME%7E1/sw337/LOCALS%7E1/Temp/moz-screenshot.png[/IMG][/IMG]

I hope this works. Its the one that starts with Private Sub cmdOpenRelationships_Click()

[royalrochelle]

Shoot! It didn't work. I will try again

[royalrochelle]

Its the one that starts with Its the one that starts with Private Sub cmdOpenRelationships_Click()

[dreday]

Try removing the quotes since you're doing a numeric comparisons with the > symbol and the <> symbol. You can also force the text boxes into numeric format with cInt() and account for NULL with nz()

Example 2:
If ((cint(nz(Me.txtEliAge,0)) > 18) Or (cint(nz(Me.txtEliLiving,0)) <> 3) Or (cint(nz(Me.txtEliERReason,0)) <> 2)) Then
Me.txtDemEligible = "Yes"
Else
Me.txtDemEligible = "No"
End If

Hope this one works!

[royalrochelle]

Thanks so much for your help dreday. I removed the quotations and that did help a lot but I had to change some of the coding to get it to work. Instead of:

If Me.txtEliAge > 18 Or Me.txtEliLiving <> 3 Or Me.txtEliERReason <> 2 Then
Me.txtDemEligible = "Yes"
Else
Me.txtDemEligible = "No"
End If

I had to write:
If Me.txtEliAge < 18 Or Me.txtEliLiving = 3 Or Me.txtEliERReason = 2 Then
Me.txtDemEligible = "No"
Else
Me.txtDemEligible = "Yes"
End If

and it worked like a charm! Thank you so much for your help

[dreday]

Awesome, happy to help!