اضافة اسم المستخدم لكل سجل جديد

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

الموضوع يتطلب منك عمل متغير عام Public Variable  لتخزين اسم المستخدم اثناء علمية الدخول ومن ثم تخزينها برمجيا حينما تحتاج اليها يمكنك استخدام الكود التالى

dim DBS as databasde
dim Rps as recordset

Set DBS = CurrentDb()
Set Rps = DBS .OpenRecordset("select * from [اسم الجدول المطلوب التخزين فية]")

Rps.AddNew
Rps.field("Nem")=[اسم المتغير]
Rps.Update

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

اخي العزيز اذا كنت تستخدم اكسس فعليك اتباع الاتي

اولا ادراج الحقول التاليه ضمن جدولك الاساسي وهي

CreatedAt  تاريخ الادخال

CreatedBy اسم المدخل

ChangedAt تاريخ التعديل

ChangedBy اسم المعدل

وارفاقها في نموذجك الرئيسي مزيدا من الشرح ياحبذا ارفاق ملفك

اليك المرفق التالي يمكن تستفيد منه

اسم-مجلدالويندوزواسم-المستخدم44943.rar