Discussion :

[lucas-18]

Bonjour,

J'ai basé mon formulaire sur la requête suivante :

Code :

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

1
2
3
SELECT tbl_import.FAMILLE, tbl_import.REFERENCE, tbl_import.COMMERCIAL
FROM tbl_import
ORDER BY tbl_import.FAMILLE;

J'ai créé une liste déroulante "FAMILLE_FILTRE" qui permet filtrer le contenu du champ "FAMILLE" :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Famille_filtre_AfterUpdate()
f = ""
If Not IsNull(Me.Famille_filtre) And Me.Famille_filtre <> "" Then
If f <> "" Then
f = f & " AND FAMILLE = """ & Me.Famille_filtre & """"
Else
f = "FAMILLE = """ & Me.Famille_filtre & """"
End If
End If
Me.Filter = f
Me.FilterOn = True
End Sub

Le problème est que j'aimerais aussi créé une zone de liste déroulante "COMMERCIAL_FILTRE" qui filtre le formulaire après le filtre de la zone de liste déroulante "FAMILLE_FILTRE".

Merci de votre aide

[Gado2600]

Bonjour,

Je ne comprends pas la difficulté que vous rencontrez ?

Vous avez déjà une liste déroulante avec un filtre donc, vous devez juste un créer une seconde.
Côté code, vous avez déjà un début pas mal du tout, mis à part une condition qui n'est pas très utile mais ce que vous devriez faire :
- Une procédure qui contient votre filtre. Chaque Afterupdate appellerait cette procédure.

Niveau 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
Private Sub Filtrer()
dim f as string
f = ""
If Not IsNull(Me.Famille_filtre) And Me.Famille_filtre <> "" Then f = "FAMILLE = """ & Me.Famille_filtre & """"
 
If Not IsNull(Me.COMMERCIAL_filtre) And Me.COMMERCIAL_filtre<> "" Then 
       if f <> "" then f = f & " AND "
       f = f & "COMMERCIAL = """ & Me.COMMERCIAL_filtre & """"
end if
 
if f <> "" then
     Me.Filter = f
     Me.FilterOn = True
else
     Me.FilterOn = False
end if
 
End Sub

Cordialement,

[lucas-18]

Bonjour,

Je ne comprends pas la difficulté que vous rencontrez ?

Vous avez déjà une liste déroulante avec un filtre donc, vous devez juste un créer une seconde.
Côté code, vous avez déjà un début pas mal du tout, mis à part une condition qui n'est pas très utile mais ce que vous devriez faire :
- Une procédure qui contient votre filtre. Chaque Afterupdate appellerait cette procédure.

Niveau 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
Private Sub Filtrer()
dim f as string
f = ""
If Not IsNull(Me.Famille_filtre) And Me.Famille_filtre <> "" Then f = "FAMILLE = """ & Me.Famille_filtre & """"
 
If Not IsNull(Me.COMMERCIAL_filtre) And Me.COMMERCIAL_filtre<> "" Then 
       if f <> "" then f = f & " AND "
       f = f & "COMMERCIAL = """ & Me.COMMERCIAL_filtre & """"
end if
 
if f <> "" then
     Me.Filter = f
     Me.FilterOn = True
else
     Me.FilterOn = False
end if
 
End Sub

Cordialement,

Merci à toi, c'est nickel !