Problème : Filtrer Listbox avec textbox

Version imprimable

Bonjour à tous,

J'essaye de filtrer dynamiquement une listbox grâce à un textbox avec ce code, or rien ne se passe, le filtre sur premières lettres ne s'éffectue pas :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub FiltreLstClients_Change() Dim strSQL As String If IsNull(Me.FiltreLstClients) Then strSQL = "select rqclients.[numclient],rqclients.[client] from rqclients;" Else strSQL = "select rqclients.[numclient],rqclients.[client] from rqclients where [client] like '" & Forms![clients]![FiltreLstClients].Text & "'& " * ";" End If Me.LstClients.RowSource = strSQL Me.LstClients.Requery End Sub
Merci d'avance pour toute suggestion

filtrer dynamiquement

Bonjour clickandgo

je te propose la correction suivante (en rouge)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub FiltreLstClients_Change()
Dim strSQL As String
 
If IsNull(Me.FiltreLstClients) Then
strSQL = "select rqclients.[numclient],rqclients.[client] from rqclients;"
 
Else
 
strSQL = "select rqclients.[numclient], rqclients.[client] from rqclients

where [client] like " & "'" & Forms![clients]![FiltreLstClients].Text & "*'" & ";"

End If
 
Me.LstClients.RowSource = strSQL
Me.LstClients.Requery
 
End Sub

Bonne continuité :ccool:

11/05/2013, 09h08
jimbolion

meolimo,

Parfait :ccool:

Sauf recoller la ligne 9 et 11

Code:

strSQL = "select rqclients.[numclient], rqclients.[client] from rqclients where [client] like '" & Forms![clients]![FiltreLstClients].Text & "*';"

JimBoLion
11/05/2013, 11h29
clickandgo

Merci à tous les deux pour vos réponses mais ni l'une ni l'autre ne fonctionne :(