Private Sub Refilter()

Dim strFilterString As String

'BUILD THE FILTER STRING:
If Form_002_Criteria.CKNFixer = True Then
    strFilterString = strFilterString & " OR [NFixer] = True"
End If

If Form_002_Criteria.CkSun = True Then
    strFilterString = strFilterString & " OR [TolerantSun] = True"
End If

'REMOVE LEADING " OR " ON FILTER STRING:
If strFilterString <> "" Then strFilterString = Mid(strFilterString, 5)

'APPLY FILTER STRING TO Form_003_Species.ListSciName:
If strFilterString <> "" Then
    Form_003_Species.Filter = strFilterString
    Form_003_Species.FilterOn = True
Else
    Form_003_Species.Filter = ""
    Form_003_Species.FilterOn = False
End If

End Sub

Select all