كيفية تسجيل وقت خروج المستخدم

تفضل اخي الكريم

ملفك بعد التعديل

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

Private Sub TexBox_EntryDateMai_AfterUpdate()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim username As String
Dim logintime As String

TexBox_EntryDateMai = Now()
username = ComBox_UserName
Set db = CurrentDb()
Set rs = db.OpenRecordset("Security", dbOpenDynaset)
rst.AddNew
logintime = TexBox_EntryDateMai
rs!Name = username
rs!ENTRY_DATE = logintime
rs.Update
rs.Close
db.Close

Set rs = Nothing
Set db = Nothing
End Sub

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

وايضا سوف نستخدم هذا الكود عند الخروج من النموذج او عند اغلاقه

Private Sub Form_Close()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim username As String
Dim logouttime As String
Dim strSQL As String

Set db = CurrentDb()
username = ComBox_UserName
TexBox_ExitDateMai = Now()
strSQL = "SELECT Security.NAME, Security.EXIT_DATE FROM Security WHERE (((Security.NAME)= '" & username & "'));"
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
rs.Edit
logouttime = TexBox_ExitDateMai
rs!EXIT_DATE = logouttime
rs.Update
rs.Close
db.Close

Set rs = Nothing
Set db = Nothing
End Sub

الأكواد السابقة سوف تقوم بتسجيل اسم المستخدم ووقت وتاريخ الدخول ووقت وتاريخ الخروج في الجدول Security

za-صلاحيات متنوعة-UP.rar

بالتوفيق

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

تحية طيبة وبعد

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

1-ولكن عند اغلاق النموذج يتوقف البرنامج عند الأمر rs. Edit ويبق عالقاً فلا أدري سبب ذلك

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

والسلام .....

Azizmm كتب:

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

تحية طيبة وبعد

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

1-ولكن عند اغلاق النموذج يتوقف البرنامج عند الأمر rs. Edit ويبق عالقاً فلا أدري سبب ذلك

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

والسلام .....

معذرة اخي الكريم

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

Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)

الى السطر الجديد

Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)

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

za-صلاحيات متنوعة-END.rar

بالتوفيق

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

تحية طيبة...

مني لجميع أعضاء المنتدى ألف شكر وشكر وعرفان ولمعلمتنا زهرة مثلها وأكثر...

لقد استفدت من المشاركة السابقة ولكن مازالت المشكلة قائمة حيث يتم تسجيل وقت خروج كل مستخدم مرة واحدة فقط وفي المرة الثانية لنفس المستخدم لا يتم تسجيل وقت خروجه فما ادري سبب ذلك ؟

وللجميع ألف دعوة خير وبارك الله في الجميع...

Azizmm كتب:

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

تحية طيبة...

مني لجميع أعضاء المنتدى ألف شكر وشكر وعرفان ولمعلمتنا زهرة مثلها وأكثر...

لقد استفدت من المشاركة السابقة ولكن مازالت المشكلة قائمة حيث يتم تسجيل وقت خروج كل مستخدم مرة واحدة فقط وفي المرة الثانية لنفس المستخدم لا يتم تسجيل وقت خروجه فما ادري سبب ذلك ؟

وللجميع ألف دعوة خير وبارك الله في الجميع...

بارك الله بك اخي الفاضل

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

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

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

بالتوفيق