إنشاء وتحديد مستويات المستخدمين برمجياً

[محمد صلاح1]

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

الاسم: الدعم الفني

باسورد: 12345

مستويات المستخدمين.accdb

[محمد صلاح1]

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

[kanory]

انظر المرفق لمروض الاكسس المبدع @ابا جودى 

في ٢٤‏/١٢‏/٢٠١٦ at 01:14, ابا جودى said:

السلام عليكم ورحمة الله تعالى وبركاته

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

المثال المرفق قيد التجربة والاختبار
كلمة مرور جميع المستخدمين   1

المميزات

- التحكم فى الصلاحيات للمجموعات

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

- عند حذف مجموعه تحذف كل المستخدمين لهذه المجموعه

- كذلك للازرار نصيب فى التحكم بها وبالصلاحيات المخوله لكل مجموعه فى تفعيلها من عدمه

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

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

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

تبيهات هامه عدم تغيير اسماء مجموعات المبرمجين او الدعم الفنى وعدم حذفهم
وكذلك عدم حذف او تعديل اسماء المستخدمين فقط الذين باسم مدير مجموعة المستخدمين و مدير مجموعة مدخلى البيانات لارتباط الاسماء تلك باكواد داخل قاعدة البيانات

اتمنى التجربى وفتح باب النقاش والانتقاد ان وجد وعرض الافكار وطرحها للوصول الى افضل النتائج ان شاء الله

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

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

كما يمكن للبرنامج العمل حتى بدون وجود الصور دون اى اخطاء او رسائل وايضا يعمل البرنامج على انشاء المجلدات التى يحتاجها هو ويتم اضافة الصور اليها دون تدخل من المستخدم  

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

وفى الختام سلام الله تعالى عليكم ورحمته تعالى وبركاته

صلاحيات مجموعات المستخدمين.rar

 

[محمد صلاح1]

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

[محمد صلاح1]

للرفع

[محمد صلاح1]

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

[محمد صلاح1]

للرفع

[محمد صلاح1]

للرفع

[محمد صلاح1]

هل ليس بالإمكان تنفيذ ذلك برمجياً

ارجو الأفادة مشكوراً ممن لديهم العلم

[أبو عبدالله الحلوانى]

السلام عليكم 

حبيبي في الله  مثالك المرفق يمكنك من خلاله منح أو تحجيم صلاحيات مستخد ما فقم باضافة زائر كما تريد وامنحه ما تريد من صلاحيات.

في ١٢‏/٩‏/٢٠١٩ at 20:20, محمد صلاح1 said:

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

لست أري مشكلة ما لديك

واعذرني لقلة فهمي ان لم استطع فهمك جيدا

وكذلك مرفق أستاذنا أبا جودي جيد جدا 

تمنياتي بالتوفيق

[محمد صلاح1]

4 ساعات مضت, أبو عبدالله الحلوانى said:

واعذرني لقلة فهمي ان لم استطع فهمك جيدا

شكراً وعذرك مقبول

[محمد صلاح1]

هذا هو الكود المقصود بتنفيذ كود مماثل له للفكرة المطلوبة

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

If IsNull(DLookup("Username", "Login", "Username='الدعم الفني'")) Then
CurrentDb.Execute "INSERT INTO Login ([Username],[Password],[Permissions_1],[Permissions_2],[Permissions_3],[AddingDate],[AddNewUser],[EditFlagsUser],[RemoveUser],[GeneralSettings]) Values ('" & "الدعم الفني" & "','" & "12345" & "',True,True,True,'" & Date & "',True,True,True,True)"
Else
CurrentDb.Execute "UPDATE Login SET [Username] ='الدعم الفني',[Password]='" & "12345" & "',[Permissions_1]=True,[Permissions_2]=True,[Permissions_3]=True,[AddingDate]='" & Date & "',[AddNewUser]=True,[EditFlagsUser]=True,[RemoveUser]=True,[GeneralSettings]=True WHERE Username='الدعم الفني'"
End If