اضافة تسلسل الارقام و التاريخ الى النموذج الفرعى

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

فى النموذج الرئيسى يتم كتابة التاريخ و هو بمثابة تاريخ البداية 
ومن حقل (من) بداية الرقم الذى سنبدأ منه مسلسل الارقام 
الى حقل (الى)  وهو ستنهى عنده مسلسل الارقام
* عدد السجلات تم اخذها من طرح حقل (الى) - (من)

المطلوب فى النموذج الفرعى اضافة مسلسل الارقام  واضافة التاريخ  كما الصورة المرفقة

التاريخ هناك حقل فى النموذج الرئيسى (تباعد التاريخ ) و هو نختار تباعد التاريخ لكل سجل و يكون البداية من حقل التاريخ 
* أن العميل مفروض يحضر كل خمس أيام مثلا 

العمل على زرار الطريقة الجديدة 

زرار الطريقة القديمة يعمل جيداً و لكنه يأخذ وقت كثير فى عد السجلات 

و جَزاكم الله كلَّ خير

test2023-1.mdb

تم تعديل أبريل 28, 2023 بواسطه محمد احمد لطفى

[متقاعد]

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

العمل على زرار الطريقة الجديدة 

في زر الامر ضع التالي

Dim x As Date
Dim a As Integer
Dim rs As DAO.Recordset
x = Forms![TEST1]![Date_M]
Set rs = CurrentDb.OpenRecordset("subx")
For a = Forms![TEST1]![NumberEnd] - 1 To Forms![TEST1]![NumberStart] - 1
rs.AddNew
rs!date1 = x
rs!id = Forms![TEST1]![id1]
rs!serial = Forms![TEST1]![serial]
rs!NumberX = a + 1
x = DateAdd("d", Forms![TEST1]![ChooseDayes], x)
rs.Update
Next a
rs.Close
Set rs = Nothing
Me.Requery

لو تلاحظ اني لم اغير في طريقتك هو تقريبا نفس كودك ولكن يتعامل مع مصدر السجلات

مع انه يمكن كتابته بشكل افضل ولكني استخدمت طريقتك لايصال المعلومة بشكل اسهل

تحياتي

 

 

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

أستاذ @متقاعد

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

أستأذنك ممكن نشوف الطريقة الثانية ممكن تكون افضل

تم تعديل أبريل 28, 2023 بواسطه محمد احمد لطفى

[متقاعد]

17 دقائق مضت, محمد احمد لطفى said:

أستأذنك ممكن نشوف الطريقة الثانية ممكن تكون افضل

لم اتحدث عن طريقة ثانية

قلت

45 دقائق مضت, متقاعد said:

مع انه يمكن كتابته بشكل افضل ولكني استخدمت طريقتك لايصال المعلومة بشكل اسهل

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

rs!serial = Forms![TEST1]![serial]

تكون

rs!serial = meserial

وايضا ممكن الاستعانه بمتغيرات وهكذا من حيث الترتيب

تحياتي

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

أستاذ @متقاعد

ربنا يبارك فى حضرتك و يحفظك  

[Ezril]

طريقه باليوم وبالشهر وبآخر الدفعات او دفعه محدده افضل من تكدس قاعدة البيانات بسجلات لا فائده منها من سجل واحد فقط احتمال تكون فكره! 

@محمد احمد لطفى لا تنسى عندي مشكله بموضوع اذا في احد يقدر يساعدني هه 

هذه بطريقه جديده

هذا من مرفقك وليس من مرفق @Eng.Qassim 

test2023-1.rar

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

اقتباس

لا تنسى عندي مشكله بموضوع اذا في احد يقدر يساعدني هه 

أبشر 

فى بعض الاحيان يحتاج الموضوع الى توضيح