书签属性是标识当前记录的一种方式,可以用于窗体及记录集,二者可以切换,切换的语句是:
rst.Bookmark = Me.frmyg_child.Form.Bookmark
Me.frmyg_child.Form.Bookmark = rst.Bookmark
下面是上一条、下一条的代码:
Private Sub 上一条_Click()
On Error Resume Next
Dim rst As Object
Set rst = Me.frmyg_child.Form.RecordsetClone
rst.Bookmark = Me.frmyg_child.Form.Bookmark
rst.MovePrevious
Me.frmyg_child.Form.Bookmark = rst.Bookmark
End Sub
Private Sub 下一条_Click()
On Error Resume Next
Dim rst As Object
Set rst = Me.frmyg_child.Form.RecordsetClone
rst.Bookmark = Me.frmyg_child.Form.Bookmark
rst.MoveNext
Me.frmyg_child.Form.Bookmark = rst.Bookmark
End Sub
点击下载此附件