التحكم بصلاحيات المستخدمين لكل نموذج او تقرير بشكل مستقل في مايكروسوفت اكسس مع مثال عملي

1- انشاء جدول للمستخدمين يحتوي على رقم واسم المستخدم وكلمة المرور (ونوعهما نص قصير)  

يمكنكم مشاهدة الفيديو او الاستمرار في قرأة الموضوع

يمكنكم تنزيل المثال من هنا

2- انشاء جدول للصلاحيات يحتوي على انواع الصلاحيات بالاضافة الى حقل كومبوبوكس بياناته مرتبطة بالمستخدمين (رقم المستخدم واسمه) وحقل كومبوبوكس مرتبط بكائنات البرنامج عن طريق استخدام جدول Msysobjects  (ستجدون الطريقة في الفيديو)

 3- انشاء نموذج للدخول الى قاعدة البيانات وليكن باسم Login
عندما يقوم المستخدم بادخال اسم وكلمة مرور صحيحين يقوم البرنامج بفتح لوحة التحكم او النموذج الرئيسي للعمل كما يقوم بتسجيل رقم المستخدم في المتغير usrID الذي تم تعريفة في الموديل (الموجود في الخطوة 4)

للمزيد يمكن الرجوع الى موضوع انشاء نموذج للدخول الى قاعدة البيانات (انقر هنا) ، ونقوم باضافة جميع الحقول الخاصة بالصلاحيات الية في تذييل النموذج ونجعل التذييل مخفي 

4- انشاء دالة يتم استدعاؤها عند فتح اي نموذج نريد ان نضيف له الصلاحيات ( او ادراج كود الصلاحيات في النموذج بشكل مباشر بدون انشاء الدالة

VBA

Public usrID As Integer ' سنستخدم هذا المتغير للاحتفاظ برقم المستخدم


Public Function Privilege(frm As Form)
'------------------------------------------------------------------------------------
'االتاكد من صلاحية اضافة سجل وتفعيلها او تعطيلها
If DLookup("cadd", "TblPrivilege", "StUser=" & usrID & "AND StForm ='" & frm.Name & "'") = False Or IsNull(DLookup("cadd", "TblPrivilege", "StUser=" & usrID & "AND StForm ='" & frm.Name & "'")) Then
frm.AllowAdditions = False
End If

'االتاكد من صلاحية حذف سجل وتفعيلها او تعطيلها
If DLookup("cdell", "TblPrivilege", "StUser=" & usrID & "AND StForm ='" & frm.Name & "'") = False Or IsNull(DLookup("cdell", "TblPrivilege", "StUser=" & usrID & "AND StForm ='" & frm.Name & "'")) Then
frm.AllowDeletions = False
End If

'االتاكد من صلاحية تعديل سجل وتفعيلها او تعطيلها

If DLookup("CEdit", "TblPrivilege", "StUser=" & usrID & "AND StForm ='" & frm.Name & "'") = False Or IsNull(DLookup("CEdit", "TblPrivilege", "StUser=" & usrID & "AND StForm ='" & frm.Name & "'")) Then
frm.AllowEdits = False
End If

End Function

نعود الى النماذج التي نريد تطبيق الصلاحيات عليها وعند فتح النموذج نقوم باستدعاء الدالة Privilege التي انشأناها  بالكود التالي

VBA

Private Sub Form_Open(Cancel As Integer)
Call Privilege(Me)
End Sub

يمكنكم تنزيل المثال من هنا