Query method would require an auxiliary table with one field containing
the numbers 1 to 366 (0r more).
SELECT DateSerial([TheYear],1,NumberField)
FROM tblNumbers
WHERE NumberField <= 365 + ABS(IsDate([TheYear] & "/02/29"))
If you always want the current year
SELECT DateSerial(Year(Date()),1,NumberField)
FROM tblNumbers
WHERE NumberField <= 365 + ABS(IsDate(Year(Date() & "/02/29"))
VBA to build a table and populate it would be a bit more complex
'====================================================
John Spencer
Access MVP 2002-2005, 2007
Center for Health Program Development and Management
University of Maryland Baltimore County
'====================================================
is their any code which can create an TABLE / QUERY containing all the
days of the current year like from 1/1/07 to 31/12/07 and 1/1/08 to
31/12/08 on next year and so on,,