Question

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

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

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

DoCmd.GoToRecord Record:=acFirst似乎无效。

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

Answer 1

使用RecordsetClone和Form的Bookmark属性。

注意：我很确定这一切都可以在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

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

1 个答案: