Программная навигация по записям непрерывной формы - PullRequest
Новая
       52

Программная навигация по записям непрерывной формы

0 голосов
/ 05 марта 2019

Я бы хотел просмотреть записи непрерывной формы в Access 97. Я не нашел, как это сделать.Вот что я пробовал:

Me.RecordSetClone.MoveFirst логически перемещается к первой записи, но не в пользовательском интерфейсе.Кроме того, свойство CurrentRecord не изменяется.

Я не могу установить свойство CurrentRecord, оно доступно только для чтения.Me.CurrentRecord = 1 выдает ошибку.

DoCmd.GoToRecord Record:=acFirst, кажется, не имеет никакого эффекта.

Как правильно перейти к первой записи в непрерывной форме (и к следующей / предыдущей)

1 Ответ

0 голосов
/ 06 марта 2019

Используйте свойство Bookmark RecordsetClone и Form.

Предостережение: я почти уверен, что все это работало в Access 97, но это было очень давно. 

Sub DemoNavigate()

    Dim RS As DAO.Recordset

    Set RS = Me.RecordsetClone
    RS.MoveFirst
    ' or
    RS.AbsolutePosition = 0

    ' Navigate in form
    Me.Bookmark = RS.Bookmark

    ' next record
    RS.MoveNext
    ' or
    RS.AbsolutePosition = 1

    Me.Bookmark = RS.Bookmark

    ' Move to searched record
    RS.FindFirst "someField = 42"
    Me.Bookmark = RS.Bookmark

End Sub
...