Private Sub Refilter()
    
    Dim strFilterString As String

    'BUILD THE FILTER STRING:
    If Forms("002_Criteria").CKNFixer.ControlSource = True Then
        strFilterString = strFilterString & " OR Forms!002_Criteria.NFixer = True"
    End If
    
    'REMOVE LEADING " OR " ON FILTER STRING:
    If strFilterString <> "" Then strFilterString = Mid(strFilterString, 5)
    
    'APPLY FILTER STRING TO 003_Species:
    If strFilterString <> "" Then
        Forms("003_Species").ListSciName.RowSource = "SELECT * FROM [qSciName] WHERE " & strFilterString
    Else
        Forms("003_Species").ListSciName.RowSource = "qSciName"
    End If

End Sub

Select all