اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

صلاحيات


الردود الموصى بها

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

عندي قاعدة بيانات  اكسس  ... فيها جدول ونموذج للدخول  بحسب صلاحيات 
الدخول  للواجهة الرئيسية  للجميع  ... لكن  فقط المستخدم a له كل الصلاحيات  عدا  زر  التغيير

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

ولهم صلاحيات  الاطلاع على  اي  تغيير  يجريه  المستخدم  a

Database2.accdb

رابط هذا التعليق
شارك

السلام عليكم 

مشاركة مع الاستاذ @kkhalifa1960 جزاه الله خيرا 

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

بالتوفيق

صلاحيات.accdb

  • Like 1
رابط هذا التعليق
شارك

في 17‏/1‏/2023 at 18:25, kkhalifa1960 said:

بعطيك برنامج صلاحيات هيعجبك انشاء الله هتحصل به كل ماتشاء أقرأه جيدا هيوصلك لمبتغاك ووافني بالرد:fff:

MahdiPermissions.rar 498.48 kB · 7 downloads

 

في 19‏/1‏/2023 at 18:22, سامي الحداد said:

السلام عليكم 

مشاركة مع الاستاذ @kkhalifa1960 جزاه الله خيرا 

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

بالتوفيق

صلاحيات.accdb 864 kB · 17 downloads

الف  شكر  استاذنا  العزيز   

رابط هذا التعليق
شارك

اريد  تحديد  النماذج  بالنسبة  للمستخدمين   1  و  2 
والادمن  يملك  صلاحيات  تغيير  المستخدمين   ومعاينة  فقط  لبعض النماذج

رابط هذا التعليق
شارك

أخي الكريم @العبيدي رعد

الملف الذي ارفقته لك فيه كل ما طلبت يمكن جنابكم ما فتحتم الملف. 

سجل الدخول بإسم Sami وكلمة المرور 555 ادخل على صلاحيات المستخدمين واختار المستخدم من القائمة وسترى النماذج والتي بامكانك تغيرها على حسب النماذج التي  في برنامجك ومنها تستطيع  ان تعطي الصلاحيات لكل نموذج . إذا الموضوع صعب عليك ارفق برنامجك هنا وساعمل لك الصلاحيات المطلوبة لكل مستخدم .. الموضع سهل جدا وما فيه اي تعقيد. 

غير المستخدم سامي واجعله الادمن وغير اسماء المستخدمين واعطيهم الصلاحيات الطلوبه.

بانتظار ردك.

تحياتي

  • Like 1
رابط هذا التعليق
شارك

@سامي الحداد الاستاذ  الفاضل 

السلام عليكم  ....  اقصد في كلامي  إضافة  النماذج  في البرنامج 
وأعتقد أن  جدول  allforms  هو  من يضيف  اسماء النماذج  ...... والسؤال  هنا  هل  اختار  bouttun disabaie

رابط هذا التعليق
شارك

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

بالنسبة ل All Forms فهي للادمن فقط. اما بالنسبة لزر  Disable Button فهو لاخفاء زر معين في نموذج أو من القائمة الرئيسية مثلا : في النموذج لديك مستخدم يستطيع ان يضيف ولكن لا يستطيع ان يحذف وهذا النموذج فيه اضافة وحذف هنا يأتي زر الاخفاء بحيث هذا المستخدم لا يستطيع ان يحذف, فقط يستطيع الاضافة.  لهذا اضفت هذه الخاصية لتعطيل زر معين. أدخل باسم المستخدم B على ما اعتقد سترى ان زر صفحة الادمن غير مفعلة. وهناك بعض الازرار مفعلة ولكن ليس لدية الصلاحية لفتح النموذج. واليك كيفية عمل ذلك..

استدعاء وظيفة User Permission في كل نموذج ضمن الحدث Form_Open

Private Sub Form_Open(Cancel As Integer)
       Call UserPermission(Me, GetUserLoginID())
End Sub

--------------------------------------------------------------------------
 إذا كان لديك بعض الأزرار لتعطيلها للمستخدم العادي ، فاستدع الوظيفة "UserPermission" و "DisableButton" ضمن حدث Form_Open

 

Private Sub Form_Open(Cancel As Integer)
Call UserPermission(Me, GetUserLoginID())

If TempVars!IsFormOpened = 1 Then
    Exit Sub
Else

    Call DisableButton(Me, GetUserLoginID, Me.cmdSetPermission) 
End If
End Sub

يجب إضافة كل النماذج في جدول tbl_Forms ضروري.

اتمنى ان اكون قد وفقت في الشرح وبخدمتكم.

تحياتي

رابط هذا التعليق
شارك

المعذرة اخي الكريم نسيت ان اضيف هذا وهو اسم الزر المراد اخفاءه في الكود.

Private Sub Form_Open(Cancel As Integer)
Call UserPermission(Me, GetUserLoginID())

If TempVars!IsFormOpened = 1 Then
    Exit Sub
Else

    Call DisableButton(Me, GetUserLoginID, Me.cmdSetPermission, Me. اسم الزر المراد اخفاءه) 
End If
End Sub

 

رابط هذا التعليق
شارك

السلام عليكم  استاذ سليم

سيتم  التطبيق    وسوف  نوافيكم  لاحقا 

الحاسبة  في  محل  العمل  قد أتأخر  أحيانا  عن  الرد 

لكن  لا أعرف  كيف  أشكركم

رابط هذا التعليق
شارك

@سامي الحدادالسلام عليكم 
استاذنا الفاضل   الشكر  موصول  لكم 
 

في 23‏/1‏/2023 at 12:16, سامي الحداد said:

المعذرة اخي الكريم نسيت ان اضيف هذا وهو اسم الزر المراد اخفاءه في الكود.

Private Sub Form_Open(Cancel As Integer)
Call UserPermission(Me, GetUserLoginID())

If TempVars!IsFormOpened = 1 Then
    Exit Sub
Else

    Call DisableButton(Me, GetUserLoginID, Me.cmdSetPermission, Me. اسم الزر المراد اخفاءه) 
End If
End Sub

 

هذا  حدث  واحد   يوضع  في  كل  فورم  ندخل  عليه  أم  في  الفورم  الرئيسي              main

رابط هذا التعليق
شارك

السلام عليكم

استاذ سامي   .... أريد  الخطوة  الاولى  وهي تعريف  المسؤول الرئيسي  هل  ابدأ من  الجدول 
فأنا  المسؤول  عن  النظام   لكني  لاأريد  امكانية  ادخال  سندات   فمهمتي   هي  مراقبة  من  يدخل  البيانات

رابط هذا التعليق
شارك

2 ساعات مضت, العبيدي رعد said:

هذا  حدث  واحد   يوضع  في  كل  فورم  ندخل  عليه  أم  في  الفورم  الرئيسي              main

نعم اخوي رعد يضع في كل فورم  هذا الكود.

Private Sub Form_Open(Cancel As Integer)
Call UserPermission(Me, GetUserLoginID())
End Sub

وإذا كان الفورم فيه ازرار تريدها ان تكون غير مفعلة تضع باقي الكود فيصبح كالاتي.

Private Sub Form_Open(Cancel As Integer)
Call UserPermission(Me, GetUserLoginID())

If TempVars!IsFormOpened = 1 Then
    Exit Sub
Else

    Call DisableButton(Me, GetUserLoginID, Me.cmdSetPermission, هنا تضع اسم الزر مثلا Me.Addnew) 
End If
End Sub

حياك الله 

28 دقائق مضت, العبيدي رعد said:

السلام عليكم

استاذ سامي   .... أريد  الخطوة  الاولى  وهي تعريف  المسؤول الرئيسي  هل  ابدأ من  الجدول 
فأنا  المسؤول  عن  النظام   لكني  لاأريد  امكانية  ادخال  سندات   فمهمتي   هي  مراقبة  من  يدخل  البيانات

تستطيع ان تبدا من الجدول نعم فقط لك كمسؤول . ومن ثم عليك إغلاق كل الابواب وعدم السماح بالدخول من الخلف.

 

 

رابط هذا التعليق
شارك

7 دقائق مضت, العبيدي رعد said:

السلام  عليكم

ماهو  دور  الجدولين      tblsecurtytype

و    عسثق&حشسس

هاي ما اعرفها   (و    عسثق&حشسس) 

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

رابط هذا التعليق
شارك

في 26‏/1‏/2023 at 14:01, سامي الحداد said:

هاي ما اعرفها   (و    عسثق&حشسس) 

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

العفو  الخلط بالكيبورد   اقصد  جدول  user&pass  ايضا  ...  هل  احذفهما  من  البرنامج ؟  
وسؤالي  كيف  أحدد  الصلاحيات  ابتداءا  ؟  وعند  دخولي  للبرنامج  عن  طريق  الفورم   كيف  سيتعرف  عن  صاحب  الصلاحيات لنموذج  الادمن ؟

رابط هذا التعليق
شارك

@سامي الحداد  السلام عليكم

أخي  العزيز  .. عرفت الادمن  من جدول  الصلاحيات  ولكن يظهر لي خطأ في الكود  عندما  اريد  الدخول الى الصفحة الرئيسية  main

وأرفق صور توضيحية للجدول  والخطأ  الذي  يحث  في  حدث    onopen  للنموذج 

جدول صلاحيات.PNG

خطأ2.PNG

رابط هذا التعليق
شارك

اخي العزيز @العبيدي رعد

2 ساعات مضت, العبيدي رعد said:

العفو  الخلط بالكيبورد   اقصد  جدول  user&pass  ايضا  ...  هل  احذفهما  من  البرنامج ؟  
وسؤالي  كيف  أحدد  الصلاحيات  ابتداءا  ؟  وعند  دخولي  للبرنامج  عن  طريق  الفورم   كيف  سيتعرف  عن  صاحب  الصلاحيات لنموذج  الادمن ؟

الجدول user&pass كان في ملفك من الاساس

تحديد الصلاحيات يتم عن طريق دخول الادمن من نموذج تسجيل الدخول او الجدول ثم اعطاء كل الصلاحيات للنماذج وتفعيل كل الخانات  ما عدا  Button Disable. ضروري ان يكون الزر غير مفعل

وبعدها تستطيع ان تكمل مع باقي المستخدمين واعطاء كل مستخدم الصلاحية المطلوبة. وإغلاق الازرار 

منذ ساعه, العبيدي رعد said:

@سامي الحداد  السلام عليكم

أخي  العزيز  .. عرفت الادمن  من جدول  الصلاحيات  ولكن يظهر لي خطأ في الكود  عندما  اريد  الدخول الى الصفحة الرئيسية  main

وأرفق صور توضيحية للجدول  والخطأ  الذي  يحث  في  حدث    onopen  للنموذج 

جدول صلاحيات.PNG

خطأ2.PNG

بالنسبة لهذا الخطاء هو انه  زر الامر Command0  غير موجود في هذا  القورم . 

وهناك ايضا خطاء انه تم تفعيل زر Button Disable لان الشخص ابو ايمان له كل الصلاحيات إذن يجب إلغاء هذا الزر وعدم تفعيله اذا كان الادمن.

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

واي استفسار بخدمتكم . ربما أتاخر في الاجابة بسببت فرق التوقيت 

تحياتي

صلاحيات.accdb

رابط هذا التعليق
شارك

  • 3 months later...

الأستاذ الفاضل @سامي الحداد

سمحت لنفسي بأخذ الملف صلاحيات الذي قمت بتعديله للزميل العضو @العبيدي رعد

وقمت بتطبيقة في قاعدة بيانات خاصة بي شاكراً مجهوداتكم الرائعة..

وأنا أحتاج بعض التعيدلات ولم استطع تنفيذها مثل:

1. أن يكون الدخول من شاشة تسجيل الدخول إلى الشاشة الرئيسية الخاصة بنظامي والتي أسميتها في المرفق MY_MAIN_FoRM

2. يكون الدخول لشاشة التحكم بالمستخدمين والصلاحيات من داخل MY_MAIN_FoRM ولا تفتح إلا لمن لديه صلاحيات admin

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

مرفق لكم الملف الذي أعمل عليه..

MRNDB.rar

رابط هذا التعليق
شارك

6 ساعات مضت, Marwan Naji said:

الأستاذ الفاضل @سامي الحداد

سمحت لنفسي بأخذ الملف صلاحيات الذي قمت بتعديله للزميل العضو @العبيدي رعد

وقمت بتطبيقة في قاعدة بيانات خاصة بي شاكراً مجهوداتكم الرائعة..

وأنا أحتاج بعض التعيدلات ولم استطع تنفيذها مثل:

1. أن يكون الدخول من شاشة تسجيل الدخول إلى الشاشة الرئيسية الخاصة بنظامي والتي أسميتها في المرفق MY_MAIN_FoRM

2. يكون الدخول لشاشة التحكم بالمستخدمين والصلاحيات من داخل MY_MAIN_FoRM ولا تفتح إلا لمن لديه صلاحيات admin

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

مرفق لكم الملف الذي أعمل عليه..

MRNDB.rar 790.25 kB · 0 downloads

أرجوا تجاهل المشاركة السابقة فقد تم والحمد لله حل الاشكاليات التي واجهتني.

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information