Discussion :

[frantz44]

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 :

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

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 :


Merci de votre aide

[tee_grandbois]

bonjour,

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.

[frantz44]

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 :

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

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

[tee_grandbois]

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

Currentdb.Execute(VARIABLE, dbFailOnError) fonctionne aussi