في هذا التعديل ، قمت بتحديث القيمة في النموذج مباشرةً بدلاً من عرضها في رسالة ، باستخدام السطر :-
Me.FieldChangedFrom = rs.Fields(1).Value
بدلاً من السطرين السابقين :-
Beep
MsgBox rs.Fields(1)
لتحديث القيمة في النموذج مباشرةً بالقيمة الموجودة في السجل الحالي.
وأما بالنسبة للجزئية المتعلقة بالحدث عند فتح النموذج المتعقب للتغييرات فهي فقط لتحديث الحقل ، فبدونها سيتوجب على المستخدم ان يقف على مربع النص FieldChangedFrom ليتم تطبيق التحديث ، كون الحدث يعمل في الحالي . فاستبدلت الفكرة لفتح النموذج والذهاب الى آخر سجل وعمل تحديث له .
DoCmd.GoToRecord , , acLast
[Forms]![frmAudit]![FieldChangedFrom].SetFocus
[Forms]![frmAudit]![FieldChangedFrom].Requery