كيف أمنع مدير النظام من حذف حسابه بالخطأ؟

[abofayez1]

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

كيف أمنع المدير من إزالة علامة الصح من مربع الاختيار لأنه لو أزيلت لايمكن الدخول للبرنامج نهائيا.

مثلا كيف أعبر عن الشرط التالي بالكود:

إذا كان اسم المستخدم admin  لايمكن أن يكون مربع الاحتيار  خاليا.

أو أي شرط آخر بحيث يمنع الحذف بالخطأ

وفقكم الله

 

[Moosak]

ضع هذا السطر أول الأوامر في زر الحذف :

If Me.Admin = true Then Exit Sub

🙂 

[ابوخليل]

اعتقد حسب فهمي للسؤال  ان المطلوب منع التعديل على مربع الاختيار

وبما ان الهدف هو منع التعديل على مربع الاختيار

فيمكن ان تتم حمايته من التعديل ويتم تفعيله آليا عند اختيار نوع المستخدم = admin

اما اذا اردنا هذا المربع متاح لأي نوع من انواع المستخدمين حسب الحاجة .. وفي الوقت نفسه نريد حمايته عن التعديل للمستخدم admin

فهذا الكود يفي بالغرض :

Private Sub userID_BeforeUpdate(Cancel As Integer)
If Me.userType = "Admin" Then
MsgBox "لا يمكن التعديل"
Undo
DoCmd.CancelEvent
Exit Sub
End If
End Sub

على اعتبار  userID هو مربع الاختيار

وهذا مرفق للتجربة

AA.mdb

[ابو جودي]

7 ساعات مضت, abofayez1 said:

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

كيف أمنع المدير من إزالة علامة الصح من مربع الاختيار لأنه لو أزيلت لايمكن الدخول للبرنامج نهائيا.

مثلا كيف أعبر عن الشرط التالي بالكود:

إذا كان اسم المستخدم admin  لايمكن أن يكون مربع الاحتيار  خاليا.

أو أي شرط آخر بحيث يمنع الحذف بالخطأ

وفقكم الله

 

انصحك بوضع المرفق لايضاح الرؤية 

لان الاجابات والافكار بتختلف تبعا لاسلوب والية الاكواد والافكار فى التصميم

كده هنفضل نلف حوالين نفسنا وياك من غير مرفق 

[abofayez1]

جزاكم الله خيرا جميعا وبارك الله جهودكم

أخطأت فعلا بعدم إرفاقي مثالا لهذا الطلب فالمعذرة.

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

تقبلوا فائق شكري وتقديري