[Access 2002] Exécution d'une commande contenue dans une variable

Bonjour à tous,

J'ai trouvé dans la FAQ que cela était possible avec la fonction "Eval".

L'exemple donné est le suivant :

Code:

---

1 2 3 4

Dim mycmd as String mycmd = "DoCmd.OpenForm ('table1')" Eval (mycmd)

---

Cela fonctionne en effet parfaitement bien, mais lorsque j'essaie de l'utiliser pour modifier les propriétés d'un contrôle cela ne marche pas.

Mon code est le suivant

Code:

---

1 2 3 4

Dim mycmd as String mycmd = "Forms!F_recherche.B_Modif.caption = ""Modification""" Eval (mycmd)

---

Je ne rencontre pas de problème à la compilation, ni à l'exécution mais ma commande est complètement inopérante.

Quelqu'un a t-il une idée ?

NB : En fait la commande que je cherche à créer est plus complexe car je souhaite rendre paramétrable le nom du contrôle afin d'éviter d'écrire une centaine de fois la même commande.

Merci

Sergio

il serait peut etre plus simple et plus fonctionnel de partir de la form
et de l'index du contrôle

Bonjour Random,

Je ne peux pas utiliser l'index du contrôle car je ne le maîtrise pas.

J'ai un contrôle par département dans mon formulaire. A l'ouverture mon code boucle sur les enregistrements d'une table qui contient les départements qui concernent un client donné. Pour chaque département présent je modifie le contrôle qui le concerne. je récupère donc un code département qui est présent dans le nom du contrôle (par ex. code dép "63", nom du contrôle correspondant : "C63").

Pour l'instant j'ai écrit une fonction avec une instruction "Select" et une centaine de "Case" qui fonctionne parfaitement mais je trouve ça un peu basique et j'aimerais l'améliorer.

Merci de votre aide

Cordialement

Sergio

bien sur que tu peux
mon recordset =select depart from matable where moncli=formsgnagna group by depart
while not eof mon recordset
controle="c" & depart

Oui ça je sais faire, là où je suis bloqué, c'est quand je fais "Eval(controle)" : la commande n'est pas exécutée !

Cordialement

Sergio

Bonjour à tous,

Je pose mon problème ici car c'est exactement le même que Sergio63 et malheureusement personne n'a su lui venir en aide ;)

En résumé je voudrais pouvoir appeler un formulaire de recherche depuis plusieurs autres formulaires et renvoyer le résultat au bon endroit dans le formulaire appellant.

Code:

---

1 2 3 4

Parametres = Split(OpenArgs, "@@") Dim Send As String Send = "Forms!" & Parametres(0) & "!" & Parametres(1) & " = " & Me.LstPartners Eval (Send)

---

Le nom de la form et du controle sont passés par OpenArgs et comme il y a pas mal de combinaisons possibles pour renvoyer le résultat je n'ai rien trouver d'autre qu'Eval pour éxécuter le code (même si je trouve ça moche).

J'ai vérifier que "Send" contenait bien le code attendu et testé l'expression telle quel :

Code:

---

Forms!Attributions!CodePartner = 123456

---

Ca fonctionne normalement mais avec Eval() pas d'erreur, il ne se passe rien :? (Juste je me sens un peu plus c## à chaque fois que je refais un test :mouarf:)

Si quelqu'un a une idée, que ce soit avec Eval() ou une autre façon d'aborder le problème je lui serais vraiment reconnaissant de m'aider :P

Merci d'avance :)

Pourquoi ne pas utiliser la collection Forms et la collection Controls ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

private sub EnumererFormEtControls() 'affiche la liste et la valeur de tous les contrôles de tous les forms ouverts.   on error goto Err_EnumererFormEtControls   dim f as form dim c as control   for each f in froms   for each c in f.controls debug.print f.name, c.name, debug,print c.value, debug.print next c   next f   Exit_EnumererFormEtControls: exit sub   Err_EnumererFormEtControls: select case err case ProprieteNonSupportee 'Là je en me souvient plus du code resume next case else msgbx err.number & " " err.description resume exit_EnumererFormEtControls end sub

---

A+