End of Statement Error Message

[qwerty]

I currently have this written in the code, I am assuming it is private sub, how would you make sure it is pointed to list box on Form B?

Private Sub Refilter()    
    Dim strFilterString As String


    'BUILD THE FILTER STRING:
    If Forms("002_Criteria").CKNFixer = True Then
        strFilterString = strFilterString & " OR NFixer ='True'"
    End If
    
    If Forms("002_Criteria").CkSun = True Then
        strFilterString = strFilterString & " OR TolerantSun ='True'"
    End If
    
    If Forms("002_Criteria").CKShade = True Then
        strFilterString = strFilterString & " OR TolerantShade ='True'"
    End If
    
    If Forms("002_Criteria").CKWind = True Then
        strFilterString = strFilterString & " OR TolerantWind ='True'"
    End If
    
    If Forms("002_Criteria").CkSalt = True Then
        strFilterString = strFilterString & " OR TolerantSalt ='True'"
    End If
    
    If Forms("002_Criteria").CkPollinator = True Then
        strFilterString = strFilterString & " OR Pollinator ='True'"
    End If
    
    If Forms("002_Criteria").CkNative = True Then
        strFilterString = strFilterString & " OR Native ='True'"
    End If
    
    If Forms("002_Criteria").CKIntroduce = True Then
        strFilterString = strFilterString & " OR introduce ='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

[pbaldy]

Can you attach the db here?

[pbaldy]

Your code should not have quotes around True.

[qwerty]

Your code should not have quotes around True.

I will try remove that, sent an email. Don't see any options to attach file.

[qwerty]

I have removed the quotes, still nothing happens

Private Sub Refilter()    
    Dim strFilterString As String


    'BUILD THE FILTER STRING:
    If Forms("002_Criteria").CKNFixer = True Then
        strFilterString = strFilterString & " OR NFixer = True"
    End If
    
    If Forms("002_Criteria").CkSun = True Then
        strFilterString = strFilterString & " OR TolerantSun = True"
    End If
    
    If Forms("002_Criteria").CKShade = True Then
        strFilterString = strFilterString & " OR TolerantShade = True"
    End If
    
    If Forms("002_Criteria").CKWind = True Then
        strFilterString = strFilterString & " OR TolerantWind = True"
    End If
    
    If Forms("002_Criteria").CkSalt = True Then
        strFilterString = strFilterString & " OR TolerantSalt = True"
    End If
    
    If Forms("002_Criteria").CkPollinator = True Then
        strFilterString = strFilterString & " OR Pollinator = True"
    End If
    
    If Forms("002_Criteria").CkNative = True Then
        strFilterString = strFilterString & " OR Native = True"
    End If
    
    If Forms("002_Criteria").CKIntroduce = True Then
        strFilterString = strFilterString & " OR introduce = 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

[pbaldy]

Sent instructions on how to attach.

[Micron]

Not sure why the last 2 -3 posts weren't visible when I wrote this. Oh well, best to let it stand I guess.
Good luck; you're in good hands, ryder214.

Agreed. To explain, 'True' or "True" would be a textual comparison. The value of the control and/or the data type of the field it is bound to would have to be text and contain the word "True".

True or Yes or On (no quotes) is a Boolean type and has the numeric value of -1 (or any other number except 0, depending on which way the conversion is happening - Boolean to numeric or vice versa). False/No/Off is always 0. Thus
OR NFixer = True or
OR NFixer = -1
should result in the same evaluation.

However, it is not recommended to utilize the numeric types in code in favor of the T/F values.

[qwerty]

Sent instructions on how to attach.

It is still not letting me attach. Do you have skype or gotomeeting?

[qwerty]

Sent instructions on how to attach.

I have attached the file

[pbaldy]

Steps to recreate issue?

[qwerty]

Steps to recreate issue?

What do you mean by steps to recreate the issue?

[moke123]

What do you mean by steps to recreate the issue?

I believe PBaldy means how does he find the relevant code in your database. What form should he be looking at?

No DB was posted. Did you send it privately to PBaldy?

Have you added any Debug.Print to see what your where clause resolves to or what the rowsource sql resolves to?

What is "qSciName"? a table or a query?

[pbaldy]

It was not sent privately, it has apparently been deleted from the post that contained it. Perhaps that means the issue is resolved...

Yes, I was after the steps required to cause the issue you're having. "Open form A, input 123 into textbox 1, click on button "blah".

[qwerty]

I thought you got the file, I will repost it. I apologize

[qwerty]

pbaldy...thank you the file has been attached and emailed to you