Stopping the delete

[Karen]

When users try to delete records, I just want the form to
set a status field equal to a deleted status and keep the
record.
This is what I have in the Delete event of the form.

Private Sub Form_Delete(Cancel As Integer)
Cancel = True
Me!STATUS_FK = 5
DoCmd.DoMenuItem acFormBar, acRecordsMenu,
acSaveRecord, , acMenuVer70
Me.Refresh
End Sub

It works ok if I'm doing just one record at a time, but
if I hilight three records, it only sets the status of
the first one, and it doesn't save the changes.
Any suggestions on how I can have all the rows save a
status?

Thanks
Karen