محي الدين فره

لدي نموذج به أسماء الطلبة وامامه مربع نص  اسمه  (نص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

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

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

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

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

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

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

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

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

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

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

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

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