Need dates in a column

[RET79]

What's the quick way of putting all the dates from 1/1/98 to 1/1/05 in the first column of an Access database? I don't fancy typing them all in! Thanks.

 

[SydneyGeek]

Try this:

Function MakeDates()
Dim MyDate as Date
MyDate=Date(1998,1,1)
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Set dbs=CurrentDb()
Set rst=db.OpenRecordset("MyTable")
With rst
  .MoveFirst
  Do Until MyDate=Date(2005,1,1)
    .AddNew
    ![ThisDate]=MyDate
    MyDate=MyDate+1
    .Update
  Loop
End With
End Function

Change MyTable and ThisDate to suit.

HTH
Denis