اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by jjafferr,

الردود الموصى بها

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

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

End If

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

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

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

Screenshot_16.jpg

رابط هذا التعليق
شارك

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

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

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

 

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

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

End If

.

 

جعفر

رابط هذا التعليق
شارك

السلام عليكم 

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

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

Me.AllowEdits = False

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

رابط هذا التعليق
شارك

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

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

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:

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

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

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

تم تعديل بواسطه ناقل
رابط هذا التعليق
شارك

  • أفضل إجابة

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

 

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

 

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

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

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

image.png.2aaf6a2d076dc619bf93f9a316bdadac.png

.

جعفر

1417.moh.accdb.zip

  • Like 2
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information