用书签属性实现上一条，下一条记录

时　间:2013-04-05 11:39:06
作　者:殷小宝   ID：11152  城市：芜湖
摘　要:书签属性是标识窗体或记录集当前记录，而不是某字段。利用此属性，可以在记录集与窗体之间互相切换显示。
正　文:

书签属性是标识当前记录的一种方式，可以用于窗体及记录集，二者可以切换，切换的语句是：

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

点击下载此附件