[formulaire] filtrer par une combobox

Bonjour,

Il faut que tu changes dynamiquement le RecordSource de ton formulaire en lui affectant à chaque fois le nouveau établi par le critère qui compose ta zone de liste sur l'événement AfterUpdate.

Par exemple:

Code :

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

"SELECT * FROM TBLClients WHERE NomClient = " & Chr(34) & Me!ListeClients & Chr(34)

Argy

Bien lorsque que tu conçois un formulaire, ce dernier est attaché à un RecordSource (Source) qui est soit une table, soit une requête, soit une chaîne SQL.
Ton formulaire au départ possède un certain RecordSource.
Toi, sur ta zone de liste, tu vas sur ses propriétés d'événement et tu cliques sur Après MAJ et tu choisis "[Procédure événementielle]".
De là, tu bascules sur l'éditeur de code VBA où tu écris le code suivant (que tu devras adapter en fonction de tes propres champs et table, bien entendu):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub cmbClient_AfterUpdate()
Dim strCriteria As String
  'On affecte le contenu de la liste à la variable strCriteria
  strCriteria = Me!cmbClient
  'On vérifie que la chaine n'est pas vide
  If Len(strCriteria) Then
    'On affiche le formulaire avec les données du client sélectionné
    Me.RecordSource = "SELECT * FROM TBLClients WHERE NomClient = " & Chr(34) & strCriteria & Chr(34)
  Else
    'Rien n'est sélectionné, on prend tous les clients
    Me.RecordSource = "SELECT * FROM TBLClients"
  End If
End Sub

Argy

cmbClient est le nom de la zone de liste.
cmb pour comboBox...
Il est très conseillé voire impératif de nommer correctement ses contrôles (voir mon tuto à ce sujet)

Comment se nomme ce contrôle chez toi ?

Argy

Ce message est caractéristique d'une erreur de frappe.
Quand tu n'es pas sûr d'un nom de contrôle, le mieux est de le copier ou d'utiliser l'intellisense (Ctrl + Espace)

Argy