Discussion :

[franckb74]

Bonjour,

Je souhaiterai pouvoir appliquer un filtre par défaut sur le sous-formulaire après mise à jour du menu déroulant juste au dessus du sous-formulaire
le champs du sous-formulaire que je souhaite filtrer se nomme : EtatAQLT
La valeur a définir est : En cours

Comment dois-je rédiger le code vba ?

En vous remerciant pour votre aide
Franck

[madefemere]

Bonsoir,

La première idée qui me vient sur ce que tu veux serait d'utiliser les propriétés Pères/Fils de ton sous-formulaire.

Code :

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

1
2
Pères : TaListeDéroulante
Fils :EtatAQLT

Cordialement.

[franckb74]

Bonsoir,
Merci pour ta réponse mais je ne vois pas comment définir le filtre par défaut .
Lorsque le formulaire est affiché je dois toujours avoir la possibilité de supprimer ou modifier le filtre de la colonne (EtatAqlt)
Peux-tu me donner plus de détails ?
Merci pour ton aide

[franckb74]

Voici un affichage du formulaire avant et après mise à jour du menu déroulant

L'idée est que dans la colonne "Etat projet" le filtre soit par defaut "En cours" afin de ne visualiser que ces projets mais avec la possibilité de modifier les filtres (voir photo ci-jointe : FormVisualisationFiltre)

[madefemere]

Bonsoir,

Hum, j'ai pas très bien compris, mais dans ce cas si tu veux filtrer ton sous-formulaire sur son champ EtatProjet avec la valeur "En cours", il suffirait du code :

Code :

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

1
2
Me.F_RechReferenceModif-1-2.Form.Filter = "[EtatAQLT]='En cours'"
Me..F_RechReferenceModif-1-2.Form.FilterOn = True

Cordialement.

[franckb74]

Merci pour ta réponse

Sur quel évènement dois-je placer ce code ?
Après la mise à jour du menu déroulant se trouvant sur le formulaire principal ou sur un évènement du sous-formulaire mais lequel ?

De plus Est-ce qu'il y n'y aurait pas une erreur dans la syntaxe car le code s'affiche en rouge

Merci à toi

[madefemere]

Dans le formulaire principal sur l'évènement après mis à jour de ta zone de liste.

Cordialement.

[franckb74]

Merci

Mais le "Me.F_RechReferenceModif-1-2" n'ai pas le nom du formulaire principale comment dois-je modifier la syntaxe ?
De plus celle-ci apparait en rouge dans le code

Merci à toi

[franckb74]

Un ami m'a aidé et la bonne syntaxe était :

Code :

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

1
2
    Me.Filter = "([R_AlerteQualiteConsultForm].[EtatAQLT] In (""A traiter"",""En cours""))"
    Me.FilterOn = True

Merci tout de même :-)