لكن يا أختي هذه الطريقه لاتحقق لك ماتريدين , لأن الاضافه التي يقوم بها الكود السابق
على جدول مستقل , و هذا لايفيد بشي
لتوضيح الفكره فقط أقول لك مايلي :
أنتي مثلا عندك عشرة جداول في قاعدة البيانات , المطلوب أن نعرف من الذي قام باضافة سجلات على كل جدول من هذه الجداول , و من قام بالتعديل عليها أيضا
سنضيف أربعة حقول على كل جدول :
اسم المستخدم الذي اضاف - تاريخ الاضافه - اسم المستخدم الذي عدل - وقت التعديل
و سنستخدم فيها الأكواد المذكوره في الوصله السابقه , اي في نموذج حركة الحساب مثلا ستضيفين الحقول الأربعه الى حقول جدول حركة الحساب , و الكود سيعمل بالآليه التاليه
من نموذج حركة الحساب , عند اضافة سجل جديد , سيتم تعبئة حقلي اسم المستخدم المنشأ - ووقت الاضافه بواسطو الكود التالي :
Private Sub Form_BeforeInsert(Cancel As Integer)
[CreatedBy] = dlookup("username","users") ()
[CreatedDate] = Now()
End Sub
الآن لو كان النموذج في وضع تعديل و ليس اضافه , سيتم تلقائيا تعبئة حقلي اسم الذي عدل - وقت التعديل بواسطة الكود التالي :
Private Sub Form_BeforeUpdate(Cancel As Integer)
[ModifiedBy] = dlookup("username","users") ()
[ModifiedDate] = Now()
End Sub
هذه هي الطريقه بكل وضوح , و اذا لم تكن واضحه استفسري و لو تحبين ارفاق ملفك عدلته لك