modify to fit your tables...
Code:
'get 1st day of the week 'SUNDAY
Public Function PostRecsTo1stDOW()
Dim i As Integer, j As Integer
Dim v1stDOW, vDate, vD
vDate = DMax("*", "table")
v1stDOW = vbSunday
i = Format(vDate, "w")
iEnd = 8 - i
If i = v1stDOW Then
get1stDOW = vDate
Else
get1stDOW = DateAdd("d", iEnd, vDate)
End If
docmd.setwarnings False
For j = 1 To iEnd
vD= dateadd("d",j,vDate)
sSql = "INSERT INTO tTABLE ([dateFld]) values (#" & vD & "#)"
docmd.runSql
Next
docmd.setwarnings True
End Function