Function per()

Dim tabl1 As Recordset 'выбранная таблица
Dim a As Date
Dim b As Date
Dim c As Long
Dim tekzap As Date
Set tabl1 = CurrentDb.OpenRecordset("Календарь")
a = "01.01.2007"
b = "31.12.2007"
c = b - a + 1
Do Until c = 0
tabl1.AddNew
tabl1![Дата] = a
tabl1.Update
a = a + 1
c = c - 1
Loop
Close
Set tabl1 = CurrentDb.OpenRecordset("Календарь")
a = "01.01.2007"
b = "31.12.2007"
c = (b - a + 1) / 7
Do Until c = 0
d = 0
 Do Until d = 7
 d = d + 1
 If d = 1 Then e = "пн"
 If d = 2 Then e = "вт"
 If d = 3 Then e = "ср"
 If d = 4 Then e = "чт"
 If d = 5 Then e = "пт"
 If d = 6 Then e = "сб"
 If d = 7 Then e = "вс"
 tabl1.Edit
 tabl1![День] = e
 tabl1.Update
 tabl1.MoveNext
 Loop
a = a + 1
c = c - 1
Loop
Close
End Function

И посмотри, что будет. Опробована на 2007 офисе.