"مثال" التحكم في مستوى صلاحيات المستخدمين

الحقيقة انه نظام الصلاحيات هام جداً وخاصة في الشبكات ولكن إلى الآن لم نجد سوى نظامين للصلاحيات

الأول وهو الخاص بالأكسس نفسه وهو نظام الأمان على مستوىالمستخدم

والثاني وهو صلاحيات المستخدم باستخدام الخيارات البرمجية

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

شكرا ياشباب ويعطيكم العافية اخواني طيب كيف يتم دمج تلك الصلاحيات امل منكم الشرح تحياتـــــــــــــــــــي

ما قصدته بدمج الصلاحيات أوضحه كالتالي

وليكن لدي النماذج a , b, c, d, e, f, g, h

وأريد جعل فتح النماذج a, b, c, d, وليكن بصلاحية واحدة في هذه الحالة أجعل فتح هذه النماذج عن طريق نموذج آخر وليكن o ويوضع على هذا النموذج أزرار لفتح النماذج السالفة الذكر وأضع الصلاحية على هذا النموذج o وبالتالي سيكون فتح النماذج a,b,c,dمحصور بفتح النموذج o وهو له صلاحية خاصة به .

أرجوا أن تكون الفكرة واضحة

أخي الأستاذ/ رضا عقيل

أشكرك مرة أخرى على مداخلاتك الطيبه والمفيده وتفعالك مع هذا الموضوع

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

ولك الأجر في هذا الشهر الفضيل عند الله تبارك وتعالي.

ياليت مثال استاذنا رضا

أبشروا إخواني الأحباء

أعطوني فرصة فقط لآخر اليوم

وكل عام وأنتم بخير جميعاً

أخي ابن مسقط

أخي ابو شاهر

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

1 - تم إضافة اربع نماذج بسيطة المظهر جداً

2- تم تغير صلاحية في نموذج الصلاحيات لتكون للنموذج o

بعد الدخول للبرنامج بكلمة سر ابن مسقط وهو مالك البرنامج

ادخل على القائمة بيانات الطلاب

ستجد آخرالقائمة بند نموذج الصلاحيات المجمعة

قم بالضغط لفتح النموذج

إذا كانت لك صلاحية الفتح سيتم فتح النموذج o وبه ثلاثة أزرار لفتح ثلاثة نماذج أخرى

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

وهذا فقط إذا كانت النماذج من الكثرة بحيث ترهق المبرمج إذا كانت الصلاحيات متشابهة

أرجوا أن أكون اصبت

مع خالص تحياتي

reda.rar

استاذنا رضا عقيل

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

أخي أبو شاهر

إذا كنت تريد فتح كل نموذج عن طريق بند في قائمة

فلس امامنا سوى وضع صلاحيات للمستخدمين على جميع النماذج ........

وإلى أن يشاء الله ونجد طريقه أخرى فليس امامنا سوى ذلك

مع تحايت

اخوك رضا عقيل

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

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

ونحن في انتظار النسخه الجديده التي تعملها للصلاحيات على أحر من الجمر

بارك الله فيك وكتب لك الاجر والثواب الجزيل

أخي الأستاذ/ رضا عقيل

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

أخي الكريم/ سحاب

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

والله ولي التوفيق.

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

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

لإنزال المثال ، أنقر هنا بزر الفأرة الأيمن وأختر عبارة "حفظ الهدف" أو Save Target As

لا أسألكم عليه أجراً ، ولكني أسألكم الدعاء الصالح لي.

اخي ابن مسقط

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

اخي واستاذي الكريم ابن مسقط

عمل رائع ومجهود تشكر عليه

جزاك الله عنا كل خير

ارجوا من الله العلي القدير ان يجزل لك الاجر والمثوبة في هذا الشهر الفضيل

لك مني خالص التحية والتقدير

بارك الله فيك وجزاك الله خير الجزاء

وأسأل الله ان يغفر لك ولوالديك

السلام عليكم

برنامج ممتاز

الموضوع انحصر عند

اخفاءالجداول

ان شاء الله يوجد حل

اللهم يامفرج الهم ويا رازق من في السماء والارض

أن ترزق اخينا وحبيبنا ابن مسقط من كل الخيرات

في الدنيا والأخره

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

اللهم أذهب حزنه وفرج همه والبسه لباس الصحه والعافيه

اللهم آميييييييييييييييييييييييييييين

يارب العالمين

اخ ابن مسقط

لقد اخفيت الجداول

حصل مشكه في البرمجه

s = DLookup("[user_name]", "tbl_fbi")

zn = DLookup("[user_name]", "tbl_fbi")

يعني بمعنا ما عاد يقرء dlookup

تحيات ابو سمرا

هزا اجراء اخفاء الجداول

.... اجارء اظهار الجداول

تحيات ابو سمرا

Public Function B()

Dim dbs As Database, tdf As TableDef

Set dbs = CurrentDb

For Each tdf In dbs.TableDefs

If Left(tdf.Name, 4) <> "msys" And tdf.Attributes <> 1073741824 _

And tdf.Attributes = 1 Then

tdf.Attributes = tdf.Attributes - dbHiddenObject

End If

Next tdf

Set dbs = Nothing

End Function

Public Function A()

Dim DB As Database

Dim obj As AccessObject, dbs As Object

Dim tdf As TableDef

Set dbs = Application.CurrentData

Set DB = CurrentDb

For Each obj In dbs.AllTables

Set tdf = DB.TableDefs(obj.Name)

If Left(tdf.Name, 10) <> "msys" And tdf.Attributes <> 1073741824 Then

tdf.Attributes = tdf.Attributes + dbHiddenObject

End If

Next

Set tbl = Nothing

DB.Close

Set DB = Nothing

End Function

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

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

الأخ/ سمير

أنا لم أخفي في المثال سوى جدول "tbl_User" لذلك لم أواجه أي مشكلة.

وهذا الكود الذي أستخدمته في إخفاء الجدول تجده في نموذج الدخول :

CurrentDb.TableDefs("tbl_User").Attributes = dbHiddenObject

وهذا الكود لإظهاره مرة أخرى :

CurrentDb.TableDefs("tbl_User").Attributes = 0

العزيز ابن مسقط لماذا لم يظهر جدول المستخدمين رغم ادخال كود اظهاره .

أخي الكريم/alali100

لا يكفي تفعيل كود الإظهار ، بل يجب عليك أيضاً أن توقف عمل كود الإخفاء بالطريقة التالية :

Rem CurrentDb.TableDefs("tbl_User").Attributes = dbHiddenObject

والله يوفقك.

ابن مسقط ماشاء الله

هل من الممكن ان تشرح لنا كيف نعمل صلاحيات مثلك خطوه بخطوه

مثال اكثر من رائع اخى ابن مسقط

ووفقك الله لكل خير -

سالم-1111