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

الأخ MSD

النقطة الأولى ممكنة إن شاء الله .

النقطة الثانية ممكنة إن شاء الله .

النقطة الثالثة ممكنة إن شاء الله .

النقطة الرابعة ممكنة إن شاء الله .

وأما الكيفية....

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

2- إنشاء ملف TXT خارجي وتخزين البيانات فيه ولكن أنا أفضل الطريقة الأولى .

فأن أردت شرحت لك الكيفية بالطريقة الأولى .

ولك تحياتي

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

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

ولك مني فائق الاحترام والتقدير / msd

(g) (g) (g)

الأخ msd

عذراً على التأخر .

ملاحظة إذا جعلت الأسماء مثل ماكتبت لك لن تحتاج إلى أيه تغييرات في الأكواد .

1- أنشئ جدول جديد باسم جدول المستخدمين وأنشئ فيه الحقول التالية :

- تسلسل ترقيم تلقائي مفتاح أساسي

- اسم المستخدم نص

- تاريخ الدخول تاريخ/وقت

- تاريخ الخروج تاريخ/وقت

- وقت الدخول تاريخ/وقت

- وقت الخروج تاريخ/وقت

2- أنشئ نموذج جديد باسم تسجيل الدخول وضع عليه :

- مربع نص باسم اسم_المستخدم_الحالي

- وزر أمر باسم موافق وفي حدث النقر عليه ضع :

If Me.Caption = "إعادة تسجيل الدخول لقاعدة البيانات" Then
' لإغلاق الدخول بالاسم السابق
Call Form_Unload(0)
End If
DoCmd.RunSQL ("INSERT INTO [جدول المستخدمين]" _
& " ( [اسم المستخدم], [تاريخ  الدخول], [وقت الدخول] ) " _
& " SELECT [Forms]![تسجيل الدخول]![اسم_المستخدم_الحالي] AS اسم, Date() " _
& " AS تاريخ, Time() AS وقت;")
Me.Caption = "تسجيل الدخول لقاعدة البيانات"
Me.Visible = False

- زر أمر باسم إلغاء_الأمر وفي حدث النقر عليه ضع :

If Me.Caption <> "إعادة تسجيل الدخول لقاعدة البيانات" Then
DoCmd.Quit acQuitSaveNone
Else
Me.Caption = "تسجيل الدخول لقاعدة البيانات"
Me.Visible = False
End If

- في حدث عند إلغاء التحميل للنموذج ضع :

DoCmd.RunSQL ("UPDATE [جدول المستخدمين] SET " _
& " [جدول المستخدمين].[تاريخ الخروج] =  Date(), " _
& " [جدول المستخدمين].[وقت الخروج] = Time() " _
& " WHERE ((([جدول المستخدمين].[وقت الخروج]) Is Null));")

وفي خاصية منبثق للنموذج اختر نعم وفي خاصية مشروط اختر نعم واختر لا في أشرطة التمرير (لا هذا ولاذاك) ومحددات السجلات وأزرار التنقل والخطوط المقسمة وتغيير حجم تلقائي ، وتوسيط تلقائي اختر نعم ونمط الحدود مربع حوار ومربع عنصر التحكم لا وزرا التصغير والتكبير لا وزر الإغلاق لا قائمة مختصرة لا .

بهذا يتم تسجيل وقت وتاريخ الدخول وكذلك وقت وتاريخ الخروج واسم المستخدم .

3- ولإظهار اسم المستخدم على أي نموذج مثلا في تسمية (مربع عنوان) اسمها اسم_المستخدم ضع في حدث عند التحميل للنموذج السطر التالي :

اسم_المستخدم.Caption = Forms![تسجيل الدخول]![اسم_المستخدم_الحالي]

4- ولإظهار اسم المستخدم في تذييل التقرير ضع مربع نص عليه وفي مصدر عنصر التحكم لهذا المربع ضع :

=[Forms]![تسجيل الدخول]![اسم_المستخدم_الحالي]

5- لإعادة التسجيل في حدث نقر زر أمر ضع :

DoCmd.OpenForm "تسجيل الدخول"
Forms![تسجيل الدخول].Caption = "إعادة تسجيل الدخول لقاعدة البيانات"

ثم اكتب الاسم الجديد واضغط زر موافق .

ولك تحياتي

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

لم تقل هذا من البداية .

وما طلبته لا أعرف جوابه .

ولك تحياتي