الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

زر لحماية السجلات

بدأه lordring في 24 أكتوبر 2011 · 10 رد · 602 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

في المرفق التالي اريد ان يفتح النموذج وازرارا اضافة او حذف السجلات الموجودة فيه تكون غير مفعلة

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

الرابط الخاص بي

وشكرا لكم ..........

#2

اخي العزيز lordring

فقط نصيحة من مبتدئ...

من خلال متابعتي لمواضيع الاساتذة والاعضاء في هذا المنتدى، أراهم دائماً يشددون على أن لا تكون اسماء الحقول باللغة العربية لان هذا قد يتسبب في بعض المشاكل.

استبدل اسماء الحقول الى اللغة الانجليزية وفي داخل النموذج لا ضير ان وضعت التسميات باللغة العربية.

تحيااااتي

#3

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

#4

وعليكم السلام ورحمة الله

تفضل التعديل

Database11.rar

1
#5

شكر لك اخي لكن المشكلة انه حتى مع وجود الحماية حاليا فانه يمكن فتح سجل جديد من ازرار التنقل في النموذج ..

فكيف الحل ..

تحياتي

#6
lordring كتب:

شكر لك اخي لكن المشكلة انه حتى مع وجود الحماية حاليا فانه يمكن فتح سجل جديد من ازرار التنقل في النموذج ..

فكيف الحل ..

تحياتي

من أجل ذلك:

1- يجب أن تكون خاصية "أزرار التنقل" في النموذج قد تم تعيينها إلى "لا".

2- ضع أزرار أمر جديدة في النموذج للتنقل بين السجلات, "التالي - السابق - الأول - الأخير" حسب رغبتك.

3- طبق نفس الخطوات التي طبقناها على زريّ الإضافة والحذف في المثال, على أزرار التنقل التي سيتم إنشاؤها.

#7
اقتباس
يجب أن تكون خاصية "أزرار التنقل" في النموذج قد تم تعيينها إلى "لا".

هذا الخيار عندما اقوم بتعيينه يسبب لي الكثير من المشاكل في النموذج الذي لدي حيث تتاث بعض الاضافات لذلك لااستطيع استخدامه

شكر لك اخي بارك الله فيك

#8
lordring كتب:

هذا الخيار عندما اقوم بتعيينه يسبب لي الكثير من المشاكل في النموذج الذي لدي حيث تتاث بعض الاضافات لذلك لااستطيع استخدامه

حسناً .. لن أسألك عن المشاكل التي تحدث جراء تعيين خاصية النموذج "ازرار التنقل" إلى "لا".

يمكنك أن تترك تلك الخاصية وشأنها, فقط أضف هذا الكود -أو ما يشابهه- إلى حدث "في الحالي" للنموذج:

If Me.NewRecord Then
If Me.cmd11.Enabled = False Then DoCmd.GoToRecord , , acLast
End If

كما يمكنك إضافة رسالة تنبيه للمستخدم عندما يحاول الانتقال إلى سجل جديد, كما في التعديل التالي:

Database12.rar

#9

رائع جدا اخي الكريم بارك الله فيك

لدي اشكال انه بعد ظهور رسالتك تظهر لي الرسالة الاخرى الافتراضية

كيف استطيع البقاء على واحدة منهم فقط

1
#10

أخي الكريم:

لا توجد أي رسائل افتراضية في المثال المرفق, سوى الرسالة التي برمجتها في المثال.

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

لا تستطيع أن تعرف ماهو الخطأ, إلا إذا فهمت ماذا كتب في رسالة الخطأ.

#11

اخي الكريم ليست رسالة خطاء وانما رسالة تخبرني بانه لايمكن الذهاب الى السجل المحدد

تحياتي

مواضيع مشابهة