أرجوا المساعدة في تعديل الوحدة النمطية(الحذف والتعديل)

بسم الله الرحمن الرحيم

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

لدي الوحدة النمطية التالية أرجوا مساعدتي فضلاً لا أمراً جزاكم الله خير في تعديل الصيغة في السطر العاشر المشار عليها باللون الأحمر ولي منكم خالص الدعاء :

Sub WriteAuditUpdate4(txtTableName, lngRecordNum, txtFieldName, OrgValue, CurValue)

Dim db As Database

Dim rs As Recordset

Set db = CurrentDb

Set rs = db.OpenRecordset("edit_delete_schedule")

rs.AddNew

rs!TableName = txtTableName

rs!FieldName = txtFieldName

rs!user = db.OpenRecordset("FBI")![user]

'قمت بإضافة هذا الكود والهدف منه تسجيل رقم الطالب الذي قام بالتعديل أو الحذف مبني على أساس جدول الطلاب ...والمشكلة هنا أن هذا الكود يسجل فقط أول رقم طالب في الجدول فقط حتى ولو كان طالب آخر قام بالتعديل فكيف يمكن علاج ذلك؟

rs!NumberValue = db.OpenRecordset("Students_schedule ")![number]

rs!OriginalValue = OrgValue

rs!NewValue = CurValue

rs!DateStamp = Now()

rs!timeStamp = Now()

rs.Update

rs.CLOSE

db.CLOSE

End Sub