Discussion :

[ACNTOURAINE]

Bonjour à toute l'équipe,

Mon problème est le suivant:
Je souhaite remplacer 6 formulaires par un seul.
J'ai donc créé un formulaire unique avec une boite d'options et cela fonctionne bien avec une première option.
Chaque formulaire d'origine avait de nombreux critères de sélection traités en VBA ce qui entraine beaucoup de lignes de code.
Pour faciliter le dépannage, je voulais transformer en module ces codes avec mes 6 options et de mon nouveau formulaire diriger sur le bon module en fonction de la case de l'option choisie, mais je m'aperçois que l'on ne peut pas faire de requête sélection dans un module.
Y a-t-il une solution pour remplacer les modules et faire que je n'ai pas tout le code dans une seule procédure événementielle.
J'espère avoir été assez claire et vous remercie par avance de vos réponses.

ACN

[madefemere]

Bonjour,

Qu'est-ce que tu entends par :

mais je m'aperçois que l'on ne peut pas faire de requête sélection dans un module

Y a-t-il une solution pour remplacer les modules et faire que je n'ai pas tout le code dans une seule procédure événementielle.

Cela aussi n'est pas très clair.

Si tu as 6 formulaires avec donc 6 codes pour les "filtrer" (j'imagine) ?

Normalement quand tu n'as qu'un seul formulaire avec des options, tu as une code sur l'évènement de ton groupe d'option qui va appeler chaque code selon l'option choisie. Non ?

Cordialement.

[ACNTOURAINE]

Bonjour,

Merci de me répondre.

Je précise que le code permet d'extraire des données d'une table pour en remplir une autre qui permettra l'affichage.
En effet si je garde mes 6 formulaires sans Groupe d'Options, chaque code s'exécute indépendamment.
Avec mon formulaire unique avec un Groupe d'Options je peux avoir sous un même code toutes les options.
Mais c'est la compréhension du code qui devient difficile. Le code de l'option qui comporte le plus de requêtes comprend 265 lignes, les autres sont un peu plus simples mais du même genre.
Ce que je voulais faire c'est d'appeler dans 6 fonctions différentes le code de mes 6 formulaires et depuis le formulaire unique appeler la fonction suivant le choix. J'ai essayé en utilisant Function ou Sub mais à chaque fois quand j'arrive dans la Function, s'ouvre une fenêtre qui me demande d'entrer la valeur de paramètre (qui est le premier paramètre trouvé de la requête) alors que cela fonctionne bien si le code fait partie du formulaire principal, ma procédure à pour nom Private Sub CmdFiltre_Click()

Cordialement.
ACN