Discussion :

[jedimaster10]

Bonjour,

Je déterre ce sujet car en appliquant la méthode du "AND" pour faire 2 filtres sur un formulaire et en le combinant à 2 conditions, ça ne marche pas.

La 1ère condition vérifie si le champ de filtre est vide, auquel cas FilterOn = False.

La 2ème condition vérifie si Me.filter contient déjà quelque chose, auquel cas j'y ajoute le 2ème filtre, sinon je n'y met que le filtre en cours.

Ca donne ce 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
Private Sub filtre_service_AfterUpdate()
 
If IsNull(Me.filtre_service) Then
 
Me.FilterOn = False
 
Else
 
If Me.Filter <> "" Then
 
Me.Filter = Me.Filter & "AND [service_affectation_contrat]=" & Me![filtre_service]
Me.FilterOn = True
 
Else
 
Me.Filter = "[service_affectation_contrat]=" & Me![filtre_service]
Me.FilterOn = True
 
End If
 
End If
 
End Sub

Avec ça, lorsque je filtre sur un des "service d'affectation", ça filtre un seul service mais ça filtre en même temps une catégorie de mon 2ème filtre alors que ce filtre est vide.

Je m'y perds un peu.

Si vous avez une idée

Merci !

[jedimaster10]

Bonjour,

Vous pourriez m'aider s'il vous plait ?

[Robert1957]

Bonjour jedimaster10,
Avec le bout de code que tu mets il y a plusieurs possibilités, peux-tu mettre ta BD ou du moins la partie concerné?
Bonne journée

[jedimaster10]

Pas de problème.

Il y a beaucoup de tables liées, j'espère que ça ne t'empêchera pas de trouver.

Le problème se situe sur le formulaire "Reconductions_interim".

[Robert1957]

Bonjour jedimaster10,
Comme je n'avais pas tes tables j'ai créé 2 nouvelles listes. J'ai mis le code exemple sur la première avec les explications.
Bonne journée

[jedimaster10]

Je vais tester ça et je te fais un retour.

Juste pour ma culture :

- ça : Me![filtre_qualification_Exemple]
- et ça : Me.filtre_qualification_Exemple

C'est pareil en VBA ?

Et cette ligne de code signifie quoi ?

Code :

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

Debug.Print Me.Filter

[Robert1957]

- ça : Me![filtre_qualification_Exemple]
- et ça : Me.filtre_qualification_Exemple

Oui et les [] s'il y a des espaces dans tes noms.

Debug.Print Me.Filter

Quand ta fenêtre d'exécution est ouverte cela te permet de voir le résultat donc ici tu devrais voir le filtre que tu passes en commande à ton formulaire.

[jedimaster10]

Super ! Merci pour ces réponses. Ca fonctionne du feu de dieu !

Pratique le Debug.Print