Discussion :

[clickandgo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[meolimo]

Bonjour clickandgo

je te propose la correction suivante (en rouge)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é

[jimbolion]

meolimo,

Parfait

Sauf recoller la ligne 9 et 11

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

JimBoLion

[clickandgo]

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