[AC-2010] Synthèse de table via VBA

Bonjour,
Je recherche une méthode afin de synthétiser une table existante dans Access : J'ai une table contenant un champ projet, à un projet correspond plusieurs montant. J'aimerais dans une nouvelle table avoir un enregistrement par projet avec comme montant la somme totale correspondant à chaque projet (Cf illustration ci dessous). Tout ça via un script VBA.
J'arrive très bien à récupérer la somme total d'un projet par le biais d'une requête sql mais je ne sais pas faire correspondre chaque somme à un projet dans une nouvelle table
Pièce jointe 147488

Je vous remercie pour votre aide

Bonjour,

Comme ça ? :

Code:

---

1 2 3 4 5

Dim strsql As String strsql = "SELECT t_projet.projet, t_projet.client, Sum(t_projet.montant) AS SommeDemontant INTO t_synthese_projet" _ & " FROM t_projet" _ & " GROUP BY t_projet.projet, t_projet.client;" DoCmd.RunSQL = strsql

---

Cordialement,

Merci beaucoup, ça marche impeccablement ! (Petite correction pour la dernière ligne, DoCmd.RunSQL(strsql) au lieu de DoCmd.RunSQL = strsql))

J'ai un autre petit problème : j'ai en fait une colonne supplémentaire "date" et je désire maintenant mettre deux colonnes de somme,

-l'une étant le montant total par projet jusqu'à aujourd'hui
-la seconde étant le montant total d'aujourd'hui à la fin du mois suivant

Je n'ai pas de problème pour obtenir la première colonne :

Code:

---

1 2 3 4 5 6

Dim strsql As String strsql = "SELECT t_projet.projet, t_projet.client, Sum(t_projet.montant) AS SommeDemontant INTO t_synthese_projet" _ & " FROM t_projet" _ & " WHERE t_projet.date<Now()"_ & " GROUP BY t_projet.projet, t_projet.client;" DoCmd.RunSQL(strsql)

---

Mais comment faire pour ajouter le second champ désiré dans cette même table ?

Merci encore pour votre aide

Bonjour,
Dans la lancée de la première requête, il faut utiliser les fonctions de domaines pour trouver les données correspondant à chaque projet et client selon les critères que vous vous êtes fixés. Je vous conseille de faire un tour sur le tuto de référence ici pour comprendre comment ça fonctionne et aussi regarder les fonctions pour paramétrer les critères dates dans le tuto ici parce que le deuxième critère n'est pas évident à écrire sans comprendre le besoin.
Ce qui nous donne :

Code:

---

1 2 3 4 5 6

strsql = "SELECT T_projet.projet AS nomprojet, T_projet.client AS nomclient, Sum(T_projet.montant) AS totmontant," _ & "Nz(DSum('[montant]','[t_projet]','[dateobjet]<Date() AND [projet]=' & [nomprojet] & ' AND [client]=' & [nomclient]),0) AS MontantAnt," _ & "Nz(DSum('[montant]','[t_projet]','([dateobjet] BETWEEN date () and DateSerial(Year(Date()), Month(Date())+1,1) -1) AND [projet]=' & [nomprojet] & ' AND [client]=' & [nomclient]),0) AS MontantPost" _ & " INTO t_synthese_projet" _ & " FROM T_projet" _ & " GROUP BY T_projet.projet, T_projet.client;"

---

Un module typiquement en vba avec Recordset et des findfirst et findnext devraient fonctionner, mais je voulais continuer sur l'expression SQL.

Bonne continuation

Merci beaucoup j'étudie ça avec attention