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

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

تم الحل Dim a As Integer Dim DATE_POST As Date Dim rs As DAO.Recordset DATE_POST = CDate(Forms![TEST1]![Date_M]) Set rs = CurrentDb.OpenRecordset("subx") For a = Forms![TEST1]![NumberStart] - 1 To Forms![TEST1]![NumberEnd] - 1 rs.AddNew If Not Weekday(DATE_POST) Like "[6-7]" Then rs!id = Forms![TEST1]![id1] rs!serial = Forms![TEST1]![serial] rs!NumberX = a + 1 rs!date1 = DATE_POST Else a = a - 1 End If DATE_POST = DATE_POST + 1 rs.Update Next a rs.Close Set rs = Nothing Me.Requery

شكراً أستاذى @kkhalifa1960 و لكن لا أريد أن يضيفهم البرنامج من الاساس كما الكود فى زرار الطريقة القديمة

كيف يمكن تخطى يوم الجمعة و السبت هناك زرار الطريقة القديمة و هو يعمل أرجو التعديل على زرار الطريقة الجديدة وجزاكم الله كل خير test2023-1.mdb

حتى نسخت الواتس القديمة على الكمبيوتر توقفت عن العمل هل هناك نسخة تعمل

أستاذ @متقاعد ربنا يبارك فى حضرتك و يحفظك

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

فى النموذج الرئيسى يتم كتابة التاريخ و هو بمثابة تاريخ البداية ومن حقل (من) بداية الرقم الذى سنبدأ منه مسلسل الارقام الى حقل (الى) وهو ستنهى عنده مسلسل الارقام * عدد السجلات تم اخذها من طرح حقل (الى) - (من) المطلوب فى النموذج الفرعى اضافة مسلسل الارقام واضافة التاريخ كما الصورة المرفقة التاريخ هناك حقل فى النموذج الرئيسى (تباعد التاريخ ) و هو نختار تباعد التاريخ لكل سجل و يكون البداية من حقل التاريخ * أن العميل مفروض يحضر كل خمس أيام مثلا العمل على زرار الطريقة الجديدة زرار الطريقة القديمة يعمل جيداً و لكنه يأخذ وقت كثير فى عد السجلات و جَزاكم الله كلَّ خير test2023-1.mdb

أستاذى @Ezril ممكن تطبيق الفكرة فى الملف بالمشاركة الاولى

UP

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

تحديث Dim x As Integer For x = Forms![test1]![no1] - 1 To Forms![test1]![no] - 1 CurrentDb.Execute "INSERT INTO Q1 ( ID ) VALUES (" & [Forms]![test1]![id1] & ");" Next 'MsgBox "تمت الإضافة" DoCmd.RunSQL "UPDATE SUBX SET SUBX.serial = [Forms]![test1]![serial] " & vbCrLf & _ "WHERE (((SUBX.id)=[Forms]![test1]![id1]));" Me.Requery تم ضبط عدد السجلات الان مطلوب اضافة رقم المعاد و التاريخ و هذا من خلال زرار الاول تحديد بالايام

بسم الله أول بداية ادراج عدد سجلات بطريقة سريعة Dim x As Long For x = 1 To 10 CurrentDb.Execute "INSERT INTO Q1 ( ID ) VALUES (" & [Forms]![test1]![id1] & ");" Next 'MsgBox "تمت الإضافة" DoCmd.RunSQL "UPDATE SUBX SET SUBX.serial = [Forms]![test1]![serial] " & vbCrLf & _ "WHERE (((SUBX.id)=[Forms]![test1]![id1]));" Me.Requery ولكن عدد السجلات For x = 1 To 10 كيف نغيرها الى الفرق من خلية عدد و من أى 3 الى خمسة السجلات الجديدة ثلاث سجلات

حضرتك تقصد كتر الزراير حاضر

أفضل إجابة للاستاذ @Ahmed_J

أخى @ابو طارق سعيد الكود الفلترة للتاريخ فى المشاركة الاولى موضوع فى تاريخ الدفعة و ليس تاريخ الشراء تم التعديل Database1-1 (3).rar

شكراً أستاذى @Ezril لا يوجد شبكة عند محاولة اتمام مثلا 50 عدد أو أكثر 100 أو 200 البرنامج يستغرق وقت كثير

أخى @ابو طارق سعيد عدل تنسيق التاريخ من YYY الى YYYY

أبشر

طيب تم العمل Database1-1.rar

تفضل هذه نتيجة لأستاذنا أبو جودى يمكنك استخدمها كما تشاء نتيجة.rar

فى هذا البرنامج أقوم بضبط المواعيد حيث أقوم بوضع أول تاريخ أريده فى خلية Date_M ثم عدد المواعيد المحدده يبدأ من خلية ( من = no1 الى عدد المواعيد ( عدد = no )) و أيضا أيام التباعد بين كل ميعاد من خلية تباعد التاريخ = no2 و الان هناك بعد الازرار فى النموذج الفرعى يقوم بالامر زرار 1 - تحديد وهو يعمل على التباعد بين كل تاريخ بعدد الايام المختاره من خلية تباعد التاريخ زرار 2 - شهر وهو يقوم بعمل التباعد بين كل تاريخ شهر زرار 3 - شهر مخصص وهو يقوم بعمل التباعد بين كل تاريخ بعدد الاشهر المختاره من خلية تباعد التاريخ زرار ربع سنه وهو يعمل على التباعد بين كل تاريخ ربع سنة زرار سنة وهو يقوم بعمل التباعد بين كل تاريخ سنة زرار 5 سنوات وهو يقوم بعمل التباعد بين كل تاريخ 5 سنوات زرار سنة مخصص وهو يقوم بعمل التباعد بين كل تاريخ بعدد السنة المختاره من خلية تباعد التاريخ زرار السبت للخميس يأتى بالمواعيد من السبت للخميس و يمنع يوم الجمعة زرار السبت للاربع يأتى بالمواعيد من السبت للاربع و يمنع باقى الايام زرار الحد للخميس يأتى بالمواعيد من الحد للخميس و يمنع باقى الايام زرار الخميس للسبت يأتى بالمواعيد من الخميس للسبت و يمنع باقى الايام البرنامج يعمل جيدأً و لكن فى حالة أن السجلات تكون كثيرة يأخذ وقت كثير أريد تغيير الاكود الى استعلام أو SQL أو ايجاد حل أفضل وجزاكم الله خيراً test120.mdb

مازال يعمل على اصدار واتس القديم

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

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