Discussion :

[Zouzou1er]

Bonjour,

Bonjour à toutes et à tous et excellent repos pour ceux qui profitent de ce 11 novembre

Je suis désolé si la question que j'aborde a déjà été formulée, mais je n'ai pas trouvé de réponse en cherchant.

Voici :

Je souhaite exécuter depuis mon FormulaireA une des procédures contenues dans un FormulaireB (les deux formulaires sont ouverts). Le code suivant fonctionne (pour peu que la procédure ne soit pas Private):

Code :

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

Forms!FormulaireB.Maprocedure

ou

Code :

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

Form_FormulaireB.Maprocedure

Mais mon problème est le suivant : j'aimerais mettre le nom de ma procédure dans une variable et exécuter la procédure du formulaire B dont le nom correspond à la variable. Je n'ai pas réussi à trouver la syntaxe...

Si quelqu'un peut m'aider, un grand merci d'avance

Bonne journée

Daniel

[philben]

bonjour,

une solution en passant par la fonction Eval() (voir aide d'access)

Philippe

[Zouzou1er]

Bonjour Philippe,

Merci pour ta réponse, mais je n'arrrive à rien...et je ne connais pas bien la fonction Eval (ce n'est pas faute d'avoir essayé)

Mon problème est le suivant :
- dans un formulaire, j'ai disons 10 textbox et 10 commandbuttons "associés" selon la règle de nommage suivante : nom du bouton = B+nomdutextbox
- j'ai créé un module de classe pour gérer tout cela. Je veux notamment que; lorsque que j'appuie la touche F5 dans textbox1, le code contenu dans le bouton Btextbox1 (sur événement clic) s'exécute...
- depuis mon module de classe, j'aimerais donc exécuter le code suivant (lors de l'appui sur F5 dans un textbox): Form_Formulaire.Btextbox1_Click

--> tout cela fonctionne bien, sauf que je ne sais pas comment écrire de manière générique le "Form_Formulaire.Btextbox1_Click". Je voudrais que la commande soit du style : quand j'appuie sur F5 dans un textbox n, alors exécuter Form_Formulaire.Btextboxn_Click

Mais je n'y parviens pas...

Help, please...

[philben]

bonjour,

Exemples pour eval() :

Passer le nom du formulaire et le nom de la fonction :

Code :

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

1
2
3
4
5
 
Dim MonFormulaire As String, MaFonction As String
MonFormulaire = "F7"
MaFonction = "test"
Eval "forms!" & MonFormulaire & "." & MaFonction

Passer que le nom de la fonction :

Code :

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

1
2
3
4
 
Dim MaFonction As String
MaFonction = "test"
Eval "forms!f7." & MaFonction

Remarques :
La fonction Eval() n'est pas une fonction "Propre" et elle peut engendrer des réactions bizarres...
Il vaut mieux éviter d'appeler directement une fonction évènementielle d'un formulaire
Si c'est pour faire une action sur un contrôle on peut le faire directement, par exemple :

Code :

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

1
2
 
Forms!MonForm.Controls("MonControle").Value = "xx"

Bon courage,

Philippe

[Zouzou1er]

Yahou !!!!

Cela marche à merveille ! Un grand, grand merci Philippe, tu m'as évité une belle nuit blanche...

Je n'ai plus qu'à formaliser tout cela dans ma petite appli. Mais bon, je dois quand même avouer que, meêm si cela marche et m'évite du code répétitif, les modules de classe restent encore assez flous pour moi...

Bonne soirée,

Daniel

[=JBO=]

Bonjour,

Ce qu'on peut reprocher à la fonction Eval() c'est qu'elle est très limitée pour les types des paramètres et le type du résultat.

Dans un contexte objet (ce qui est le cas des formulaires d'Access) on peut utiliser la fonction CallByName() qui permet de désigner la procédure à exécuter sous la forme d'une chaîne de caractères et de lui transmettre facilement tout type de paramètres.

Exemple où le formulaire et la procédure sont données en String:

Code :

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

CallByName Forms("FormulaireB"), "Maprocedure", VbMethod

Exemple où seule la procédure est donnée en String:

Code :

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

CallByName Forms!FormulaireB, "Maprocedure", VbMethod

[lenahic]

Bonjour,

Ce qu'on peut reprocher à la fonction Eval() c'est qu'elle est très limitée pour les types des paramètres et le type du résultat.

Dans un contexte objet (ce qui est le cas des formulaires d'Access) on peut utiliser la fonction CallByName() qui permet de désigner la procédure à exécuter sous la forme d'une chaîne de caractères et de lui transmettre facilement tout type de paramètres.

Exemple où le formulaire et la procédure sont données en String:

Code :

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

CallByName Forms("FormulaireB"), "Maprocedure", VbMethod

Exemple où seule la procédure est donnée en String:

Code :

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

CallByName Forms!FormulaireB, "Maprocedure", VbMethod

En effet CallByName peut s'avérer très utile mais dans le cas où le formulaire appelé est un sous-formulaire du formulaire utilisé, ou si le formulaire appelé n'est pas ouvert, CallByName ne fonctionne pas....

[lenahic]

Salut à tous !

J'ai trouvé la solution pour utiliser Eval() avec des arguments variables dans la fonction appelée !!

La problèmatique est la suivante : pouvoir appeler une fonction écrite sur un formulaire depuis un autre formulaire, sachant que cette fonction a un argument qui est variable (dépend d'un "If" dans une autre fonction).
je me suis inspiré des apostrophes utilisées pour la définition des filtres

voilà comment je m'en suis sorti :

Code :

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

1
2
3
Function confirmsubject(argument As String)
    Eval "forms!formulaire.fonctionAvecArgument('" & argument & "')"
End Function

En espérant que ça serve plus tard à certains ...