محمد صلاح1

للرفع والمساعدة

ولقد قدمت تصوري حسب حاجة التصميم لدي

مبارك لحضرتك الترفية إلي درجة خبير فأنت لها أهل إن شاء الله ارجو منك كما عودتنا في منتدي المحيط العربي أن تكرمنا بمثل تطبيقي لتقريب تصور حضرتك وفق التصور في الرد السابق علي الأخ أبو عبدالله الحلواني وليته يكون علي مرفق هذا الموضوع وشكرا لكرم المشاركة الإيجابية

وعليك السلام أ @أبو عبدالله الحلوانى وشكراً علي كرم المتابعة حتي يصبح التصور متكاملاً للجميع وحتي لا أضيع مجهود حضراتكم معي أود معرفة مدي امكانية تطبيق التالي علي مثالك فإن كان من الممكن أتمني أن نسير من خلاله في خط واحد منعاً للتشتت 1- هل بالإمكان إنشاء وتحديد مستويات المستخدمين برمجياً حسب الموضح هنا فإن كان بالأمكان ارجو تطبيق الفكرة عملياً للانتقال للخطوة التالية وهي 2- هل بالإمكان عمل جدول يحوي بداخله اسماء النماذج مع حقلين لأسم المستخدم ومستوي صلاحية دخوله بحيث عند دخوله يتعرف البرنامج علي صلاحياته وفقاً لذلك فإن كان بالإمكان أنتقلنا للخطوة الأخيرة وهي 3- هل بالإمكان الإنتقال برمجياً من مستوي زائر إلي مستوي محرر من خلال التفعيل بالطريقة التي ترونها مناسبة هذا هو التصور الذي اود التوصل إليه تحديداً مع خالص شكري وتقديري لجميع المتجاوبين

للرفع

للرفع

علي كده أحنا محتاجين كونسلتو من الجراحين لذا اود من الجميع الإسهام بالمشاركة الفاعلة والإيجابية للتطوير والتعديل فأنا لست مبرمجاً بل لست أهلاً للقيام بهذه التعديلات المهمة والضرورية للخروج بالموضوع من الفكرة إلي الواقع

أ @أبو عبدالله الحلوانى أولاً شكرا للوفاء بالوعد وإجراء جراحة التجميل الأولي ثانياً بص المثال قصدي "نتيجة عملية التجميل" من الوهلة الأولي مدهشة وتحتاج لقاعدة بتركيز وفنجان قهوة ولكن هناك ملاحظات رئيسية تحتاج لأعادة نظر لمزيد من التجميل والتحسين والتقريب 1- مش منطقي عند تسجيل المستخدم الجديد أن يختار صلاحيته بنفسه أكيد هيختار مسئول النظام علشان يتحكم في كل حاجة والتعديل المطلوب هنا أن يكون كما في ذلك الرابط ( فالارتباط وثيق بين الموضوعين بحيث يكمل كل منهما الأخر) 2- النماذج التي تقع تحت نطاق الصلاحية في مثالك عددها صغير "خمسة" وفي عملي حوالي 60 نموذج فالطريقة هنا ليست مناسبة لهذا العدد فهل ممكن أن ننشئ جدول خاص بحصر اسماء هذه النماذج مع وجود حقل لاسم المستخدم وأخر لصلاحيته بحيث نستطيع عند تسجيل بيانات المستخدم أن يأخذ صلاحياته علي كل هذه النماذج أو بعضها من خلال الارتباط البرمجي مع هذا الجدول لحصر اسماء النماذج. 3- الصلاحية الموجودة في الوحدة النمطية هي للفتح فقط ونريد معها أربع صلاحيات أخري "الاضافة والتعديل والحذف والطباعة".

أ @kanory شكراً لتفاعل حضرتك الإيجابي نعم نستقي من أفكار واعمال الأخوة المبدعين بالمنتدي ولكن الفكرة المطروحة تختلف في مضمونها حيث أنها ليست مجموعات بالمعني الحرفي يل هي مستويات ولكل منها صلاحياته الخاصة به فضلاً عن اني أريد تنفيذ هذه المستويات برمجياً وليس من خلال تدخل الأدمن لتحديد الصلاحيات كما وضحت في رأس الموضوع

الأمر لله وهو المستعان أكيد مش هتعمل العملية وتجري ففترة النقاهة ستكون مهمة أيضاً لمتابعتك وعندها سوف تسير الأمور علي خير بإذن الله

وعليك السلام أ @أبو عبدالله الحلوانى شكراً للتجاوب الإيجابي أمر الجداول ميسور إنشائها بإذن الله ولكن النقطة الثالثة تحتاج منك لتدخل جراحي فهل أنت مستعد يمثال تطبيقي لها

للرفع والتفاعل

أخي @qathi شكرا علي التجاوب الإيجابي رغم أن صلاحيات أ العبادي تختلف عن النموذج المطروح إلا أني أعتقد ان الفكرة قريبة فهلا أرفقت مثالك أو شرحت لي الطريقة علنا نجد من يستطيع مساعدتي في تقريب الموضوع حسب التصور المطلوب

بالمرفق وجدت كود رائع لإضافة مسئول البرنامج بصلاحياته في جدول المستخدمين برمجياً دفعة واحدة بمجرد فتح نموذج الولوج دون تدخل من أحد وبالمثل وبنفس الفكرة أريد برمجة كودين مماثلين لعمل مستويين أخرين للمستخدمين بخلاف مستوي المسئول المستوي الأول يعمل بشكل عام وليس خاص كما في كود المسئول وذلك عند إضافة مستخدم جديد تحت مسمي زائر علي أن يأخذ صلاحية واحدة فقط وهي فتح النماذج التي لها صلاحية لاستعراضها وتصفحها والكود الأخر مثل السابق باختلاف أنه لمستخدم بصلاحيات الفتح والإضافة والتعديل والحذف تحت مسمي محرر ويتم الأنتقال من مستخدم صلاحية الزائر إلي صلاحيات المحرر من خلال الموافقة علي الانتقال من قبل المسئول علي أن يتم ذلك بكود لتفعيل ذلك الانتقال أتمني أن الفكرة والشرح الموجز يكون واضحاً للجميع وشكراً الاسم: الدعم الفني باسورد: 12345 مستويات المستخدمين.accdb

أعتقد أن المشاركة في الموضوع تسع الجميع فلماذا لا نجد يداً للمساعدة ولو بإشارة إلي نقطة غير واضحة أو بتعليق إيجابي يثمر خطوة للأمام أنتظر مشاركتكم

للرفع

في نموذج إضافة مستخدم جديد بالمرفق وحسب الصورة الموضحة هل فكرة إنشاء جدول جديد مستقل عن جدول المستخدمين بحيث يحتوي علي اسماء النماذج بخاصية نعم / لا بحيث ويرتبط بجدول المستخدمين نموذج أضافة مستخدم جديد ليقرأ منه هذه أسماء النماذج دفعة واحدة ويضيفها تحت حساب صلاحيات المستخدم الجديد عند إضافة بياناته هل من الممكن ذلك عملياً أم أن هناك أفكار أفضل بحيث أستطيع في النهاية ضم أسماء هذا النماذج الكثيرة إلي صلاحيات كل عضو جديد برمجياً دون تدخل من أحد وشكراً

نعم هذا حقيقة ما واجهني عند تطبيق أخر عمل لكم علي عملي الذي أقوم به فبعد القيام بتعديلاتي التي هي طبعاً كوبي وبست وفق ما استوعبته منها واجهتني هذه المشكلة عموماً إن كنت مستعد سوف أغادر عملي الآن وفور عودتي للبيت سوف أرسل لحضرتك الجزئية المراد تعديلها وأتمني لك عاجل الشفاء وأن تعود لسابق عهدك إن شاء الله تعالي بارك الله فيك وشكراً لحسن استجابتك رغم ما تمر به جعله الله في ميزان حسناتك

العمل في طور التجهيز والاعداد فإن كان لديك الوقت والجهد اليوم الذي يسمح بالتعديل أرسلها لك بعد العمل اليوم إن شاء الله ولكني سأحتاج لردك بالتعديل اليوم فهل ذلك يناسبك أم سيكون به مشقة عليك

شفاك الله وعافاك أخي @ابا جودى سوف أنتظر بإذن الله لعملك واسمح لي بتصبيره حتي ذلك بإجابة سؤال سألته لك هنا وهو عند استخدام صلاحيات أ العبادي المطورة من قبلكم في نفس الموضوع المشار إليه ما هو الكود الذي يوضع في حدث عند فتح النموذج الذي نريد عمل صلاحية له حتى يتم التحقق والتأكيد من وجود هذه صلاحية ويفتح النموذج عند الدخول هذه النقطة قضيت فيها أسبوع كامل بعد عدة تعديلات ومحاولات في عمل أقوم به دون جدوي مما جعلني أغير وجهتي للمثال الذي طرحته هنا فهل أجد لديك إجابة شافية لذلك علماً أنني جربت هذين الكودين وكلها من أعمالكم ولم ينفعا FrmAbilities (Me.Name) 'If ContinueCode = False Then Exit Sub & 'Dim SF As Control 'With MyUser 'If .GetAbility(Me.Name, O_Open) Then 'Me.AllowAdditions = .GetAbility(Me.Name, A_ADD) 'Me.AllowEdits = .GetAbility(Me.Name, E_Edit) 'Me.AllowDeletions = .GetAbility(Me.Name, D_Delet) '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, Compan 'Cancel = True 'End If 'End With

بالمرفق نموذج بسيط لفكرة تحديد 3 نماذج لتطبيق الصلاحيات عليها والتطبيق أو التعديل المطلوب يدور حول أفضل طريقة عند إضافة حوالي 60 نموذج أخر لتطبيق الصلاحيات عليهم وشكرا تعديل صلاحيات.accdb

للرفع

للرفع

للرفع

من خلال محاولات محاكاة كثيرة من أعمال أخري توصلت لأفضل نتيجة من خلال هذا الكود ولكنه للأسف يظهر رسالة خطاء بالكود كما يظهر بالصورة المرفقة Dim SF As Control With MyUser If .GetAbility(frmName, lvlOpenForm) Then Forms(frmName).AllowAdditions = .GetAbility(frmName, lvlAdd) Forms(frmName).AllowEdits = .GetAbility(frmName, lvlEdit) Forms(frmName).AllowDeletions = .GetAbility(frmName, lvlDelete) For Each SF In Forms(frmName).Controls If SF.ControlType = acSubform Then strsubfrm = SF.SourceObject SF.Form.AllowAdditions = Forms(frmName).AllowAdditions SF.Form.AllowEdits = Forms(frmName).AllowEdits SF.Form.AllowDeletions = Forms(frmName).AllowDeletions End If Next Else MsgBox "عفواً " & .UserName & " " & vbCr & vbCr & "ليس لديك الصلاحية لهذا الإجراء ", 0 + 16 + 1572864, "نظام الصلاحيات" ContinueCode = False DoCmd.Close acForm, frmName End If End With