Discussion :

[Franck12345]

Bonjour,

Je cherche un moyen de récupérer automatiquement (via VBA) le filtre appliqué par l’utilisateur d’un formulaire, sous forme d'une requête qui me permette ensuite de générer des états, formulaires, graphiques ou d’effectuer des actions d’ajout/suppression conformément à ce filtre.

À défaut, je me contenterais de pouvoir copier (dans une table ?) les enregistrements filtrés par l'utilisateur dans le formulaire, en vue du même usage.

Merci par avance,
Cordialement

[madefemere]

Bonsoir,

Le filtre d'un formulaire peut être récupéré avec la propriété :

Code :

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

Me.Filter

Et la source avec

Code :

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

Me.RecordSource

Cordialement.

[Franck12345]

Bonjour.
Merci pour votre réponse, madefemere.

Je vais devoir être plus explicite en ce qui concerne ce qui bloque.

En fait, j'ai réussi manuellement l'opération voulue de la façon suivante :

1. J’ouvre le formulaire basé sur une requête A, affiché en mode feuille de données
2. J’utilise les outils du formulaire (en en-tête des colonnes) qui me permettent d’obtenir le filtre voulu sur mes données. Appelons-le : filtre F
3. Je transfère la chaîne de caractère du filtre F (propriété « Filter » du formulaire) à une requête B basée sur la requête A
4. J’ouvre la requête B qui est, à ce stade, « filtrée » à l’identique du formulaire (mais que je ne peux pas utiliser comme source tel quel car alors le filtre n'est pas appliqué) et j’utilise la fonction « Filtre/Tri avancé… » pour faire apparaître le filtre F sous forme de requête.
5. J’enregistre la requête-filtre sous le nom de requête C
6. J’utilise la requête C comme source de divers outil (états, formulaires, requêtes actions), conformément au filtre F.

Mon problème est maintenant d’automatiser tout cela pour que ce soit transparent pour l’utilisateur qui filtre ce qu’il veut de la requête A, puis utilise les différents outils disponibles sur la base de ce même filtre.

Je bloque actuellement sur l’étape 5 : j'ai essayé en utilisant la commande VBA « DoCmd.RunCommand acCmdAdvancedFilterSort », mais on passe par une boîte de dialogue pour donner le nom sous lequel enregistrer la requête/filtre, ce que l'utilisateur n'est pas sensé savoir.

En espérant que ce sera plus clair...
Cordialement.

[hyperion13]

Salut
Il serait peut être préférable de créer un form ayant pour source votre requête A, d'insérer dans le form des objets indépendants textbox, combobox pour filtrer vos données (il y a des tutos à propos des filtres sur DEV) et d'utiliser en VBA cette méthode pour capter le jeu d'enregistrements final dans votre form et de parcourir votre jeu d'enregistrement pour l'ajouter à votre table cible

[Franck12345]

Bonjour.

Votre suggestion, hyperion13, m'a fait prendre conscience de l'importance de la notion de Recordset et la lecture du très pédagogique article de Christophe Warin (https://warin.developpez.com/access/dao/?page=partie_5) m'a permis de combler quelques lacunes sur la question.

Du coup, j'ai résolu mon problème de la façon suivante : on ajoute à la table source un champ Vrai/Faux nommé "Sélection", que l'on affiche dans le formulaire basé sur la requête A (voir ci-dessus). Après que l'on a filtré les données - et l'on peut utiliser pour cela les filtres mis à disposition pour l'utilisateur, ce qui ne gâche rien ! - on utilise le recordset du formulaire, donc la feuille de données affichées, pour cocher automatiquement le champ "Sélection" de tous les enregistrements filtrés. Ainsi, les enregistrements choisis sont automatiquement cochés dans la table source et je peux les utiliser à loisir comme nouvelle source.
Cerise sur le gâteau, l'utilisateur peut lui-même cocher/décocher n'importe quel enregistrement affiché, ce qui l'affranchit des possibilités de filtrage pré-programmées.

Merci de votre aide,
Cordialement.