Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access [VBA] Condition sur le résultat d'un GROUP BY

[VBA] Condition sur le résultat d'un GROUP BY

1 réponse
Avatar
HD
Bonjour,

J'ai crée une requête access en passant par le VBA.

Req = "SELECT Dossiers.NomDossier, SUM(LignesFactures.Montant) AS MtFacture,
Factures.facNo " & Chr(10) & _
"FROM dossiers, lignesfactures, Factures " & Chr(10) & _
"WHERE Dossiers.dNoEnreg = Factures.dNoEnregFac AND
LignesFactures.lNoEnregFac = Factures.fNoEnreg "
Req = Req & Chr(10) & " GROUP BY Factures.facNo, Dossiers.NomDossier "

Je voudrais avoir une condition sur le résultat de la somme de
LignesFactures.Montant pour ne faire apparaître que les résultats supérieur
à 100 euros...

J'ai voulu créer tout simplement un MtFacture > 100 parmi la condition WHERE
mais bien sûr cela ne fonctionne pas.

Comment s'y prendre ?

Merci d'avance pour votre aide,

Cordialement,

HD
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
HD
Req = "SELECT Dossiers.NomDossier, SUM(LignesFactures.Montant) AS
MtFacture, Factures.facNo " & Chr(10) & _
"FROM dossiers, lignesfactures, Factures " & Chr(10) & _
"WHERE Dossiers.dNoEnreg = Factures.dNoEnregFac AND
LignesFactures.lNoEnregFac = Factures.fNoEnreg "
Req = Req & Chr(10) & " GROUP BY Factures.facNo, Dossiers.NomDossier "

Je voudrais avoir une condition sur le résultat de la somme de
LignesFactures.Montant pour ne faire apparaître que les résultats
supérieur à 100 euros...

J'ai voulu créer tout simplement un MtFacture > 100 parmi la condition
WHERE mais bien sûr cela ne fonctionne pas.



J'ai trouvé... Il faut utiliser "HAVING"... L'on a alors:

Req = "SELECT Dossiers.NomDossier, SUM(LignesFactures.Montant) AS MtFacture,
Factures.facNo " & Chr(10) & _
"FROM dossiers, lignesfactures, Factures " & Chr(10) & _
"WHERE Dossiers.dNoEnreg = Factures.dNoEnregFac AND
LignesFactures.lNoEnregFac = Factures.fNoEnreg "

Req = Req & Chr(10) & " GROUP BY Factures.facNo, Dossiers.NomDossier " &
Chr(10) & _
"HAVING SUM(LignesFactures.Montant) > 100 "


@+
HD