كود AllowAdditions = False لا يعمل معي في النموذج

[محي الدين فره]

وضع كود لتقيد الوصول للتحرير و الإضافة و الحذف لنموذج معين  حدث عند فتح النموذج 

If Form_دخول.tap = "مستخدم" Then
    Form.AllowAdditions = False
    Form.AllowDeletions = False
    Form.AllowEdits = False
    MsgBox "صلاحيات محدوده", vbInformation, "اهلا و سهلا"

End If

لكنه لم يعمل معي  النموذج يقبل الإضافة و التحرير و الحذف

الرجاء المساعدة لحل المشكلة

صورة مرفقة توضح خصائص بيانات النموذج

[jjafferr]

وعليكم السلام )

واهلا وسهلا بك في المنتدى:

للإستفادة القصوى من المنتدى ، رجاء قراءة قوانين المنتدى : اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة

 

بدل كلمة Form ، استخدم .Me ، هكذا:

If Form_دخول.tap = "مستخدم" Then
    me.AllowAdditions = False
    me.AllowDeletions = False
    me.AllowEdits = False
    MsgBox "صلاحيات محدوده", vbInformation, "اهلا و سهلا"

End If

.

 

جعفر

[محي الدين فره]

السلام عليكم 

جربت كما قلت لي استاذنا الفاضل و لاكن دون جدوي 

كما جربت هذا الكود 

Me.AllowEdits = False

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

[jjafferr]

هل هو نموذج فرعي؟

 

 

[محي الدين فره]

لا .... نموذج رئيسي

[ناقل]

 

4 ساعات مضت, محي الدين فره said:

لا .... نموذج رئيسي

طيب ممكن مرفق ...

[محي الدين فره]

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

اكتشفت اين المشكلة و هي كود في حدث في الحالي عند حذفه اختفت المشكلة  والكود هو 

Me.[رئيس القسم].Value = Me.مربع_182.Column(3)
Me.[شهادة].Value = Me.مربع_182.Column(4)
Me.[نظام].Value = Me.مربع_182.Column(5)
Me.المعدل_العام = Me.المعدل

و الكود مهم بالنسبة للبرنامج لأنه معتمد عليه في فتح  العديد من النماذج 

حاولت وضعه (أي الكود السابق) في احداث اخري (عداد الوقت - عند التفعيل - عند الفتح )لكن المشكلة تعود كما كانت

ارفق لكم الملف للتعديل 

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

moh.rar

[محي الدين فره]

في ٢١‏/١١‏/٢٠٢١ at 05:07, ناقل said:

طيب ممكن مرفق ...

تم رفع الملف ؟؟؟؟

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

[ناقل]

4 ساعات مضت, محي الدين فره said:

تم رفع الملف ؟؟؟؟

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

اخي حاولت ان ادمج لك الكودين ولم استطع  .... اعذرني ... ولا زالت المحاولات مستمرة ...

تم تعديل نوفمبر 22, 2021 بواسطه ناقل

[jjafferr]

السلام عليكم 🙂

 

شفت بعض الاوقات لما تحس ان مخك ما يشتغل ، هذا انا الحين 😁

 

بما انك حددت وين المشكلة في برنامجك ، فانا عملت لك هذه المساعدة :

وحدة نمطية اسمها mod_Global_Variables ، وفيها نحتفظ بنوع المستخدم في الحقل ppos ، ويمكن للبرنامج قراءته من اي مكان في البرنامج ،

وعلى اساس قيمة ppos ، فقد وضعتها في حدث "الحالي" للنموذج ، فالرجاء وضعها بالطريقة الصحيحة (قلت لك مخي ما يشتغل 🙂)

.

جعفر

1417.moh.accdb.zip

[محي الدين فره]

بارك الله فيكم جميعا