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 :Merci d'avance pour toute suggestion
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
Partager