Executer une requete en vba

Bonjour,
j'ai fait une macro qui met à jour mes données en important une les données d'un autre fichier

j'ai également une requête qui doit remplacer dans une table les nouvelle données, mais voilà, cette requête fait plus de 250 caractères et je ne peux donc pas l'exécuter depuis ma macro

je ne connais rien en vba si une ame charitable veut bien n'aider 8O

merci d'avance

Bonjour,

Il me semble difficile de t'expliquer comment faire cela en VBA en un seul message ;).

Par contre, as-tu essayé d'enregistrer tes 2 requêtes puis de les exécuter depuis ta macro?

oui mais dans ma macro il ne veut pas car ma requête fait plus de 256 caractères

voilà ma requête à mettre en vba

Code:

---

1 2 3 4 5

INSERT INTO t_suivi_amm_sa ( cle, modification, Notification, workload, realised, Date_debut, date_fin, Blocage ) SELECT T_amm_sa.F6, T_amm_sa.F5 AS Critère, Left([f9],3) AS workorder, Count(T_amm_sa.F9) AS workload, Sum(Left(([F20]/100),1)) AS [wo realised], T_amm_sa.F16, T_amm_sa.F17, T_amm_sa.F23 FROM T_amm_sa GROUP BY T_amm_sa.F6, T_amm_sa.F5, Left([f9],3), T_amm_sa.F16, T_amm_sa.F17, T_amm_sa.F23, T_amm_sa.F10 HAVING (((T_amm_sa.F10) Like "Euro*"));

---

La solution de mout1234 est pourtant la bonne à savoir enregistrer la requete et l'appeler depuis la macro.

Citation:

---

Envoyé par anelinette

voilà ma requête à mettre en vba

Code:

---

1 2 3 4 5

INSERT INTO t_suivi_amm_sa ( cle, modification, Notification, workload, realised, Date_debut, date_fin, Blocage ) SELECT T_amm_sa.F6, T_amm_sa.F5 AS Critère, Left([f9],3) AS workorder, Count(T_amm_sa.F9) AS workload, Sum(Left(([F20]/100),1)) AS [wo realised], T_amm_sa.F16, T_amm_sa.F17, T_amm_sa.F23 FROM T_amm_sa GROUP BY T_amm_sa.F6, T_amm_sa.F5, Left([f9],3), T_amm_sa.F16, T_amm_sa.F17, T_amm_sa.F23, T_amm_sa.F10 HAVING (((T_amm_sa.F10) Like "Euro*"));

---

---

Ben sinon tu fais un Docmd.Runsql

Code:

---

1 2 3 4 5 6

Docmd.Runsql "INSERT INTO t_suivi_amm_sa ( cle, modification, Notification, workload, realised, Date_debut, date_fin, Blocage ) SELECT T_amm_sa.F6, T_amm_sa.F5 AS Critère, Left([f9],3) AS workorder, Count(T_amm_sa.F9) AS workload, Sum(Left(([F20]/100),1)) AS [wo realised], T_amm_sa.F16, T_amm_sa.F17, T_amm_sa.F23 FROM T_amm_sa GROUP BY T_amm_sa.F6, T_amm_sa.F5, Left([f9],3), T_amm_sa.F16, T_amm_sa.F17, T_amm_sa.F23, T_amm_sa.F10 HAVING (((T_amm_sa.F10) Like 'Euro*'))"

---

ou alors, dans ce cas, simplement "raccourcir" le code de la requete :

Code:

---

1 2 3 4 5

INSERT INTO t_suivi_amm_sa ( cle, modification, Notification, workload, realised, Date_debut, date_fin, Blocage ) SELECT F6, F5, Left([f9],3) AS wko, Count(F9) AS wkl, Sum(Left(([F20]/100),1)) AS [wo], F16, F17, F23 FROM T_amm_sa GROUP BY F6, F5, Left([f9],3), F16, F17, F23, F10 HAVING F10 Like "Euro*";

---

Quand il n'y a aucune confusion possible de table, les [MaTable].[MonChamp] peuvent etre simplifies en [MonChamp].
De plus, dans une requete d'insert, les Alias n'ont qu'une raison d'etre grammaticale en cas d'utilisation de fonctions et donc, peuvent etre les plus courts possible.
Enfin, dans les clauses WHERE et HAVING certaines parentheses sont mises par Access par "securite" et peuvent etre supprimees.

Merci pour vos réponses

en fait, j'ai fais un bouton qui exécute ma macro et dans la foulée ma requête et le tour est joué :ccool: