vba calcul Date sql et formulaire

Bonjour j'ai une date avec 3 champs date qui correspondent au différentes dates de fin pour un bail.

je voudrai afficher dans mon formulaire les sites dont les dates sont encore bonne par rapport à la date système ( jsuque la tout va bien dateout> date() ) mais aussi les sites dont le bail se terminait au 31/12/n-1 si l'on est à l'année n.
Quelle fonction faut-il utiliser?
dateadd dans le code vb? ,
comment défénir la source en vb ? form_xx.rowsource = ?

Code:

---

1 2 3

SELECT Tableau_DR.cNom, Tableau_DR.Site_cCp, Tableau_DR.Site_cVille, Tableau_DR.Site_cTel, Tableau_DR.nParkTot, Tableau_DR.nSurfaceTot, Tableau_DR.Site_dDateIn, Tableau_DR.cDureeBail, Tableau_DR.dDateOut1, Tableau_DR.dDateOut2, Tableau_DR.dDateOut3, Tableau_DR.dDateLet1, Tableau_DR.dDateLet2, Tableau_DR.dDateLet3, Tableau_DR.cRaisonSoc, Tableau_DR.Site_cAdresse, Tableau_DR.Bailleur_cAdresse, Tableau_DR.Bailleur_cCp, Tableau_DR.Bailleur_cVille, Tableau_DR.Bailleur_cTel, Tableau_DR.nNbParkTot, Tableau_DR.cTypeLoc, Tableau_DR.ParkSupp_dDateIn, Tableau_DR.dDateOut, Tableau_DR.dDateLet FROM Tableau_DR WHERE (((Tableau_DR.dDateOut2)>Date()) AND ((Tableau_DR.dDateOut3)>Date()) AND ((Tableau_DR.dDateLet1)>Date()));

---

voici le code pour la source du formulaire et il marche, que rajouter pour la partie: site avant le 31/12/n-1

dans ton where:

Code:

---

... OR (Tableau_DR.dDateOut2>SérieDate(Année(Date())-1;12;31)) ...

---

"ou Date>FinD'annéePrécédente"
j'ai mis 'dDateOut2' mais à toi de voir quels sont les dates qui entre dans le critère.

sériedate et année sont des fonctions que tu as codé toi même non?

non ceux sont des fonctions intégrés

Quand je met le code il me dit "fonction 'sériedate' non définie dans l'expression"
tu es sur qu'elle est pas codé quelque part?

Désolé::oops:
en SQL sa s'écrit comme ca:

Code:

---

DateSerial(Year(Date())-1,12,31)

---

:aie:

c'est bon ça marche !
merci beaucoup