دمج بين المواعيد و الصلاحيات

اخى الكريم لام تجهد نفسك بذلك

هناك برنامج جاهز يقوم بذلك و هو برنامج صلحيات المستخدمين

يقوم بالعملية لك فى ثوانى

يمكنك تنزيل نسخة من هذا الرابط

/index.php?showtopic=44514

اخي العزيز

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

ولا يمكنني تغير طريقه اصلاحيات لانها مستخدمه بالفعل و تم ادخال البينات

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

حيث كما اخبرتكم ان المشكلة ( وهي توقعي ) في دمج كودين وهما في ( حدث - عند الفتح ) حيث لم اتمكن من دمج او تنسيق هذه الاكواد

ارجو مساعدتي

مادمت تريد الامر يدويا اتبع الخطوات التالية

1- استورد الكائنات من قاعدة بيانات المواعيد ( الجداول و النماذج و ...... )

2- ضع هذا الكود فى حدث عند الفتح للنماذج المراد التطبيق عليها

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

3- اضف اسماء النماذج الجديدة ( التى تم التطبيق عليها ) الى جدول النماذج المسمى FRMS

4- احذف المستخدمين لديك ( احذف جميع السجلات من جدول المستخدمين المسمى users

5- اذهب الى نموذج الصلاحيات المسمى Users Ability

و اضف مستخدمين جدد من زر اضافة

لاحظ انه يجب ان يكون مناك مستخدم له كافة الصلاحيات

اخي العزيز والله اعرف هذه الطريقه ولكن لم تنجح معي

حيث حين ادراج الكود يتعارض مع كود سابق في جدول المواعيد ( عند الفتح ) حيث اعتقد ان الخلل في دمج الكود

ارجو منك دمج هذا الكود

Private Sub Form_Open(Cancel As Integer)
    If IsNull(Me.OpenArgs) Then
        dtePubMyDate = Date
    Else
        dtePubMyDate = Me.OpenArgs
    End If

    Me.txtDate1 = dtePubMyDate
   DoCmd.GoToControl "abd2"
End Sub

مع هذا الكود

Private Sub Form_Open(Cancel As Integer)
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
End Sub

ضع الكودين كما هما

الكود الاول ثم الكود الثانى

و اخبرنى

هذهي النتيجه

لا ادرى يوجد خطأ ما بالنموذج

عموما ضع رقم 3 بدل del

سيعمل معك الكود ان شاء الله

اخي العزيز ربي يعطيك العافيه هذا ما كنت اريده

انحلت المشكلة

يعود الفضل الله ثم لك

Abo_Yossof