ابو عارف

هذا مثال حسب فهمي من السؤال من جدول الى استعلام المرفق TEST1.accdb

وعليكم السلام و رحمة الله أخي اليك المثال بعد تعديل و في المستقبل اذا اردت تطبيق الكود علي حقول اخرى ، ما عليك الا نسخ حدث بعد تحديث من حقل مطبق عليه الكود الى حدث بعد تحديث هذا الحقل و كتابة حرف H في خاصية Tag FF (1).mdb

احسنت أستاذ خليفة ، و انا ماجربت على اكسس 32 بت لان أنا أعمل على أكسس 64 بت (الشرط صواب) و ما ينتقل الى Else وسطر ذي خطاء في Else و ما أخبرني نسيت "O" 😊 و المرفق بعد تعديل FF.mdb

تفضل أخي برنامج اكسس عندي 64 بت حصلت المديول في المنتدى ثم قمت ببعض تعديلات لكي يعمل على نواتين 64 و 32 بت و عرض نافذة InputBox في وسط الشاشة FF.mdb

أخي عدلت لك المثال يعتمد على فراغ مربع نص ops في حالات: بعد تحديث ops ، عند فتح نموذج ، عند تنقل بين سجلات يعني عند تنقل بين سجلات و وصلت المربع فارغة يتم تمكين الصفحة و الا يتم الغاء تمكينها، FF.mdb

وعليكم السلام و رحمة الله و بركاته لان يتم تغير خصائص و نموذج في عرض نموذج ،لا في عرض تصميم النموذج يحفظ تغيرات في وضع تصميم و لإبقاء صفحات غير ممكنة ضع الكود تالي عند فتح نموذج Private Sub Form_Open(Cancel As Integer) TabControl_1.Pages(0).Enabled = False TabControl_1.Pages(1).Enabled = False TabControl_1.Pages(2).Enabled = False End Sub

الأخ @بلانك اولا كلام الاستاذ/ @عبدالله بشير عبدالله صحيح كان عليك فتح موضوع الجديدة ثانيا هل جربت تعديل الاخير !! لا يوجد دوائر على درجات اللي اشرت في الصور الشهادات.pdf test.zip

تم تعديل انظر المرفق test.xlsb

تفضل انظر استعلام و نموذج الجديدين dot.accdb

عملت زر اغلاق في أعلى نموج من اجل نقل تركيز اليه قبل تنفيذ الكود بعد تحديث مربعات نص الثلاثة ، في العادة عندإخفاء عناصر ذي تركيز مشكلة ، لا عند إلغاء تمكين و إلغاء تمكين عناصر ذي تركيز ممكنة حسب تجربتي في اكسس 2007-2019 على كل الحال انت جرب المثال ان شاء الله يعمل معك. FF.mdb

تفضل اليك التعيل تحويل الشهادات الى PDF قي ملف واحد.xlsm

سلامات سلامات أستاذ @Eng.Qassim ما تشوف شر

و هذا مثال حسب فهمي من السؤال Database1 (1).accdb

عندي اوفيس 2019 64 بت و الويندوز 2010 المثال يعمل بدون اية مشكلة أساسا حتى على الملف اكسس 2003

آمين آمين

اذن المغرب و استعجلت كتابة تعليق كنت اقصد: خطاء رسالة تشير كمحاولة تعطيل عنصر من حدث قبل تحديث او نقر لا من حدث عنصر آخر او حدث بعد تحديث، لان هنا أمر تنفيذ تعطيل في حدث بعد تحديث عنصر من عناصر صفحة و بعد تحديث هذا عنصر لا يكون تركيز فيه

وعليكم السلام و الرحمة الله خطاء رسالة تشير كمحاولة تعطيل عنصر من حدث عنصر آخر لان هنا أمر تنفيذ تعطيل في حدث بعد تحديث عنصر من عناصر صفحة و بعد تحديث هذا عنصر لا يكون تركيز فيه

وعليكم السلام و رحمة الله و بركاته لايوجد خطاء و اليك المثال FF.mdb

الاستاذ @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