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

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

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

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

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

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

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

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

test2023-1.mdbFetching info...

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

[متقاعد]

  في 28‏/4‏/2023 at 12:21, محمد احمد لطفى said:

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

Expand  

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

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 بواسطه محمد احمد لطفى

[متقاعد]

  في 28‏/4‏/2023 at 16:02, محمد احمد لطفى said:

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

Expand  

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

قلت

  في 28‏/4‏/2023 at 15:34, متقاعد said:

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

Expand  

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

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

تكون

rs!serial = meserial

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

تحياتي

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

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

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

[Ezril]

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

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

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

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

test2023-1.rarFetching info...

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

  اقتباس

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

Expand  

أبشر 

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