Code SQL dans une table

Bonjour à tous,

J'ai un programme utilisé sur différents sites, avec des paramètres différents sur chaque site. Lorsque je fais une mise à jour quelconque, il faut donc que je modifie le code VBA des forms de chaque programme, pour que les variables contenues ne soient pas affectées.

Est-il possible, qu'un champ des table contienne un code sql a exécuter en VBA ? Si oui, comment l'appeler sous VBA pour qu'il s'exécute ?
ceci me rendrait la vie plus facile, car il me suffirait de glisser le formulaire modifié lors d'une MAJ sur chacun des programmes de chaque site, sans avoir a les ouvrir un par un pour modifier le code VBA. (sinon les requetes SQL sont écrasées elle aussi)

Voici le code VBA qui est censé appeler la requête contenue dans la table

Code:

---

1 2 3 4 5 6 7 8

Private Sub Form_Activate() Dim CODESQL As String   CurrentDb.Execute "DELETE * FROM [T_AJOUT TABLEAU DE BORD];"   CODESQL = DLookup("[CODE SQL]", "[T_PARAMETRES_TACHES_MG]", "[N°] = 10")   CurrentDb.Execute CODESQL

---

J'ai testé, mais j'ai une erreur :
Pièce jointe 427972

Merci de votre aide

bonjour,

Citation:

---

Est-il possible, qu'un champ des table contienne un code sql a exécuter en VBA ?

---

oui sans problème, pour autant que la syntaxe est correcte.

Peut-on voir un exemple de ce que contient le champ [CODE SQL] ? On dirait que dans le message d'erreur le code SQL commencerait par: Currentdb.Execute ce qui pourrait expliquer le plantage.

Citation:

---

Envoyé par tee_grandbois

bonjour,

oui sans problème, pour autant que la syntaxe est correcte.

Peut-on voir un exemple de ce que contient le champ [CODE SQL] ? On dirait que dans le message d'erreur le code SQL commencerait par: Currentdb.Execute ce qui pourrait expliquer le plantage.

---

Bonjour,

Merci pour ta réponse, ça m'a mis sur la voie direct !!

Effectivement, le code contenu dans la table était un copier / coller du code VBA !! Il fallait juste retirer CurrentDb.execute, les guillemets et parenthèses

Pour le lancer sous VBA, il faut aussi passer par Docmd.RunSQL VARIABLE

Code:

---

1 2 3

INSERT INTO [T_AJOUT TABLEAU DE BORD] ( [N° AFFAIRE], NOM1, NOM2, TACHE, N°TACHE ) SELECT [RQ_TB_FACTURE RETROCOMMISSION].N°AFFAIRE, [RQ_TB_FACTURE RETROCOMMISSION].NOM1, [RQ_TB_FACTURE RETROCOMMISSION].NOM2, [RQ_TB_FACTURE RETROCOMMISSION].Expr1, [RQ_TB_FACTURE RETROCOMMISSION].Expr2 FROM [RQ_TB_FACTURE RETROCOMMISSION];

---

Problème résolu, merci ;)

Citation:

---

Pour le lancer sous VBA, il faut aussi passer par Docmd.RunSQL VARIABLE

---

Currentdb.Execute(VARIABLE, dbFailOnError) fonctionne aussi