رمهان

عزيزي انصح بالحث دائما قبل طرح موضوع وهنا شبيه لما تريد وتقبل تحياتي

Private Sub serial_BeforeUpdate(Cancel As Integer) Set rs = Me.RecordsetClone rs.FindFirst "serial='" & Me.serial & "'" If Not rs.NoMatch Then Undo Me.Bookmark = rs.Bookmark MsgBox ("مكرر") End If End Sub

مرحبا اخ محمد اشارك ب : 1. تعمل تطبيق خاصية الفلتر على النموذج بالشرط المناسب وهنا ستكون السجلات المطلوبة فقط وهتا حسب فكرة الاخ كاسر ومصدر النموذج جدول 2. استخدام docmd.findrecord او docmd.searchforrecord وطبعا مع ادخال الباراميترز المناسبة مثل شرط البحث واتجاه حركة السجلات 3. نشوف لك طريقة رمهانية !!! بشرط ان ماسبق لم يناسب تحياتي

اخي ابو زاهر يوجد نموذج فرعي من البداية ويوجد نموذج يفتح بعد الضغط على الانتر مرتين ايهم تريد التراجع فيه ؟ مع العلم ان الاكسس ليس من السهل عملية التراجع في النماذج لانها مربوطه بالجداول ويتم الحفظ تلقائي

هذه تنفيذ لفكرة الاستاذ جعفر تحياتي 900.test.mdb

الملف لا استطيع فتحه حيث برنامج الضغط لدي ليس اصدار حديث

العفو اخي اواب والحمد والفضل لله رب العالمين

جرب وان شاء الله زبطت وتقدر تغير الرقم 25 في الكود الى 20 او اي رقم حسب الحاجة تحياتي a1.mdb

وينك استاذ @jjafferr

لا شكر على واجب ياغالي

ابشر وان شاء الله نقدر نفيدك ... فيه فكره لو زبطت مافيش منها !

هذه فكره تحياتي dbgh.mdb

على افتراض ان لديك حقل به يدرج تاريخ السجل وليكن اسمه تاريخ الادخال وعلى افتراض ان به قيمة افتراضية عبارة عن الدالة ()date ومن خلال خصائص الحقل بالجدول بعرض التصميم تكتب بمعيار الاستعلام date() or date()-1 بالتوفيق

حبيت اشاركك استاذ جعفر بكود يعمل السكونس للجميع بعد التحديث للكمبو Private Sub txtH_AfterUpdate() Set rsg = CurrentDb.OpenRecordset("SELECT tbltqwem.dateH FROM tbltqwem GROUP BY tbltqwem.dateH HAVING (((tbltqwem.dateH) Is Not Null))"): rsg.MoveFirst Do While Not rsg.EOF Set rs = CurrentDb.OpenRecordset("select seq from tbltqwem where dateH='" & rsg(0) & "' order by id"): rs.MoveFirst Do While Not rs.EOF x = x + 1 rs.Edit rs(0) = x rs.Update rs.MoveNext If x = 20 Then x = 0 Loop x = 0 rsg.MoveNext Loop Me.Requery End Sub وباقي عليك تغيير الشرط between حسب التاريخ ! تحياتي

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

عزيزي ابا خليل هذي لخمس نماذج فرعية حبيت انبه : الشروط لموجودة ليس لها دخل بقيم الحقل وانما العدد بحيث عمل عداد في الاستعلام الاساسي هناك فكرة تحسين كجعل جمل الاستعلام عن طريق الكود واخفاء النموذج الفرعي الذي ليس به سجلات ولكن وجدت الاكواد قليلة لا تستوجب التحسين اعتقد فقط التحسين اذا كان هناك بطء في عرض النماذج ولك ماتراه ونحن نستنير بافكارك تحياتي test11.mdb

اكيد .. الحر تكفيه الاشارة

تمام .. قيد التنفيذ تحياتي

حياك اخي اباخليل ملاحظتك في محلها طيب ايش رايك نطبق فكرتك وخلينا نثبت عدد النماذج الفرعية = 10 وحسب مثالك وفكرتك سيكون نصيب كل نموذج فرعي 174 سجل ؟ هل 174 لكل عمود مشكلة ؟ اذا كانت مشكلة : ماهو اقصى عدد مسموح لديك للسجلات لكل نموذج ليتم معرفة عدد النماذج الفرعية المطلوبة ولاعلى سجلات كما ذكر 12000 ؟ تحياتي

الحمد لله اخ عمر وانبه فقط بانه يفضل عدم اعادة معالجة السحلات السابقة عن طريق : 1. ادخال التاريخ كشرط اضافي بحيث يكون التاريخ بداية سجلات لم تعالج 2. اضافة عمود "تمت المعالجة" نوعه صح/خطأ بحيث يتم وضع القيمة صح لكل سجل تمت معالجة وكما بالعمود "مهمل" ويضاف شرط للسجلات المراد معاجتها بالتي لها قيمة خطأ للحقل "تمت المعالجة" اي فقط المرور على السجلات التي لم تعالج وهنا بالطبع سيتم اختصار كثير من الدوران على السجلات والتي سيكون عناك فارق كبير في الوقت المطلوب والمستغرق لمعالجة السجلات تحياتي

جرب الملف التالي تنبيه : كانت ملاحظتك صحيحة اخ عمر هنا والان يظهر استنتاج : انه لو عمل الموظف كل 50 ثانية خروج ولعدد 10 مرات اي بين كل حركة وحركة 50 ثانية لنفس الحالة خروج فان اجماليهم سيصبح اكثر من دقيقة وهنا سيتم حذف 9 سجلات لانه الفارق بين كل وسجل وماقبله اقل من دقيقة ! هل هذا الاستنتاج صحيح ؟ حيث تم الملف التالي حسب هذا الاستنتاج مع التنبيه بانه تم استبدال عملية الحذف بتأشير السجل بانه مهمل حيث لك الخيار باهمالها بالاستعلام او تحديدها ثم حذفها تحياتي Del_record_2 (1).mdb

اخوي ابا خليل تفضل وان شاء الله انها تكون قريبة لما تسمو اليه بعد تاكيد الفكرة يمكن عمل اختصار للاكواد والاستعلام 1. تم عمل كمبو يعرض التواريخ فريدة 2.استعلام مصدر للبيانات المطلوبة كاملة قبل التقسيم 2. نماذج فرعية بها البيانات المطلوبة مقسمة بشرط مختلف حسب الحاجة للعدد الاقصى لظهور السجلات بكل عمود 3. كود اعادة الاستعلام للنماذج الفرعية يمكن اختصاره عند اضافة عدد كبير من النماذج الفرعية وتقبل تحياتي test11.mdb

اخ عمر حسب المناقشات السابقة كان المطلوب حذف سجلاتالفارق بينهم دقيقة فأقل وابقاء الاول فقط . وهذا تم بالكود اخ عمر وليس للاستعلام دخل فقط للتجميع . الان لتاكيد الفهم : تريد حذف سجلات حدثت خلال دقيقة لنفس الموظف ونفس التاريخ ونفس الحالة والابقاء على السجل الاول فقط؟ ومسألة البطء خليها بعدين . خلينا نفهم المطلوب تمام ومن ثم التحسين . تحياتي

بما ان التحرير مطلوب فيحضرني الفكرة التالية عمل نموذج فرعي لكل عمود وكل نموذج مصدره جملة استعلام تستخلص سجلات معينة تختلف عن ماتم اختياره في النماذج السابقة سواء بجملة شرط او خاصية توب للاستعلام وهنا سيقف العدد الاقصى المسموح في الاكسس بعدد النماذج الفرعية وان شاء الله اعود لك بمثال وكيفية التحايل على العدد الاقصى للنماذج الفرعية احتاج تفرغ ولذلك امهلني بعض الوقت ان شاء الله وان استطعت الفكرة مشتقة من الاساذ عارف (ابو شفيق ) والذي اتمنى انه بخير وعافية شبيه هنا عندما استخدم النماذج الفرعية هنا تحياتي

هلا بك ابا خليل ماودك تحول الى الاصدارات الجديده ؟ على فكره فيه ميزه خطيره بال 2003 فقدت في الاصدارات الجديده وان شاء الله نجلس مع بعض وتكون ضمن سواليفنا ! بالنسبة للاستفسار : ان شاء الله ممكن ولكن ماهو القصد من الطلب ؟ هل فقط للعرض ؟ وكم ممكن اقصى حد للاعمده؟ تحياتي