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