通过连续形式的记录进行编程导航

Question

我想浏览Access 97中连续形式的记录。我找不到如何做。这就是我尝试的：

Me.RecordSetClone.MoveFirst从逻辑上移至第一个记录，但在UI中不移动。 CurrentRecord属性也不会更改。

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

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

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

Answer 1

使用RecordSetClone和Form的Bookmark属性。

警告：我很确定所有这些都在访问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