وهذه مشاركتي بطريقة أخرى
تم إجراء تعديلات على الكود الذي يظهر النتيجة برسالة عند النقر المزدوج على الحقل FieldChangedFrom . واستخدامه في حدث ( في الحالي ) للنموذج FrmAudit ، على النحو التالي :-
Private Sub Form_Current()
On Error GoTo flderr
Dim tbl As String
Dim fld As String
tbl = Me.tblNm
fld = FieldChangedFrom
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset(tbl)
rs.MoveFirst
Do While Not rs.EOF
If rs.Fields(0) = fld Then
Me.FieldChangedFrom = rs.Fields(1).Value
Exit Sub
End If
rs.MoveNext
Loop
flderr:
Exit Sub
End Sub
وفي حدث زر تتبع التغييرات ، قمت بإضافة سطرين ليصبح الكود كالتالي :-
Me.Refresh
DoCmd.OpenForm "frmAudit", acNormal
DoCmd.GoToRecord , , acLast
[Forms]![frmAudit]![FieldChangedFrom].SetFocus
[Forms]![frmAudit]![FieldChangedFrom].Requery
Database4.accdb