السبيل1 قام بنشر نوفمبر 5, 2021 مشاركة قام بنشر نوفمبر 5, 2021 استكمالاً للموضوع علي هذا الرابط لدي سؤال جديد هل موديول مثال هذا الموضوع المسمي Permission يصلح للتطبيق علي التقارير أيضا كما صلح تطبيقه علي النماذج أم سيحتاج لإضافة جديدة بفنكشن جديد رابط هذا التعليق شارك More sharing options...
السبيل1 قام بنشر نوفمبر 6, 2021 الكاتب مشاركة قام بنشر نوفمبر 6, 2021 للرفع رابط هذا التعليق شارك More sharing options...
السبيل1 قام بنشر نوفمبر 7, 2021 الكاتب مشاركة قام بنشر نوفمبر 7, 2021 للرفع اريد إضافة علي كود فنكشن الصلاحيات لإعطاء صلاحية للتقارير كما للنماذج رابط هذا التعليق شارك More sharing options...
السبيل1 قام بنشر نوفمبر 8, 2021 الكاتب مشاركة قام بنشر نوفمبر 8, 2021 طيب إذا وجد من لديه نية للمشاركة ولكن وجد خطأ ما أو شيء ما غامض او ملتبس في المطلوب فليخبرنا حتي نزيل ذلك بمزيد من التوضيح رابط هذا التعليق شارك More sharing options...
السبيل1 قام بنشر نوفمبر 8, 2021 الكاتب مشاركة قام بنشر نوفمبر 8, 2021 ولمزيد من التوضيح لمن أراد هذا كود لعمل صلاحية للتقارير في أحد أنظمة الصلاحيات Public Sub ReportAbilities(RprtName As String) With MyUser If .GetAbility(RprtName, OpenForm) Then ContinueCode = True Else MsgBox "عفواً " & .username & " " & vbCr & vbCr & "ليس لديك الصلاحية لمعاينة هذا التقرير ", 0 + 16 + 1572864, "نظام الصلاحيات" ContinueCode = False DoCmd.Close acReport, RprtName End If End With End Sub والمطلوب إنشاء كود مماثل لعمل صلاحية للتقارير ولكن علي الموديول المرفق صلاحيات.accdb رابط هذا التعليق شارك More sharing options...
السبيل1 قام بنشر نوفمبر 9, 2021 الكاتب مشاركة قام بنشر نوفمبر 9, 2021 هذه هي محاولتي لمحاكاة إنشاء الفنكشن المطلوب ولكن بلا فائدة فهل أجد مساعدة ناجزة 'Public Sub ReportAbilities(RprtName As String) Function FunModulePermissions1() 'With MyUser With CodeContextObject If DCount("ID", "Tbusers", "deCode([UName],'User')='" & Trim(User) & "'") = 0 Then MsgBox " لا تملك الصلاحيات للدخول ", vbCritical + vbMsgBoxRight, "تنبيه" DoCmd.CancelEvent 'If .GetAbility(RprtName, OpenForm) Then 'ContinueCode = True If CurrentProject.AllReports("FrmMain").IsLoaded = False Then .AllowAdditions = False .AllowEdits = False .AllowDeletions = False Else If (Reports!Frmmain!UAddData = False) Then .AllowAdditions = False End If If (Reports!Frmmain!UEditData = False) Then .AllowEdits = False End If If (Reports!Frmmain!UDeleteData = False) Then .AllowDeletions = False End If End If End If Macro1_Exit: Exit Function 'Else 'MsgBox "عفواً " & .UserName & " " & vbCr & vbCr & "ليس لديك الصلاحية لمعاينة هذا التقرير ", 0 + 16 + 1572864, "نظام الصلاحيات" 'ContinueCode = False 'DoCmd.Close acReport, RprtName 'End If End With End Function رابط هذا التعليق شارك More sharing options...
mascudkoray قام بنشر نوفمبر 10, 2021 مشاركة قام بنشر نوفمبر 10, 2021 On 11/5/2021 at 11:11 PM, السبيل1 said: استكمالاً للموضوع علي هذا الرابط لدي سؤال جديد هل موديول مثال هذا الموضوع المسمي Permission يصلح للتطبيق علي التقارير أيضا كما صلح تطبيقه علي النماذج أم سيحتاج لإضافة جديدة بفنكشن جديد Nox Vidmate VLC same problem رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.