Private Sub Command4_Click()
    Dim strFilterString As String
    If Me.chk1 = True Then
        strFilterString = strFilterString & " OR [FolderSizeDenied]=True"
    End If
    If Me.chk2 = True Then
        strFilterString = strFilterString & " OR [SubfoldersDenied]=True"
    End If
    If strFilterString <> "" Then strFilterString = Mid(strFilterString, 5)
    If strFilterString <> "" Then
        Forms("CheckBoxFilterTest2").Filter = strFilterString
        Forms("CheckBoxFilterTest2").FilterOn = True
    Else
        Forms("CheckBoxFilterTest2").Filter = ""
        Forms("CheckBoxFilterTest2").FilterOn = False
    End If
    Forms("CheckBoxFilterTest2").Requery
End Sub

Select all