1 2 3 4
| SELECT a.CodeModele, IIf(IsNull(a.DateReelleDebut),a.DatePrevueDebut,a.DateReelleDebut) AS DateDebutmodel, IIf(IsNull(a.DateReelleFin),a.DatePrevueFin,a.DateReelleFin) AS Fin, b.CodeModele AS modelsuivant, b.DatePrevueDebut AS suivant, JoursOuvres(IIf(IsNull(a.DateReelleFin),a.DatePrevueFin,a.DateReelleFin)+1,b.DatePrevueDebut-1,[a].[CodeModeleur]) AS Ecart, a.CodeModeleur
FROM tblModeles AS a, tblModeles AS b
WHERE (((b.DatePrevueDebut)>[a].[DatePrevueFin] And (b.DatePrevueDebut)=DMin("DatePrevueDebut","tblModeles","clng(DatePrevueDebut)>" & (CLng([a].[DatePrevueDebut]))&" AND CodeModeleur="&a.CodeModeleur&"")) and (b.DatePrevueDebut>Date()))
ORDER BY b.DatePrevueDebut; |
Partager