I'm trying to place a "last modified" field on a form that records the last time a record was edited.


I've dug around online and have come up with some solutions. Most recommend that code be placed on the "Before Update" event procedure.

Microsoft recommended the following:

Private Sub Form_BeforeUpdate(Cancel As Integer)
    On Error GoTo BeforeUpdate_Err

    ' Set bound controls to system date and time.
    DateModified = Date
    TimeModified = Time()

BeforeUpdate_End:
    Exit Sub
BeforeUpdate_Err:
    MsgBox Err.Description, vbCritical & vbOKOnly, _
        "Error Number " & Err.Number & " Occurred"
    Resume BeforeUpdate_End
End Sub


However, when I go that route, the code only places a date when i create a record. Nothing happens every time I make an edit.

I tried placing the code on the "after Update" event procedure. That seems to work, but the record locks and I am unable to scroll to the next record.
This is the code:

Private Sub Form_AfterUpdate()
Me![DateModified] = Now()
End Sub

What gives?
Thanks

---

Reply from Richard Rost:

Unfortunately, due to the way Access events work, you'll need to place an AfterUpdate event in EACH FIELD of the form to update your DateModified field.