[ZVOd_]

Перемещение по записям в форме/подч. форме

Function GoToRec(frm As Form, rs As DAO.Recordset, Optional Record As Long, Optional Offset As Long)
On Error Resume Next

If IsMissing(Record) Then Record = acNext
If IsMissing(Offset) Then Offset = 0

Select Case Record
Case acFirst
rs.MoveFirst
Case acGoTo
rs.Move Offset
Case acLast
rs.MoveLast
Case acNewRec

Case acNext 'Default
rs.MoveNext
Case acPrevious
rs.MovePrevious
End Select

frm.Bookmark = rs.Bookmark
End Function

C отменой и сохранением изменений троха сложнее .... нужно изпользовать рекордсет...