أخي الفاضل استبدل في الفورم (=DateAdd("m",[Numberweeks],[Startdata])) إلى (=DateAdd("ww",[Numberweeks],[Startdata]))
وفي محرر الأكواد استبدل (rst!Startdata = DateAdd("m", i, Me.Startdata)) إلى (rst!Startdata = DateAdd("ww", i, Me.Startdata))
ووافني بالرد .