以编程方式浏览连续表单的记录
Navigate programmatically through the records of a continuous form
我想在 Access 97 中浏览连续表格的记录。我不知道如何操作。这是我试过的:
Me.RecordSetClone.MoveFirst
逻辑上移动到第一条记录,但不在 UI 中。 CurrentRecord
属性 也没有改变。
我无法设置 CurrentRecord
属性,它是只读的。 Me.CurrentRecord = 1
报错。
DoCmd.GoToRecord Record:=acFirst
好像没有效果
以连续形式移动到第一条记录(以及移动到 next/previous)的正确方法是什么?
使用 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
我想在 Access 97 中浏览连续表格的记录。我不知道如何操作。这是我试过的:
Me.RecordSetClone.MoveFirst
逻辑上移动到第一条记录,但不在 UI 中。 CurrentRecord
属性 也没有改变。
我无法设置 CurrentRecord
属性,它是只读的。 Me.CurrentRecord = 1
报错。
DoCmd.GoToRecord Record:=acFirst
好像没有效果
以连续形式移动到第一条记录(以及移动到 next/previous)的正确方法是什么?
使用 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