Hamdi Edlbi-khalf

أهلاً أخي لم أجرب عملها من قبل و سأحاول إن شاء الله .

إضافة جديدة .... تتعلق بالتراجع altered.mdb

مرحياً أخي الكريم .... لقد وضعتَ في البرنامج بعض المتطلبات المتعارضة و لحل هذا التعارض لجأتُ إلى وضع زرين ( هما في الواقع مربعا نص منضمان و يمكن جعلهما غير منضمين ) الغرض من هذه المربعات إظهار المعرفات للسجلات المكررة و عند النقر عليها ستنقلك إلى السجل المطلوب بينما جغلت زر الإضافة ( و الذي لا فائدة منه إذا أبقيت أزرار التنقل كونها تضيف سجلات جديدة عند الانتقال إلى سجل جديد ) خاصاً بالإضافة فقط مع عرض رسالة تفيد بأن لديك بيانات ناقصة بالسجل الأخير لديك . و عند الانتقال من حقل DATEX تظهر رسالة تخبرك بأن هناك سجلاً مكرراً ، و تستيطع من خلالها معرفة الأمر و تجاهله أو الالتزام به بناء على رغبتك ( تمت إزالتها مبدئياً )

عند التجربة لم يُبَدِ لدي هذا الخطأ لذلك لم أتداركه . و قد تمت معالجة المشكلة أما بالنسبة للمشكلة الثانية لو انتبهت أخي الكريم إلى مربع ID ستجد أنك انتقلت إلى سجل آخر يكون التاريخ فيه ٦/١٠ أو ٤/١٠ أو غيره و يمكن التأكد من خلال أزرار التنقل حيث يظهر رقم السجل . لقد أضفت بعد التعديلات التي ستحتاجها في برنامجك النهائي altered.mdb

مرحباً بما أنك لم تحدد الغرض من عملك فأسهل طريقة .. ١- اعمل استعلام ٢- و اجعل في معايير الحقل null و عندها تحصل على كامل السجلات التي فيها الحقل المذكور فارغاً . و أخيراً ما هو نوع الحقل الذي تبحث به ؟

مرحياً altered.mdb

ملاحظة ضع الأمر في النموذج الفرعي و لكن أثناء عرضه مستقلاً و ليس ضمن إطار النموذج الرئيسي و بإذن الله سيعمل ... مع العلم أنك لو منعت الحذف في النموذج الفرعي من خصائصه أثناء عرضه مستقلاً فذلك كاف و لا تحتاج إلى تعطيل مفتاح ديليت .. وحبذا لو غيرت عنوان السؤال إلى ما يدل عليه ... مما سيساعد الباحث على الوصول إليه

أخي العزيز جرب هذا ... Private Sub YOURFIELD_KeyDown(KeyCode As Integer, Shift As Integer)' يمنع حذف محتويات حقل If KeyCode = vbKeyDelete Then KeyCode = 0 End If End Sub ============================= Private Sub YOURFORM_KeyDown(KeyCode As Integer, Shift As Integer)' يمنع حذف السجلات If KeyCode = vbKeyDelete Then KeyCode = 0 End If End Sub من الصدف أنني أبحث عن هذا الموضوع منذ بضعة أيام .... و منذ بضع دقائق وجدت الحل !!!! أخي الفاضل لو نجح لديك الأمر فدعوة لوالدي .

على ما أعلم لا يمكن تعطيل الأزرار إلا في النموذج و التقرير حيث يمكن وضع أوامر الفيجوال بيزيك .

للملاحظة يمكن التعديل على التصميم و الأمر بصورة أفضل و لكن بانتظار ملاحظاتك

مرحباً أخي الحبيب @ابا جودى لقد قمت بتجريب الملف المرفق و بالواقع فإن الطريقة الموجودة في الملف حصلت عليها أثناء بحثي في جوجل قبل طرحي للسؤال و لم أرغب بها نظراً لطولها .. و كنت أرغب بطريقة مختصرة تعطل جميع الاختصارات و وجدت الأمر المذكور في أحد المواقع الأجنبية ... و أني مشوق لمساهماتكم في تعديل الأمر و لكم بذلك الأمر و من الله الأجر . سأحاول تعديله و سأعلمكم بالنتيجة.

و كل الشكر للسيد @kaser906 فعنه أخذت هذه الكود و قد عدلت عليه بما يتلائم مع طلبك . 20005 test alterd2.mdb الأخوة الأفاضل ...معك أرجو أن تضع عنك هذه الوجه الحزين

أعتقد أن من الأفضل جعل الحدث بعد تحديث مربع DATEX حتى تظهر الرسالة عند تكرار الرقم ضمن الشهر و إلا فلا حاجة لتعديل الاستعلام و بناء الدالة DCOUNT بناء على التعديل . هذا إلم ترغب أن يكون الحدث عند نقر المفتاح .

آمل أن يكون هذا المطلوب 20005 test altered.mdb

👍🏻 الطريقة صحيحة و لا غبار عليها و الفيديو يشرح ذات العملية الموجودة في الرابط الثاني . و أعتقد أن البرنامج سيكون إضافة مميزة عندما أحظى به .

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

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

بارك الله بكم

https://helpdeskgeek.com/how-to/prevent-file-deletion-and-file-renaming-in-windows/

كل الشكر لك و لـ @ابوخليل خاصة أن البحث في الموقع لم يسعفني بإيجاد هذا الموضوع .

هذه الطريقة تنفع بالنسبة للحالة الثانية و هي بتعديل خصائص ملف المشاركة بتقييد الصلاحيات للمستخدمين .. منع حدف ملف من مجلد share شير و لكن هل أستطيع تنفيذ طريقة ما على الحاسب نفسه لمنع الحذف عن طريقة الخطأ؟ فمن الممكن أن نمنع مستخدماً من حاسب آخر من حذف الملف خطأ و يحذف الملف صاحب الجهاز الرئيسي و بالخطأ أيضاً .

بانتظار توجيهاتكم أساتذتي الكرام .

بارك الله بك و لكن ماذا لو كانت قاعدة البيانات غير مقسمة و موجودة محلياً على الحاسب هل تؤدي الطريقة المذكورة الغرض ؟ أما الحالة التي أبحث عن حل لها بصورة أساسية في الوقت الراهن .. هي قاعدة بيانات موجودة على ملف share ضمن شبكة محلية ليس بها سيرفر . أرغب بمنع حذف قاعدة البيانات ( إن كان الحذف عن طريق الخطأ على أقل تقدير ) ؟ بارك الله بكم .

مبدئياً هذا الأمر يعطل استخدام تركيبة أزرار If Shift = 4 Then 'Alt key Select Case KeyCode Case vbKeyReturn KeyCode = 0 End Select End If

السلام عليكم كيف أوقف اختصارات لوحة المفاتيح في برنامج أكسس عدا النسخ و اللصق . و شكراً أساتذتي