ابو عارف

الاستاذ @AbuuAhmed اصدار قديم الاكسس لا يدعم دوال Execute و SearchForRecord من فضلك جرب الكود التالي في اكسس لديك Dim src As String src = Me.RecordSource Dim Rc As Integer Dim rst As Recordset Set rst = Form.RecordsetClone Dim i Rc = DCount("[y_n]", src, "[y_n]=-1") With rst Do While Rc > 0 .FindFirst "[y_n]=-1" .Edit !y_n = 0 .Update Rc = Rc - 1 Loop End With Beep DoCmd.SetWarnings (-1) End Sub و المرفق موجود في مشاركتي الاخيرة ولكم مني اجمل تحايا

تم ازالة متغير كنت استخدمه بدل while في البداية و نسيت احذفه

السلام عليكم و رحمة الله و بركاته اساتذتنا الكرام ، حقاً كثرة مشاركات في موضوع جاب خير و بركة و سبب اتباه الى نقاط ما كنا ننتبه لهم و منهم وجهة نظر الأستاذ/ @جعفر (سرعة في الأداء دون مساس بجدول) و وجهة نظر الأستاذ/ @شايب (إلغاء محددات متعددة سواء دخل مباشر من جدول أو من قبل مستخدم آخر على الشبكة أو أي سبب آخر لان الحقل أساسا قابل حفظ المتعدد) في تعديل الأخير عملت الكود و جربته على 310000 سجل يمكن اكثر ولكن يزيد من حجم مسموح في المنتدى الكود و المرفق Dim src As String src = Me.RecordSource Dim Rc As Integer Dim rst As Recordset Set rst = Form.RecordsetClone Rc = DCount("[y_n]", src, "[y_n]=-1") With rst Do While Rc > 0 .FindFirst "[y_n]=-1" .Edit !y_n = 0 .Update Rc = Rc - 1 Loop End With Hr_data.rar

انظر في المرفق أكثر من 300000 سجل NewTest.rar

السبب هو اصدار الاكسس قديم حتى لو 5 سجلات لا يعمل و هذا المرفق الجديد NewTest.accdb

ما رايكم في هذا حتى مع ادخال القيم من جدول HH.accdb

نظرا لوجهة نظر الاستاذ/جعفر حاليا نتعامل مع نموذج فقط و في مشاركتي القامة سنعالج تلك الخطاء ان شاء الله أخي حعفر ربما تقصد سجل جديد لا سجل الأخير ، في العادة نستخدم اختيار صح/خطاء لسجلات موجودة مسبقا لا لجديدة ولكن لانستبعد ان مستخدم يقوم وضع العلامة بالخطاء، و لتخطي تلك الخطاء التعديل في مرفق aa.accdb

هذا قابلة اهتمام أكثر بنسبتة لي هذا كود بطريقة ثانية (في حدث واحد فقط و بدون اضافة كائنات اخرى) Dim RecNum As Integer RecNum = CurrentRecord DoCmd.SearchForRecord , , acFirst, "y_n=true": y_n = False DoCmd.SearchForRecord , , acLast, "y_n=true": y_n = False DoCmd.RunCommand acCmdSaveRecord DoCmd.GoToRecord , , acGoTo, RecNum: y_n = True aa.accdb

و بارك الله فيك تفضل ops2.accdb

يعمل عندي 100%100 يمكن جربت ملف آخر بداله جرب الكود في حدث كليك y_n CurrentDb.Execute ("UPDATE a SET a.y_n=false") DoCmd.RunCommand acCmdSaveRecord

ماشاء الله استاذ /kkhalifa1960 انا اعتقدت استاذ دلي لايريد عرض شهور مدفوعة معه كما هو في مثال السابق المهم اهم شيء حل السؤال و الحمد لله

و هذا احد الحلول aa.accdb

شكرا أخي على الانتباه و تم تعديل المرفق

هو فعلا يقفل صفحة محددة حسب رغبتك اذا ماتريد قفل صفحة 2 مثلا ، امسح حدث فقدان تركيز ops في صفحة 2 على كل حال عدلت لك المثال لالغاء تمكين صفحة 1 فقط ops.accdb

أخي الكريم، أعمدة جدول يمثل شهور السنة و عمود يحتوي بيانات اكثر من شخص فكيف يمكن تطبيق ميعارين مختلفين في عمود واحد و في وقت واحد. او ربما انا ما فهمت على ما تقصد.