الصلاحيات في النموذج الفرعي

أخى الكريم

هذه الميزة كنت سأقوم باضافتها فى برنامج جديد أقوم باعداده

لكن بما انك سبقت و طلبتها

فاليك الكود بعد التعديل

لكن لاحظ

ان الكود يتم اضافته فى النموذج الرئيسى و لا يتم اضافة أى كود فى النموذج الفرعى

Dim SF As Control, strsbfrm As String
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
           'strsbfrm = SF.Form.Name
            strsbfrm = SF.SourceObject
           If Not IsNull(DLookup("FRM", "FRMS", "FRM = '" & strsbfrm & "'")) Then
            If .GetAbility(strsbfrm, OpenForm) Then
            SF.Form.AllowAdditions = .GetAbility(strsbfrm, Add)
            SF.Form.AllowEdits = .GetAbility(strsbfrm, Edit)
            SF.Form.AllowDeletions = .GetAbility(strsbfrm, Del)
            Else
            SF.SourceObject = ""
            SF.Visible = False
            End If
           Else
            SF.Form.AllowAdditions = Me.AllowAdditions
            SF.Form.AllowEdits = Me.AllowEdits
            SF.Form.AllowDeletions = Me.AllowDeletions
           End If
        End If
      Next
   Else
      MsgBox "ÚÝæÇð " & .UserName & "      " & vbCr & vbCr & "áíÓ áÏíß ÇáÕáÇÍíÉ áÝÊÍ åÐÇ ÇáäãæÐÌ", 0 + 16 + 1572864, "äÙÇã ÇáÕáÇÍíÇÊ"
      Cancel = True
   End If
End With

بي يعطيك الف الف عافيه

اخي الكريمه

على المساعده

طلب بسيط

تم تعديل على الكود وهو تعديل الغه العربيه فقط

مع اضافه اسطر الاخير مع السطر الاول فقط لكي يكمل الكود

واعتذر على تعديل عليه

فقط لتسهيل على الجميع

Private Sub Form_Open(Cancel As Integer)
Dim SF As Control, strsbfrm As String
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
           'strsbfrm = SF.Form.Name
            strsbfrm = SF.SourceObject
           If Not IsNull(DLookup("FRM", "FRMS", "FRM = '" & strsbfrm & "'")) Then
            If .GetAbility(strsbfrm, OpenForm) Then
            SF.Form.AllowAdditions = .GetAbility(strsbfrm, Add)
            SF.Form.AllowEdits = .GetAbility(strsbfrm, Edit)
            SF.Form.AllowDeletions = .GetAbility(strsbfrm, Del)
            Else
            SF.SourceObject = ""
            SF.Visible = False
            End If
           Else
            SF.Form.AllowAdditions = Me.AllowAdditions
            SF.Form.AllowEdits = Me.AllowEdits
            SF.Form.AllowDeletions = Me.AllowDeletions
           End If
        End If
      Next
   Else
      MsgBox "عفوأ " & .UserName & "      " & vbCr & vbCr & "ليس لديك الصلاحية لفتح هذا النموذج", 0 + 16 + 1572864, "نظام الصلاحيات"
      Cancel = True
   End If
End With

سوال اخي الكريم

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

هو ليس برنامج الصلاحيات

لكن هو دمج لبرنامج اضافات الاكسس مع الاداة الاخيرة الخاصة بتجهيز قاعدة البيانات

مع بعض التعديل و الاضافات

نسألكم الدعاء

عزيزي...

لدي شي ممائل في برنامج قمت بعمله مؤخرا

والفكرة كالتالي...

نموذج رئيس...نموذج فرعي...

الخدعة...عمل نسختين من النموذج الفرعي، كل واحدة بها شي محدد تريد لمستخدم معين ان يراه دون مستخدمين اخرين

مثلا

في برنامج العلامات، يوجد للمعلمين صلاحية الدخول الى العلامات في الفصل الثاني، مع منعهم من مشاهدة علامات الفصل الأول

فقمت بعمل نموذج فرعي به حقول الفصل الاول، ونموذج فرعي اخر به حقول الفصل الثاني

باستخدام الكود، وفحص نوع المستخدم "معلم" فان النموذج الفرعي يتغير ليكون فقط نموذج الفصل الثاني...

مثال محاسبي اوضح..

لديك برنامج يعمل عليه المحاسبة وشوؤون الموظفين، وطلب منك ان تمنع المحاسب من رؤية حقل رقم الهاتف او الهوية مثلا، وعرض حقول حساب الراتب..وطلب ان يكون العكس هو لشؤون الموظفين

اعمل نموذجين فرعيين لنفس الجدول، وقم بتغيير الكائن المصدر للنموذج الفرعي بالكود

مثال بالكود...

Text20 هو رقم يحدد الفصل الدراسي الحالي..في حال كونه 1 "الاول" يكون النموذج الفرعي Child0 في النموذج المراد فتحه MarksEntry هو علامات الفصل الاول..subAvgsS1...وهكذا...

Select Case Me.Text20
  Case Is = 1
    	DoCmd.OpenForm "marksentry" ', , , "[ClassID]=Forms![Login]![combo17] and [SubID] = Forms![login]![combo19]"
	Forms![marksentry].Child0.SourceObject = "subAvgsS1"
........للكود بقية...

بي يعطيك العافيه فكره جميله جدا

هل من الممكن ان تضع مثال لكي يكون واضح للجميع ولكي يتم تطبيق المثال و الاستفاده منه

وهل من الممكن تطبيق مثالك على المثال المرفق في المشاركه الاولى

لكي نستفيد منه بشكل كبير جدا جدا

هذا يا عزيزي ما تمكنت منه في عجالة لانشغالي...

اختر المستخدم يتغير لك النموذج الفرعي الموجود..

تسطيع تطبيق الفكرة على اي صلاحيات تراها مناسبة...المهم هو تحديد الاستراتيجية العامة للامان في برنامجك

تحياتي

Database11.rar

ربي يعطيك العافيه

هل من الممكن تطبيق فكرتك ودمجها في المثال الموجود في المشاركه الاولى

عزيزي الفاضل...

مثالي ابسط بكثير..وليس من الممكن بسهولة دمج فكرتين لا تربطهما صلة

حيث ان برنامج الصلاحيات يستخدم عنصر calss module هو المستخدم وله خصائص وصلاحيات..

اما مثالي فهو عبارة عن ابسط نظام للصلاجيات - لكنه فعال حتى الان - وما يميزه سهولة اضافة نماذج جديدة وصلاحيات جديدة بناء على تغيير بسيط جدا في الكود..

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

تحياتي