برنامج المواعيد بدلا من سنة , خمس سنوات

[محمد احمد لطفى]

السلام عليكم ورحمة الله و بركاته

فى هذا النموذج عن الضغط على ستارت فى انموذج الفرعى يتم ضبط المواعيد كل سنة كيف يمكن جعلها خمش سنوات

 

 

جزاكم الله خيرا

test2000.mdb

[محمد احمد لطفى]

التعديل على هذا السطر 

Me.no = DateAdd("D", i, Forms![test1]![no1])

عندما أجعله 

Me.no = DateAdd("D", 5, Forms![test1]![no1])

يعمل و لاكن تصبح التواريخ واحده 

[kanory]

سؤالك غير مفهوم ..... هل تريد في النموذج الفرعي فقط 5 سجلات أم ماذا تريد بالضبط .... ماذا تقصد بخمس سنوات ... بارك الله فيك

[Shivan Rekany]

استأذن من استاذ @kanory

12 ساعات مضت, محمد احمد لطفى said:

عن الضغط على ستارت فى انموذج الفرعى يتم ضبط المواعيد كل سنة كيف يمكن جعلها خمش سنوات

اذا تريد ان يكون يضاف 5 سنوات كل مرة بدل سنة واحدة اتفضل اليك هذا
 

Private Sub أمر24_Click()
On Error GoTo g:
On Error Resume Next
Dim i As Integer
Dim X As Date
Dim DATE_POST As Date
Dim MyYear As Integer
DoCmd.GoToRecord , , acNewRec
For i = 0 To Forms![test1]![no] - 1
MyYear = i * 5
Me.serial = Forms![test1]![serial]
Me.date1 = DateAdd("yyyy", MyYear, Forms![test1]![Date_M])
Me.no = DateAdd("D", i, Forms![test1]![no1])
DoCmd.GoToRecord , , acNext
'On Error Resume Next
Next

g: Exit Sub

End Sub

 

test2000.mdb

[محمد احمد لطفى]

هذا هو المقصود استاذى @Shivan Rekany

[kanory]

بارك الله فيك @Shivan Rekany