If Statement Ignores Boolean Values in Access VBA

[davegri]

@Micron said:

I don't know what you read on this subject but I've read lots of stuff where people don't know what they're talking about

And that certainly includes ChatGPT!!

[June7]

Micron, unbound controls do not ignore DefaultValue setting. Try it.

[gr8dane]

Even with default values, when the form is opened are these controls not grey (not selected, and not white)? If they are, their values are Null, not whatever your default property value is.

No, they are never gray. They are always either white or selected.

[gr8dane]

Your symptoms are exactly as described If cboCat is > 0 for Case 2 or Case 3

OK, I've added lngCatID to the first MsgBox. I also tried editing my original post to add two additional cases, where I'm selecting cboCat as well as either chkA or chkB, but I couldn't, so here they are:

  ElseIf (lngCatID > 0) And (blnA = True) And (blnB = False)  Then  'Case 4
     strFilter = "CatID = " & lngCatID & " AND A = " & blnA
  ElseIf (lngCatID > 0) And (blnA = False) And (blnB = True)  Then  'Case 5
     strFilter = "CatID = " & lngCatID & " AND B = " & blnB

These are the results I get for the first and second MsgBoxes:

Case 1: "1 False False"  "CatID = 1"
Case 2: "0 True False"   blank
Case 3: "0 False True"   blank
Case 4: "1 True False"   "CatID = 1 AND A = True"
Case 5: "1 False True"   "CatID = 1 AND B = True"

In cases 1, 4 and 5 the form filtering occurs properly; no filtering occurs in cases 2 & 3.

[Micron]

@June7; I did. The checkbook was null when I opened the form.

[gr8dane]

Oooops!!! I just discovered a typo (> instead of =) in my code for cases 2 and 3. That's what happens when you copy/paste: errors get repeated. I had double- and triple-checked, but still missed it. Thanks for trying to help, everybody, and sorry for wasting your time. 8-(

[davegri]

Well, OK. Glad you found it.