الاخوه الكرام
تمت الاجابه ( العتيبي ) الخلل في النموذج ليس له مصدر
Dim SF As Control
With MyUser
If .GetAbility(Me.Name, OpenForm) Then
' Me.AllowAdditions = .GetAbility(Me.Name, add)
' Me.AllowEdits = .GetAbility(Me.Name, EDIT)
' Me.AllowDeletions = .GetAbility(Me.Name, Del)
For Each SF In Me.Controls
If SF.ControlType = acSubform Then
'SF.Form.AllowAdditions = Me.AllowAdditions
' SF.Form.AllowEdits = Me.AllowEdits
'SF.Form.AllowDeletions = Me.AllowDeletions
End If
Next
Else
MsgBox "عفواً " & .UserName & " " & vbCr & vbCr & "ليس لديك الصلاحية لفتح هذا النموذج", 0 + 16 + 1572864, "نظام الصلاحيات"
Cancel = True
End If
End With
شكرا علي حسن تعاونكم