تحديد خانة اختيار عن طريق الدالة Dlookup

[kaser906]

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

المطلوب

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

استخدمت الكود التالي ولكن للاسف لم يعطي اي نتيجة

        Dim c As String

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

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

ElseIf D = 0 Then

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

المطلوب تحديد خانات الاختيار بالنموذج form_1

من الجدول  FRM Ability  للنموذج frm_continuation

للمستخدم الحالي فقط عن طريق معرف المستخدم SN

 

FRM Ability

 

Dlookup.rar

[ابو جودي]

هو انا مش فاهم لكن باحاول افهم واحده واحده

حضرتك عاوز تطبق الصلاحيات على النموذج الفرعى ؟؟؟؟

[kaser906]

6 دقائق مضت, ابا جودى said:

هو انا مش فاهم لكن باحاول افهم واحده واحده

حضرتك عاوز تطبق الصلاحيات على النموذج الفرعى ؟؟؟؟

نعم اخي ابو جودي

فكما تلاحظ النموذج مفتوح

ونريد ان نعمل له صلاحيات من حيث عمل المستخدم داخل النموذج بناء على الصلاحيات الممنوحة له

 

[ابو جودي]

27 دقائق مضت, kaser906 said:

نعم اخي ابو جودي

فكما تلاحظ النموذج مفتوح

ونريد ان نعمل له صلاحيات من حيث عمل المستخدم داخل النموذج بناء على الصلاحيات الممنوحة له

 

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

Private Sub Form_Open(Cancel As Integer)
FrmAbilities (Me.Name)
If ContinueCode = False Then Exit Sub
End Sub

 

Dlookup_up2.rar

[kaser906]

11 دقائق مضت, ابا جودى said:

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

Private Sub Form_Open(Cancel As Integer)
FrmAbilities (Me.Name)
If ContinueCode = False Then Exit Sub
End Sub

 

Dlookup_up2.rar

اخي ابا جودي كان الهدف من طلبي

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

ليس لديك صلاحية

ولا يتم التركيز على النموذج

وايضا من الممكن ان تتطور الفكرة الى اخفاء النموذج الفرعي

عند تحميل النموذج form1

[kaser906]

رفع

[kaser906]

في ٢٥‏/٣‏/١٤٣٨ هـ at 19:14, kaser906 said:

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

هل المطلوب معقول منطقيا

أم اصرف النظر عنه وابحث عن حلول أخرى