Discussion :

[anelinette]

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

merci d'avance

[mout1234]

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?

[anelinette]

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

[anelinette]

voilà ma requête à mettre en vba

Code :

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

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*"));

[Tofalu]

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

[Psychopathe]

voilà ma requête à mettre en vba

Code :

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

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 :

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

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*'))"

[SSJconsult]

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

Code :

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

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.

[anelinette]

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é