Dim dbs As Database
Dim rst As Recordset
Dim dtmLoop As Date
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("tblカレンダ")
With rst
For dtmLoop = #1/1/2006# To #12/31/2006#
.AddNew
!日付 = dtmLoop
!曜日 = Format$(dtmLoop, "aaa")
!通年日 = Format$(dtmLoop, "y")
!通年週 = Format$(dtmLoop, "ww")
.Update
Next dtmLoop
.Close
End With