Discussion :

[langelot222]

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 :

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

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

[vodiem]

dans ton where:

Code :

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

... 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.

[langelot222]

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

[vodiem]

non ceux sont des fonctions intégrés

[langelot222]

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?

[vodiem]

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

Code :

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

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

[langelot222]

c'est bon ça marche !
merci beaucoup