forms - 以编程方式浏览连续表格的记录

Question

我想在 Access 97 中浏览连续表格的记录。我不知道该怎么做。这是我尝试过的：

Me.RecordSetClone.MoveFirst在逻辑上移动到第一条记录，但不在 UI 中。属性也CurrentRecord不会改变。

我无法设置该CurrentRecord属性，它是只读的。Me.CurrentRecord = 1给出一个错误。

DoCmd.GoToRecord Record:=acFirst似乎没有效果。

以连续形式移动到第一条记录（以及下一条/上一条）的正确方法是什么？

Answer 1

使用BookmarkRecordsetClone 和 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