how to filter a listbox

[sven2]

Hello,

I am trying to filter a listbox with rhe folowing code:

strSQL = " SELECT KlantID, Klantnaam, Actief " & _
" FROM TblOpzoekenKlanten " & _
" WHERE (((TblOpzoekenKlanten.klantnaam) Like '*(me.txtzoeken.value)*' )"
Me.lstklanten.RowSource = strSQL

But this doesn't do anything at all ...
What is wrong with this code?

Before I forget to mention:
it is an adp project connected with sql server.

Thanks in advance,
Sven.

 

[khawar]

Add one line after your code

Me.lstklanten.requery



Khawar

 

[sven2]

Hello,

I have made the change, but even then it is not working. I get no error but the list is always empty when I fill something in ...

strSQL = " SELECT KlantID, Klantnaam, Actief " & _
" FROM TblOpzoekenKlanten " & _
" WHERE (((TblOpzoekenKlanten.klantnaam) Like '*(me.txtzoeken.value)*' )"
Me.lstklanten.RowSource = strSQL
Me.lstklanten.Requery

Sven.

 

[khawar]

change the line as below

" WHERE (((TblOpzoekenKlanten.klantnaam) Like '*' " & me.txtzoeken.value & "'*' )"

and tell me is it working now




Khawar

 

[sven2]

Hello,

no, it isn't working.
the msgbox is showing the following (see attachment).

Sven.

 

[khawar]

try this

" WHERE (((TblOpzoekenKlanten.klantnaam) Like '*''" & me.txtzoeken.value & "''*' )"

 

[Locky123]

It's about you quotes marks I think Sven - try this

WHERE TblOpzoekenKlanten.klantnaam Like " & Chr$(34) & "*" & me.txtzoeken.value & "*" & Chr$(34)

I try to use Chr$(34) when putting the quotes in the string to keep them distinct from the double quotes delimiting the string.

Hope this helps.