هل توجد طريقة لتباعد التاريخ

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

السلام عليكم ورحمة الله و بركاته
احتاج مساعدة يا اخوانى 
اريد فى النموذج الرئيس عند كتابة رقم فى تباعد الايام  يتغير التاريخ فى النموذج الفرعى 
مثلا لو كتبنا فى النموذج الرئيسي تباعد التاريخ رقم 10 
يصبح التاريخ النموذج الفرعى 
1/11/2016
11/11/2016
21/11/2016
1/12/2016
مثلا لو كتبنا فى النموذج الرئيسي تباعد التاريخ  رقم 15 
يصبح النموذج الفرعى 
1/11/2016
16/11/2016
1/12/2016
16/12/2016
وجزاكم الله خيرا
    

 

test.rar

[ابوخليل]

تفضل

test2.rar

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

جزاك الله كل خير
ممكن حاجة صغيرة كمان عند الضغط على 
start 
او جديد 
يظهر رسالة هل أنت متأكد

[ابوخليل]

تفضل

 

test4.rar

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

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

[ابو جودي]

21 ساعات مضت, ابوخليل said:

تفضل

 

test4.rar

بارك الله تعالى فيك استاذى الجليل ومعلمى القدير ووالدى الحبيب
اسال الله تعالى ان يهسئ لكم من كل اموركم رشدا وان يرزقكم الخير كله وان يجعل اعمالكم خالصة لوجه الكريم وان يرزقكم البركة فى العلم والعمل والاهل والولد وان يغفر لكم ولوالديكم وللمسلمين اجمعين الاحياء منهم والاموات امين امين امين امين

[ابوخليل]

آمين .. ولك بمثل ما دعوت

اشهد الله على حبك ابا جودي

وكثير احبهم هنا .. وادعوا لهم بظهر الغيب اذا مررت بشيء من اعمالهم او ذكراهم

وهذا هو المطلب الحق : دعوات خفيات  بظهر الغيب

 

[ابو جودي]

8 ساعات مضت, ابوخليل said:

آمين .. ولك بمثل ما دعوت

اشهد الله على حبك ابا جودي

وكثير احبهم هنا .. وادعوا لهم بظهر الغيب اذا مررت بشيء من اعمالهم او ذكراهم

وهذا هو المطلب الحق : دعوات خفيات  بظهر الغيب

 

احبكم الله تعالى الذى احببتمونى فيه ولاجله

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

الى الاخ العزيز ابو خليل 
هل بالامكان ان تكون اول خلية تاريخ فى النموذج الفرعى  تبدأ بنفس تاريخ التاريخ بالنموذج الرئيسى 
data_m

تم تعديل نوفمبر 16, 2016 بواسطه محمد احمد لطفى

[ابوخليل]

تفضل  عدل الكود الى هذا

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