Discussion :

[amerex]

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!

[User]

peut-être avec la fonction Eval

exemple:

Code :

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

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

[amerex]

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 :

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

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

[User]

tu peux juste faire un debug.print avant le eval

Code :

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

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

juste pour voir le contenu de ta variable...

[amerex]

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 :

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

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!!

[User]

De rien,

Salut le Quebec !

et n'oublie pas le tag resolu