مطلوب منع الحذف

[سمير الجبالي]

اساتذتي الرائعين من بعد السلام :

أوقفت القائمة المختصرة بنموذج الأكسس . وضعت كود منع استخدام زر DELET الذي رقمه 46 الموجود اسفل الآلة الحاسبة بالكيبورد ولكن زر ال DELET الموجود بأعلى الأعلى الحاسبة لم يظهر رقمه وبقي يعمل داخل النموذج وبالضغط عليه يقوم بحذف البيان المحدد بالجدول من داخل النموذج الفرعي ( الاستعلام) 

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

 

وشكراً جزيلاً لكم

[Hamdi Edlbi-khalf]

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

 

[سمير الجبالي]

هو نموذج به نموذج فرعي لإستعلام بحث جدول

أريد منع حذف البيانات 

وضعت تأمين ... وألغيت القائمة المختصرة ... كتبت الكود الخاص بزر الDELET ولكنه فعال للزر الذي أسفل اللآلة الحاسبة بالكيبورد بقي الزر الثاني الذي بالأعلى يعمل

[Hamdi Edlbi-khalf]

أخي العزيز

جرب هذا ...

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

من الصدف أنني أبحث عن هذا الموضوع منذ بضعة أيام .... و منذ بضع دقائق وجدت الحل !!!!

أخي الفاضل لو نجح لديك الأمر فدعوة  لوالدي .

 

[Hamdi Edlbi-khalf]

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

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

وحبذا لو غيرت عنوان السؤال إلى ما يدل عليه ... مما سيساعد الباحث على الوصول إليه

تم تعديل أكتوبر 5, 2018 بواسطه Khalf

[ابوخليل]

13 دقائق مضت, Khalf said:

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

نعم  او يمكنك اخفاء محدد السجلات  فقط

[سمير الجبالي]

أستاذ Khalf

شكراً لك سيتم التجريب اليوم مساءاً إنشاءالله

وتحياتي لك 
و ارجو لك ولوالدك والخير 

>>>>

أما بخصوص : (مع العلم أنك لو منعت الحذف في النموذج الفرعي من خصائصه  أثناء عرضه مستقلاً فذلك كاف و لا تحتاج إلى تعطيل مفتاح ديليت)

فقد تم تأمينه ومنع الحذف ولكن زاوية جدول الاستعلام ( حيث يندرج جدول البيانات ) بالضغط على الزاوية يتم تحديد جميع بيانات الجدول ويتم الحذف .

ومحدد السجلات غير موجود تم إلغاؤه

 

تم تعديل أكتوبر 6, 2018 بواسطه sameer7612

[سمير الجبالي]

من بعد التحيات 

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

بحثت عن كيفية فصل الاستعلام عن النموذج الرئيسي ولكن باءت تجاربي بالفشل

[Hamdi Edlbi-khalf]

أخي العزيز

أولاً أرجو أن يكون الأمر قد حقق المطلوب ..

ثانياً

الان, sameer7612 said:

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

لم أتبين المعنى من هذه الجزئية فالأمر لا يحتاج إلى أي شيء فقط ضعه ضمن النموذج الفرعي في حالة عرضه مستقلاً و السبب في ذلك أن الأمر يجب أن يوضع في حدث keydown و هو حدث لا يوجد سوى في النموذج الرئيسي .. و سيعمل في النموذج الفرعي دون أية مشاكل ...

أعتقد أنك  قد أضفت النموذج مباشرة عن طريق إضافة الاستعلام إلى النموذج الرئيسي و بالتالي هو نموذج بصورة ورقة بيانات .. و لا يمكن عرضه في صورة نموذج مستقل .

الحل هو أن تقوم بعمل نموذج مستمر أو ما ترغب به و إضافته نموذحاً فرعياً و تطبيق الكود عليه .

أو سأجاول ... أن أجعل الأمر يعمل على ورقة البيانات ..

انتظرني قليلاً ..

تم تعديل أكتوبر 6, 2018 بواسطه Khalf

[سمير الجبالي]

من بعد التحيات 

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

بحثت عن كيفية فصل الاستعلام عن النموذج الرئيسي ولكن باءت تجاربي بالفشل

هذا الاستعلام بيت القصيد

أستاذي الكريم

أريد أن أمنع الحذف 

[Hamdi Edlbi-khalf]

الان, sameer7612 said:

حثت عن كيفية فصل الاستعلام عن النموذج الرئيسي ولكن باءت تجاربي بالفش

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

سأحاول أن أجد حلاً

[سمير الجبالي]

الاستعلام مبني على حسب جزء من الاسم وفق المعيار

Like "*" & [Forms]![حسب جزء من الأسم]![نص1].[Text] & "*"

ومربع النص Requery للتابع 3 الذي هو من الاستعلام

[Hamdi Edlbi-khalf]

السلام عليكم ....

إليك هذا الكود

Private Sub FORM_subform_Enter()
Me.FORM_subform.Form.AllowDeletions = False
End Sub

ضفعه في النموذج الفرعي في حدث ENTER

الشكر لموقع BYTES

 

[سمير الجبالي]

وتوقف الاستعلام عن البحث

[Hamdi Edlbi-khalf]

أخي الكريم .... عدل الكود ليماثل اسم النموذج عندك  ... و احذف جملة الحدث ...

Me.(اسم النموذج كما هو في سطر الحدث).Form.AllowDeletions = False
End Sub

 

[سمير الجبالي]

شكراً جزيلاً كثيراً جداً جداً جداً 

بارك الله بكَ وأرجو ان يكون في ميزان حسناتك 

حرسك الله و والدك

 

الأمور صارت ببركة جهودكم تمام

[Hamdi Edlbi-khalf]

وفقك الله