[求助][讨论]如何快速的生成一个带日期的表

wdh008

同志们，怎么样可以很快的就可以生成一个带一年完整日期的数据表阿，也就是说表中有个日期字段，总共有365条记录，每条记录的头个字段都是日期型，而且已经自动全部填写好了一年中每天的日期数字2005-01-01~~~~2005-12-31。

wdh008

wuaza 这个往下拖拉是怎么个拖拉阿。是复制吗，可以说详细点么。

wuaza

推荐你用excel吧，只要在A1中输入2005-1-1，往下拖拉就行了，然后再导入到access表中即可。

wdh008

好像不可以哦。

wuaza

这个我想知道用查询能实现吗？

wdh008

谢谢 情比金坚，我自己不怎么会用代码

情比金坚

Set d = CurrentDb.OpenRecordset("表1")

For i = 1 To 365

d.AddNew

d("date") = 38352 + i

d.Updatenext