Private Sub BtnPotential_Click()

    Dim strFilterString As String

    If Me.CKNFixer = True Then
        strFilterString = strFilterString & " OR [NFixer] = True"
    End If

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

    If strFilterString <> "" Then strFilterString = Mid(strFilterString, 5)
    
    If strFilterString <> "" Then
        Forms("003_Species").ListSciName.RowSource = "SELECT * FROM [qSciName] WHERE " & strFilterString
    Else
        Forms("003_Species").ListSciName.RowSource = "qSciName"
    
    If strFilterString <> "" Then
        Forms("003_Species.ListSciName").Filter = strFilterString
        Forms("003_Species.ListSciName").FilterOn = True
    Else
        Forms("003_Species.ListSciName").Filter = ""
        Forms("003_Species.ListSciName") = False
    End If
    Forms("003_Species.ListSciName").Requery
    
End Sub

Select all