Get values from a text box into a query

[KylieReed]

Hi,
I have a query that I would like run by getting multiple values from a list box. I use a for loop to get the values and put them in a text box, which the query then refers to.
The problem is when I manually type the values from the text box into the query, the query runs fine but it won't run when its referring to the same values in the in the text box even though they are the same.

Any help is appreciated.

If CheckifRowisSelected = True Then
For intCurrentRow = 0 To Me.listbox.ListCount - 1
If lstTerm.Selected(intCurrentRow) = True Then 'Check if the row is selected
QueryValues= Me.listbox.Column(0, intCurrentRow) & " or "
End If
Next
If Len(QueryValues > 0 Then
Me.textbox = Left(QueryValues, Len(QueryValues) - 4)
End If
End If



Many thanks

[orange]

What is the SQL rendered by Access?
Do a Debug.print me.textbox and/or Debug.print QueryValues to see what Access thinks these values are.

[Micron]

And the data types. Access query design will add quotes or date delimiters (#) automatically, but VB won't. You have to concatenate delimiters manually.

[KylieReed]

Thank you. The data type is integer and the values I'm trying to get to work have an or between them. ie 1 or 2 or 3. I have concatenated the delimiters for the for the integers but it doesn't like the or. Is there something I need to do to this too?

[Micron]

you didn't follow the suggestion of orange in post #2...

I have concatenated the delimiters for the for the integers

I dont' follow (maybe because you didn't post as requested). Numbers don't need delimiters.

My guess: swap " or " for "," and change Left(QueryValues, Len(QueryValues) - 4) to "IN(" & Left(QueryValues, Len(QueryValues) - 1) & ")" including all quotation marks. I assume you're referencing this form control value in a query WHERE clause.