صلاحيات مستخدم

[Ahmed.IQ]

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

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

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

Dim uuu
If Me.Password = DLookup("[password]", "users", "[username]='" & Me.username & "'") Then
MsgBox "رجاءً قم بعمل نسخة احتياط الخاصة بمحافظتك"
uuu = Me.username
DoCmd.Close acForm, "login"
DoCmd.OpenForm "viwe"
[Forms]![viwe]![u1] = uuu

Else
MsgBox "أسم المستخدم أو كلمة السر خطاء"
End If

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

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

If DLookup("[DT]", "users", "[username] = u1") = True Then
DoCmd.OpenForm "T_Employees", acNormal
DoCmd.GoToRecord , , acNewRec
DoCmd.Close acForm, "viwe"
Else
MsgBox "لا تمتلك صلاحية دخول الصفحة"
End If

المشكلة هيا ..

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

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

مع الشكرا الجزيل.

[ابوخليل]

وعليكم السلام 

نعم يوجد ..  عرف القيمة  واجعلها عامة

في رأس وحدة نمطية عامة (مديول )  الصق  هذه  Public uuu

وتنادي القيمة هكذا :   if uuu  يساوي كذا ...

هذا كل شيء

[Ahmed.IQ]

هل ممكن مثال لو سمحت استاذ ابا خليل

[ابوخليل]

انت من يضع المثال حيث اكوادك موجودة  , ولا يحضرني شيء الآن

احرص ان يكون على صيغة mdb

[Ahmed.IQ]

تفضل استاذ ابا خليل

تجربة.rar

[ابوخليل]

الصلاحية الآن تخص المستخدم فقط ، حيث ستطبق في الواجهة التي يعمل عليها بعيدا عن الجداول

 

تجربة2.rar

[Ahmed.IQ]

شكراً جزيلا ابا خليل اسئل الله ان يمدك بالصحة والعافية وان يجعلها في ميزان حسناتك