تفضل عدل الكود الى هذا
Dim i As Integer
Dim x As Date
DoCmd.GoToRecord , , acFirst
x = Forms![test1]![Date_M]
For i = 0 To Forms![test1]![no] - 1
Me.date1 = x
Me.serial = Forms![test1]![serial]
Me.no = i + 1
DoCmd.GoToRecord , , acNext
x = DateAdd("d", Forms![test1]![no2], x)
Next
test14.rar