صلاحيات المستخدمين

[kaser906]

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

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

فتح النموذج والاضافة والتعديل والحذف

ف اذا كان لديه صلاحية لفتح النموذج  ولا توجد لديه صلاحية للاضافة او التعديل او الحذف

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

FrmAbilities (Me.Name)
If ContinueCode = False Then Exit Sub

المطلوب :

اريد تطبيق هذا الكود بشكل اخر على نموذج  فرعي مفتوح  من خلال زر أمر

النموذج form1 هو النموذج الاساس

النموذج Tbl_continuationهو النموذج الفرعي وهو غير ممكن ولا يسمح من خلاله بالاضافة ولا التعديل ولا الحذف

اريد عند النقر على زر الأمر ان يرجع الكود للجدول Frm Ability

https://up.harajgulf.com/do.php?img=1351002

ليتفحص هل المستخدم لديه حق فتح النموذج الفرعيTbl_continuation

اذا كان لديه حق فتح النموذج يتم التمكين النموذج

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

واذا لم يكن لديه حق التعديل فلا يعدل والعكس صحيح

والامر ينطبق على الحذف

أتمنى اني اوصلت فكرة ما اريد بشكل مفهوم

وهذا هو المرفق

UnOpenForm.rar

نسيت ان اذكر

اليوزر 2

الباسورد 2

تم تعديل ديسمبر 18, 2016 بواسطه kaser906
تعديل موقع المرفق ورابط الصورة

[kaser906]

رفع

 

[kaser906]

مساء الخير أخوتي

فكرت في ان اجعل الامر عن طريق كود تحت زر الامر cmd 1  في الفورم form1

ولكن واجه مشكلة في تعريف المتغير في هذا الكود

Private Sub cmd1_GotFocus()
        Dim c As String

c = "[" & Choose(Ability, "o", "A", "d", "e") & "]"
r = DLookup(c, "FRM Ability", "FRM = Tbl_continuation and SN = " & Str(UserNum))
If O = 0 Then
MsgBox "لاتملك صلاحية"
Exit Sub
Else
If A = 0 Then
Me.Tbl_continuation.Form.AllowAdditions = False

ElseIf E = 0 Then
Me.Tbl_continuation.Form.AllowEdits = False

ElseIf D = 0 Then

Me.Tbl_continuation.Form.AllowDeletions = False
End If
End If
End Sub

لكن  بسبب عدم معرفتي التامة في تعريف المتغيرات واجهة مشكلة في تعريف المتغير

"O"  "A"   "E"  "D"

امل المساعدة في تعريف المتغير

 

[kaser906]

رفع