أخوانى الأعضاء الكرام
إليكم منى هذا البرنامج الذى تم تصميمه للمساعدة على التحكم السهل بالمستخدمين والمسئولين والأذونات وذلك بناءً على طلب بعض الأعضاء.
لذا لقد راعيت فى التصميم السهولة فى الاستخدام.
مفاهيم تحتاج لإيضاح داخل القاعدة المرفقة:
1- admin= المسئول الذى له كل الصلاحيات فى استخدام البرنامج.
2- user = المستخدم الذى له محدودية الدخول للشاشات داخل البرنامج.
لتعيين الأمان:
1- كل ما عليك هو كتابة السطر التالى داخل مربع نص غير مرئى على النموذج المراد تعيين مستوى أمان له
=DLookUp("[rmz]";"tbl_fbi")2- فى حدث عند النقر لأمر فتح النموذج المراد تعيين مستوى الأمان ضع هذا الكود
If Me![rmz] = "admin" Then
DoCmd.OpenForm "AddUser"
Else
Beep
Dim zn
zn = DLookup("[user_name]", "tbl_fbi")
DoCmd.OpenForm "عفواً"
End Ifوبس...
ملحوظة: 1- تم الاستعانة ببعض الأكود من هذا المنتدى.
Admin
المستخدم = honey
كلمة السر = honey
User
المستخدم = delta
كلمة السر = delta
إن شاء الله يعجبكم ...
لا تنسونى من صالح دعواتكم
أخوكم Hongylover
على فكرة يوجد زر على شكل messenger فى أقصى أسفل يمين نافذة الواجهة وهو المسئول عن تعديل الصلاحيات وتسجيل دخول مستخدم آخر.
