If vs If Not (One works the other doesn't)

[Vonik]

Why don't both of these pieces of code work, when I enter No into the combo box? :banghead:

This code works.

If Me.ComboBillable = "Yes" Or Me.ComboBillable = "No" Then
Else
    MsgBox "You must choose an Appropriate Billing Option"
    Me.ComboBillable.BorderColor = RGB(255, 0, 0)
    Me.ComboBillable.SetFocus
    Exit Sub
End If

This code doesn't work.

If Not Me.ComboBillable = "Yes" Or Me.ComboBillable = "No" Then
    MsgBox "You must choose an Appropriate Billing Option"
    Me.ComboBillable.BorderColor = RGB(255, 0, 0)
    Me.ComboBillable.SetFocus
    Exit Sub
End If

Any help is greatly appreciated. Thanks.

 

[Mile-O]

The Not applies only to the first check.

If Me.ComboBillable <> "Yes" And Me.ComboBillable <> "No" Then

Or:

If IsNull(Me.ComboBillable) Then

 

[pbaldy]

Try

If Me.ComboBillable <> "Yes" And Me.ComboBillable <> "No" Then

 

[vbaInet]

Or:

If Not (Me.ComboBillable = "Yes" Or Me.ComboBillable = "No") Then

... but is this a Yes/No field? If it is then the Yes and No should be written without the quotes.

 

[Vonik]

The Not applies only to the first check.

Thanks, I figured it was something like that; however, this doesn't work either.

If Me.ComboBillable <> "Yes" Or Me.ComboBillable <> "No" Then
    MsgBox "You must choose an Appropriate Billing Option"
    Me.ComboBillable.BorderColor = RGB(255, 0, 0)
    Me.ComboBillable.SetFocus
    Exit Sub

Doesn't work either is it because Yes and No are text strings?

 

[pbaldy]

... but is this a Yes/No field? If it is then the Yes and No should be written without the quotes.

Did you miss the fact that the first version works, with quotes?

 

[vbaInet]

Did you miss the fact that the first version works, with quotes?

No, I was questioning that

 

[pbaldy]

Thanks, I figured it was something like that; however, this doesn't work either.

If Me.ComboBillable <> "Yes" Or Me.ComboBillable <> "No" Then
    MsgBox "You must choose an Appropriate Billing Option"
    Me.ComboBillable.BorderColor = RGB(255, 0, 0)
    Me.ComboBillable.SetFocus
    Exit Sub

Doesn't work either is it because Yes and No are text strings?

You missed that both Mile-o and I used And, not Or.

 

[Vonik]

Thanks for all the help and the parentheses worked.

If Not (Me.ComboBillable = "Yes" Or Me.ComboBillable = "No") Then
    MsgBox "You must choose an Appropriate Billing Option"
    Me.ComboBillable.BorderColor = RGB(255, 0, 0)
    Me.ComboBillable.SetFocus
    Exit Sub
End If

Any thoughts on why this didn't work?

If Me.ComboBillable <> "Yes" Or Me.ComboBillable <> "No" Then

 

[pbaldy]

See post 8.

 

[Vonik]

You missed that both Mile-o and I used And, not Or.

Oh i see that now thanks for all the help!