Bonjour,
Je ne suis pas comme vous un as du langage SQL, mais je travaille sur un logiciel qui l'utilise.
Le logiciel Marque SAGE avec base de données ACCESS.
Je cherche depuis plusieurs jour à modifier une edition mais là je coince.

Voici le scrip original:
'-------------------------------------------------------------------------------------
PageDef "HautPage...BasPage"
Global DateDebut, DateFin
'------ Fournitures
Global FourCumul, TotFourCumul
FourCumul=0 : TotFourCumul=0
Faire
Form
Demander "Date de début : ", DateDebut, DATE
Demander "Date de fin : ", DateFin, DATE
FinForm
Si Format(DateDebut, "mm/dd/yy")=0 Alors DateDebut = "01/01/80"
Si Format(DateFin, "mm/dd/yy")=0 Alors DateFin = "01/01/80"

Chantiers = Liste Courante
Clients = Liste "ClientDef" Classée par "Code"
Si Changement(Page) Alors Imprimer "DébutPage...FinPage"
Pour Chaque Chantiers
Lit Clients, Chantiers.CodeClient
Si Changement (Chantiers.Etat) Alors Imprimer "DébutChantiers...FinChantiers"
'-----Fournitures Cumulées
FourCumul=0
RequeteFourCumul = Liste "Select * From SuiviHisto Where CodeChantier = '" & Chantiers.Code & "' And Date Between #" & Format(DateDebut, "mm/dd/yy") & "# And #" & Format(DateFin, "mm/dd/yy") & "#"
Pour Chaque RequeteFourCumul
FourCumul = FourCumul + RequeteFourCumul.Qte × RequeteFourCumul.Prix
Boucler
Imprimer Chantiers
Boucler
'-------------------------------------------------------------------------------------------------

Je voudrais le modifier pour:
1 : A la place de taper 2 dates (Debut et fin) je voudrais qu'il sélectionne seul le mois en cours par rapport date du jour (si nous sommes en novembre : il filtre du 01/11/16 au 30/11/16)
2 : Le plus compliqué, je voudrais calculer egalement Le mois - 1 , mois -2 et mois -3.
ex: nous sommes en novembre, dons faire un cumul des fournitures sur novembre, puis un autre cumul sur octobre et un autre sur septembre

J'espere que j'etais clair
J'attend votre aide

Bonjour,
current_timestamp représentant le jour et l'heure actuels.

Bon dimanche.

Merci pour ta réponse mais mon niveau SQL est trop faible pour transposer ta réponse sur ma requête
J'ai message d'erreur
'--------------- Fournitures Cumulées -------------------
FourCumul=0
RequeteFourCumul = Liste "Select * From SuiviHisto Where CodeChantier = '" & Chantiers.Code & "' And YEAR(" & Format(Date, "mm/dd/yy") & ")=YEAR(" & Format(current_timestamp, "mm/dd/yy") & ") AND MONTH(" & Format(Date, "mm/dd/yy") & ")=MONTH(" & Format(current_timestamp, "mm/dd/yy") & ")"

Pour Chaque RequeteFourCumul
FourCumul = FourCumul + RequeteFourCumul.Qte × RequeteFourCumul.Prix
Boucler