ник: snipe
вот раскопал тут в недрах форума......
Вопрос: Перемещение по записям в форме / подчиненной форме
Совет:
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