Filtering Table field in Form using Check Boxes

[glen17]

Good day everyone.
I am working with Ms Access. What I want to happen is to filter the Month field using the check boxes. When I check the Check boxez the Month field didn't filter the specific check box once I checked. Here's the picture and codes:

If (Me.chkJan = 0) Then
    If Not (Trim(strCriteria) = vbNullString) Then
        strCriteria = strCriteria & " AND "
    End If
    strCriteria = strCriteria & "NOT [Month_Name] = 'January'"
End If

Thanks

[NeoPa]

Try the following structure :

Private Function SetCriteria() AS String
    With Me
        If .chkJan Then _
            setCriteria = setCriteria & " AND ([Month_Name]='January')"
        If .chkFeb Then _
            setCriteria = setCriteria & " AND ([Month_Name]='February')"
        If .chkMar Then _
            setCriteria = setCriteria & " AND ([Month_Name]='March')"
        ...
        If .chkDec Then _
            setCriteria = setCriteria & " AND ([Month_Name]='December')"
    End With
    SetCriteria = Mid(setCriteria, 6)
End Function