[AC-97] Exécuter une procédure ayant un nom dynamique [Résolu]

[samuelsiffert]

Bonjour,

Mieux vaut un court bout de code qu'un long discours...

J'essaie de faire ça mais ça ne fonctionne pas (access ne trouve pas la procédure et indique qu'il faut ouvrir une base au préalable...).

Code :

1
2
3
 
strNomDeLaProcedure = "HelloWord"
call me.application.run(strNomDeLaProcedure)

Ce code est déclenché sur un bouton.
La procédure est déclarée en début de module de formulaire (testé en sub et en fonction et en public).

Si vous savez résoudre ce problème ou me proposer une autre solution je suis preneur.

Rassurez-vous je ne vous interroge pas pour rien (j'ai simplifié le code pour mettre en exergue le problème). La résolution de ce problème me permettra un code plus lisible pour mon projet en cours et surtout il est quasi indispensable pour un autre projet qui est du coup en stand-by...

Certains puristes vont me faire remarquer que lancer des procédures ayant un nom dynamique est risqué et potentiellement source de bugs (et qui plus est, éventuellement difficiles à reproduire) . Tiens, ça me rappelle un fil de discussion sur la partie java il me semble...

Merci par avance,

Edit : Ajout d'une capture d'écran


Samuel

[bernardmichel]

Essaies ceci:

Code :

1
2
3
4
5
Dim strNomDeLaProcedure      As String
 
strNomDeLaProcedure = "HelloWorld"
 
Application.Run strNomDeLaProcedure

Il me semble que cela devrait te convenir

[samuelsiffert]

Re,

La nuit (et surtout google) porte conseil...

J'ai trouvé une solution en utilisant la fonction Eval (qui me permet de lancer uniquement des fonctions). Je me suis rendu compte qu'il fallait que la fonction appelée doit être dans un module (qui porte un nom différent de la fonction) et pas dans le module du formulaire.

Je lis la réponse de BernardMichel (il me semble par ailleurs que nos codes sont équivalents, non ?) et je re-teste avec application.run et ça fonctionne !

Voici une capture d'écran avec les 2 solutions :

[bernardmichel]

Non, elles en sont pas équivalentes car, effectivement, ma fonction est placée dans un module. Tu remarqueras que le "Me." n'existe pas dans ma fonction car je l'ai simplement déclarée "Public" dans un module.
Heureux que tu aies résolu ton blème