الصلاحيات في الأكسيس(((دعوة للخبير رضا عقيل)))

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

وجميع الأخوة الكرام في هذا المنتدى .. آمين آمين يا رب العالمين ..

أخي الفاضل رضا .. أشكرك جزيل الشكر وبارك الله في أعمالك وعلى هذا المجهود الجبار .. بإذن الله عز وجل سوف أوقم بعمل المثال .. وإخبارك بأي شيء قد يحدث لي .. وبإذن الله على تواصل مستمر ..(f)(f)

أخي العزيز فتى الوادي .. جزاك الله خيراً على المثال .. وسوف أقوم بتجربته .. بارك الله فيك ..(f)(f)

بسم الله الرحمن الرحيم

الأخ العزيز رضا عقيل وجميع الأخوة في هذا المنتدى السلام عليكم ورحمة الله وبركاته ...

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

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

ملاحظة //

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

الله ينور بصيرتك يا استاذنا رضا عقيل

وانا اضم صوتي لاخي hassaan100

وفعلا بالنسبة لنا كمبتدئين اذا شفنا هذه الجداول وكثرتها ضاعت علومنا

وأسأل الله لك التوفيق

ما شاء الله عليك يا اخي رضا وما شاء الله عليك يا اخ فتى الوادي

ياليت يا اخي العزيز فتى الوادي ان ترسل تحول البرنامج الى mdb

واسف للإزعاج

للرفع:rolleyes:

للرفع:rolleyes:

:rolleyes:للرفع

أبشروا اخواني

سأضع لكم بإذن الله نفس المثال مع حذف الزيادات

مع تحياتي

رضا عقيل

الله يجزيك كل خير وأدامك الله لنا في هذا المنتدى الرائع (f)(f)(f)(f)(f)(f)

أخي العزيز تعرف .. الأفضل لو أنك تقوم بتصميم المثال .. أريده منك أنت حتى يتبن لي أشياء كثيرة من خلال المثالين .. العفو منك .. وجزاك الله خير الجزاء(f)

اقتباس

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

أخي الكريم/ رضا عقيل

هل يمكن أن تكمل جميلك عندما تقوم بوضع المثال بحيث يشتمل على شفرة الدخول التي قام الأخ/ أبو عقيل بإضافتها مؤخراً.

ولك الأجر ان شاء الله

جزاك الله خيرا اخي رضا

ونحن في انتظار مثالك واي اضافات اخرى

ما شاء الله

ــــــــــــــــــــــــــــــــ

up:rolleyes:

إخواني

هذا هو مثال أبو عقيل بعد تصفيته والإبقاء على نماذج وجدوال واستعلامات الصلاحيات فقط

أما عمل مثال جديد بنفس المسميات ونفس النظام سيأخذ وقتاً طويلاً وأنا باقي لي 10 يوم فقط وأعود إلى مصر لقضاء إجازة 4 أشهر والوقت ضيق جداً .

===

خطوات العمل

1- قم باستيراد كافة الكائنات من هذا المثال إلى برنامجك

2- حدد لكل نموذج من نماذج برنامجك مستوى الصلاحية المناسب

وليكن لديك نموذج باسم ( reda ) وأنك ستضع عليه صلاحية ( level1 )

افتح النموذج في عرض التصميم

أضف إليه مربع نص غير منضم واكتب بداخله الدالة التالية

=DLookUp("[level1]";"fbi")

وفي حدث عند الفتح للنموذج ضع الكود التالي

If Me![level1] = 1 Then  '       فقط غير في المستوى عند تغيير النموذج
DoCmd.OpenForm "reda"ضع اسم النموذج هنا '    
DoCmd.GoToControl "no1"
Else
Beep
Dim zm
zm = DLookup("[user]", "fbi")
MsgBox "عفوا يا سيد /  " & "( " & zm & " )" & " ليس لك الحق بالدخول لهذه الشاشة ", vbOKOnly, "تحذيـــــــر"
DoCmd.Close
End If

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

===

أخي ابن مسقط ...

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

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

employs_2000.rar

أخي الكريم/ رضا عقيل

أشكرك جزيل الشكر على تفاعلك الطيب وردك الكريم

بارك الله فيك ووفقك إلى كل خير تقصده.

جزاك الله كل خير أخي وعزيزي رضا عقيل .. وأتمنى من الله عز وجل أن يبارك في أعمالك .. ويسدد خطاك ..

أخوك..

اخواني

لكم جزيل الشكر والتقدير على هذه الدعوات الطيبه الصادقه

رجاءاً

لا تنسوا أخي أبو عقيل من دعائكم

فهو صاحب الفضل الاول

اخي رضا والله الف الف شكر

والله تستاهل كل خير

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

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

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

والتي سبق وأشرت لها في شرحك ((( الممتع )))

أسأل الله لك اجازة سعيده

والقلوب والله معك يا معلمنا (( وحبيبنا ))