Bonjour,
J'ai réalisé un formulaire sous access qui permet de filtrer successivement des données d'une table, 3 champs doivent être saisies l'un après l'autre pour affiner la recherche dans la table
Je souhaite qu'à chaque fin de saisie d'un champ texbox, celui-enclenche automatiquement un bouton que j'ai nommé "Appliquer filtre"
Merci pour votre aide.
Youyou
Ci-dessous mon code :
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
19
20
21
22
23
24
25 Private Sub Clic_Click() f = "" If Not IsNull(Me.Radress) And Me.Radress <> "" Then f = "Adresse_Magasin LIKE ""*" & Me.Radress & "*""" End If If Not IsNull(Me.RPN) And Me.RPN <> "" Then If f <> "" Then f = f & " AND Part_Number = """ & Me.RPN & """" Else f = "Part_Number = """ & Me.RPN & """" End If End If If Not IsNull(Me.RSN) And Me.RSN <> "" Then If f <> "" Then f = f & " AND Serial_Number LIKE ""*" & Me.RSN & "*""" Else f = "Serial_Number LIKE ""*" & Me.RSN & "*""" End If End If Me.Filter = f Me.FilterOn = True End Sub
Partager