Code:
' Check boxes for criteria defined as
' not mutually exclusive - dir
' See if any checkboxes are checked.
Set col = New Collection
For Each m_ctl In Me.Controls
With m_ctl
If .ControlType = acCheckBox Then
If Me.Check171.Value = True The
col.Add m_ctl
End If
End If
End With
Next m_ctl
This won't work. You need the m_ctl variable. This is saying:
If control(x) is a checkbox, and Check171 is checked, add checkbox(x) to the collection, whether or not its checked. If Check171 isn't checked, don't add any checkboxes to the collection, including Check171.
Bob