Query with multi listbox 1

[Domino2]

I am trying to get my where statement to work in a query where the where clause gets values from a multi select listbox.

For i = 0 To List14.ListCount - 1
If List14.Selected(i) Then
strIN = strIN & "'" & List14.Column(0, i) & "',"
End If
Next i

strWhere = " WHERE [ID3] in (" & Left(strIN, Len(strIN) - 1) & ")"

strSQL = "SELECT PARTNERS.ID1, ACTIVITIES.ID3, PROGRESS.ID4, PARTNERS.Partner, ACTIVITIES.[Date Raised],"
strSQL = strSQL & " ACTIVITIES.[Date Closed], ACTIVITIES.Status, ACTIVITIES.Type, ACTIVITIES.RequestedBy,"
strSQL = strSQL & " PROGRESS.[Updated On], PROGRESS.Something1, PROGRESS.Something2, PROGRESS.Something3"
strSQL = strSQL & " FROM (PARTNERS INNER JOIN ACTIVITIES ON PARTNERS.ID1 = ACTIVITIES.ID1) INNER JOIN PROGRESS ON ACTIVITIES.ID3 = PROGRESS.ID3"
strSQL = strSQL & " WHERE ACTIVITIES.ID3 IN (" & Left(strIN, Len(strIN) - 1) & ")"

Trying to replace my one line/value with whatever is selected in List14.

'strSQL = strSQL & " WHERE ACTIVITIES.ID3=329;"

Can someone point me in the right direction?

 

[Domino2]

Sorry this line should have been remed out
strWhere = " WHERE [ID3] in (" & Left(strIN, Len(strIN) - 1) & ")"

 

[PHV]

Replace this:
strIN = strIN & "'" & List14.Column(0, i) & "',"
with this ?
strIN = strIN & List14.Column(0, i) & ","

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Domino2]

Many thanks, that works now, very appreciated