Stocker les commandes dans une table

Bonjour!!
J'aimerais que vous m'aidiez à arriver à créer une "ligne de commande". Je vous explique:

Dans mon formulaire, j'ai un textbox et un bouton. J'aimerais que lorsque j'inscrit une commande dans le textbox, l'action pré enregistrée s'effectue.

Dans une table "comm", j'ai deux champs: le nom de la commande et ce qui doit être exécuté.
EXEMPLE:

Commande: test
Exécution: MsgBox ("Cette commande fonctionne!")

Donc lorsque j'écrirai "test" dans mon textbox, j'aimerais que lorsque je clique sur le bouton, qu'un MSGBOX m'affiche "Cette commande fonctionne!".



VOICI CE QUE J'AI FAIT JUSQU'À MAINTENANT:
Lors du clic sur le bouton, je fais une recherche avec un Dlookup, pour rechercher la commande à exécuter selon la commande inscrite. Elle est présentement stockée dans une variable. Mais maintenant, comment exécuter la commande contenue dans la variable?

En espérant une réponse :)
MERCI!

peut-être avec la fonction Eval ;)

exemple:

Code:

---

Eval("MsgBox('Bonjour !')")

---

Bonjour User,
merci beaucoup de ta suggestion, malheureusement, je n'arrive pas à lancer la commande. Voici le code que j'ai testé... sans résultats :)

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Commande64_Click() On Error GoTo err2 Dim exec As Variant exec = DLookup("[Execution]", "comm", "[Commande]=" & Texte62.Value) Eval (exec) Exit Sub   err2: Étiquette65.Caption = "Commande non-valide..." Texte62.Value = "" End Sub

---

tu peux juste faire un debug.print avant le eval

Code:

---

1 2 3 4

exec = DLookup("[Execution]", "comm", "[Commande]=" & Texte62.Value)   debug.print exec Eval (exec)

---

juste pour voir le contenu de ta variable...

Encore moi!

GROS MERCIS A USER!!
L'erreur n'était pas dans le Eval, mais dans mon Dlookup!!

J'ai corrigé mon code, et maintenant il fonctionne:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Commande64_Click() On Error GoTo err2 Dim exec As String exec = DLookup("[Execution]", "[Comm]", "[Commande]=Texte62.Value") MsgBox (exec) Eval (exec) Exit Sub   err2: Étiquette65.Caption = "Commande non-valide..." Texte62.Value = "" End Sub

---

Autre référence: http://access.developpez.com/faq/?pa...#ExecCommDsVar

Merci!! :)

De rien,

Salut le Quebec !

et n'oublie pas le tag resolu ;)