السلام عليكم ورحمة اللله وبركاتة
المطلوب
تحديد صلاحية المستخدم على النموذج الفرعي
استخدمت الكود التالي ولكن للاسف لم يعطي اي نتيجة
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