مطلوب تسجيل اسم المستخدم عند الدخول والخروج

[dd13901390]

بعد التحية هذا البرنامج محتاج مساعدة فيه وهو كالتالي :

1- بعد دخول المستخدم الرجاء اظهار البيانات في جدول date in ويتم تخزينها

2- بعد الخروج المستخدم من القائمة الرئيسية يتم تخزين القيمة في جدول date out ويتم تخزينها 

طبعا الدخول والخروج لهم تقارير اريد تظهر المعلومات كذلك فيهم .

وجزاكم الله الف خير وبركة 

data test.accdb

[dd13901390]

الرجاء المساعدة عاجلا 

[ابوخليل]

تم تعديل العنوان

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

Public regUserName As String
Public regUserId As Integer
Public Function funRegUserNameIn()
Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("date in")
        rs.AddNew
        rs!UserID = regUserId
        rs!UserName = regUserName
  rs.Update
  rs.Close: Set rs = Nothing
End Function

Public Function funRegUserNameOut()
Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("date out")
        rs.AddNew
        rs!UserID = regUserId
        rs!UserName = regUserName
  rs.Update
  rs.Close: Set rs = Nothing
End Function

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

لأن التعديل يتم تسجيله على مستوى نماذج محددة

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

 

data test2.rar

[dd13901390]

الف شكر اخوي ابوخليل ممكن اخوي فيه روابط تزودني فيها 

تم تعديل سبتمبر 7 بواسطه dd13901390

[ابوخليل]

هذا واحد منها