مساعده في انشاء مستخدمين

في الموضوع التالي مثل عن كيفية استخدام خيارات المستخدمين

http://www.arabteam2000.com/vb/showthread....&threadid=17155

مشكور يا خبير الاكسس

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

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

و شكرا

هذا مثال بسيط

للتعديل فى الحقل و فتح الفورم بحسب المستخدم

و المستخدم رقم 1 فقط له الصلاحيات

فاذا غيرت رقم المستخدم فى الحقل السفلي الي غير ال 1

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

auth.zip

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

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

و الثانى على النماذج فقط

و الثالث على النماذج والتقارير فقط

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

هل يمكن فعل ذلك بالكو د

انا دائما أستخدم هذه الطريقة في فعل ما تقول

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

و كذلك للتعديل علي بعض الحقول المهمة

مثال

Private Sub Command347_Click()

x = DLookup("[USER]", "COMPANY")

y = DLookup("[USER NAME]", "QUSERS", "[USER]=" & x)

If x < 3 Then GoTo ESCVALID

MsgBox y + " áÇ íãßäå ÇáÏÎæá Çáí åÐÇ ÇáÌÒÁ ãä ÇáÈÑäÇãÌ ", 48, "Authorization Warning Message"

Cancel = True

SendKeys "{ESC}"

Exit Sub

ESCVALID:



 DoCmd.OpenForm "FLIMIT"

 Forms![start].Form.Visible = False



End Sub

أو

Private Sub Product_DblClick(Cancel As Integer)

  Dim M As Integer

  M = Me.PID

  

 Dim x As Byte ', y As String

x = DLookup("[USER]", "COMPANY")

'y = DLookup("[USER NAME]", "QUSERS", "[USER]=" & x)



 If x > 1 Then

 DoCmd.OpenForm "FPRODUCTSD", , , "[PID]= " & M, acFormReadOnly

  Else

 DoCmd.OpenForm "FPRODUCTSD", , , "[PID]= " & M

 End If

  End Sub

جرب هذا

مع ملاحظة ما يلي :

اشرف كلمة مروره 1

على كلمة مروره 2

محمد كلمة مروره 3

passwordswitchboarddemo2k.zip

طريقة ممتازة اخى محمد وبارك الله فيك

و لكن ما نطمع فيه هو عمل ما يقوم به مجموعة العمل ( الرخم )

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

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

مع ملاحظة انك تسعى فى اضافة الشكل الاحترافى لبرنامجك بمعنى انك لابد ان تتيح للعميل اضافة مستخدم و حذفة و تغيير اسمة و كلمة مروره

كما لابد تتيح له وضع الصلاحيات لكل مستخدم

ولا ايه ؟؟؟؟

طريقة ممتازة اخى محمد وبارك الله فيك

و لكن ما نطمع فيه هو عمل ما يقوم به مجموعة العمل ( الرخم )

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

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

مع ملاحظة انك تسعى فى اضافة الشكل الاحترافى لبرنامجك بمعنى انك لابد ان تتيح للعميل اضافة مستخدم و حذفة و تغيير اسمة و كلمة مروره

كما لابد تتيح له وضع الصلاحيات لكل مستخدم

ولا ايه ؟؟؟؟

أخي الكريم medhatzayed

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

وإذا استخدمنا الدوال في هذه العملية فإنها ستكون سهلة والتعديل عليها يسير

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

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

الى جميع الاخوة الكرام

الشكر الجزيل لكم وطريقة الاخ اشرف هي طريقه جميله فهي لا تستطيع لأي مستخدم اخر ما لم يعرف كلمة السر الدخول في القاعده ويسمح له في الدخول الى النموذج المحدد لكننا الان نريد ان نحمي كلمة السر الموجوده داخل الجدول فكيف يمكننا ذلك؟

والشكر الجزيل للاخوة الاخرين الذين تفاعلوا مع هذا الموضوع الجيد

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

بحيث يتم تنفيذ الكود على كافة كائنات قاعدة البيانات

ارجو ممن يملك المعلومة الا يبخل علينا

اقتباس

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

أستاذي الكريم/ أبوهاجر

1- ماذا تقصد بكلمة tag ؟

2- كيف لي أن أطوعها للإستخدام في مثال الأخ الفاضل/ أشرف خليل ؟

الحمد لله ^