محي الدين فره

لدي نموذج به أسماء الطلبة وامامه مربع نص اسمه (نص6) يأخذ قيمته بواسطة دالة (DCount) حيث يقوم بعد مواد الرسوب وبناء عليه يغير في الحالة اما 1 اذا كانت القيمة 0 او 10 اذا كانت 1 فما فوق ... و التي تمثل مستجد لرقم 1 . و دور ثاني لرقم 10. وضعت الكود في زر (تحديث الحالة) عند الضغط If Me.نص6 = 0 Then Me.الحالة = "1" Else Me.الحالة = "10" End If If Me.نص6 = 0 Then Me.الحالة = "1" Else Me.الحالة = "10" End If المطلوب تنفيذ هذا الامر بضغطة واحدة بدلا من المرور علي جميع الحقول

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

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

السلام عليكم ورحمة الله وبركاته اكتشفت اين المشكلة و هي كود في حدث في الحالي عند حذفه اختفت المشكلة والكود هو Me.[رئيس القسم].Value = Me.مربع_182.Column(3) Me.[شهادة].Value = Me.مربع_182.Column(4) Me.[نظام].Value = Me.مربع_182.Column(5) Me.المعدل_العام = Me.المعدل و الكود مهم بالنسبة للبرنامج لأنه معتمد عليه في فتح العديد من النماذج حاولت وضعه (أي الكود السابق) في احداث اخري (عداد الوقت - عند التفعيل - عند الفتح )لكن المشكلة تعود كما كانت ارفق لكم الملف للتعديل المطلوب عند فتح النموذج بصلاحيات المدير يقبل الإضافة و التعديل و الحذف اما اذا كان مستخدم عادي فلا يحق له الا فتح النموذج فقط moh.rar

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

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

وضع كود لتقيد الوصول للتحرير و الإضافة و الحذف لنموذج معين حدث عند فتح النموذج If Form_دخول.tap = "مستخدم" Then Form.AllowAdditions = False Form.AllowDeletions = False Form.AllowEdits = False MsgBox "صلاحيات محدوده", vbInformation, "اهلا و سهلا" End If لكنه لم يعمل معي النموذج يقبل الإضافة و التحرير و الحذف الرجاء المساعدة لحل المشكلة صورة مرفقة توضح خصائص بيانات النموذج