绑定窗体跳转下一条记录的两种方法

方法一：DAO对象中的recordset

On Error Resume Next
Me.Recordset.MoveNext
If Me.Recordset.EOF Then Me.Recordset.MoveFirst

方法二：access对象模型中的DoCmd

DoCmd.GoToRecord acDataForm, Me.Name, acNext

绑定窗体跳转到指定记录的两种方法

方法一：DAO对象中的recordset

Private Sub Command14_Click()
Dim rst As Recordset
Set rst = Me.RecordsetClone
rst.FindFirst "分类名称 like '纸张*' "
If rst.NoMatch Then
            MsgBox "Record not found"
        Else
            Me.Bookmark = rst.Bookmark
        End If
    rst.Close
End Sub

方法二：access对象模型中的DoCmd

DoCmd.GoToControl "分类名称"
DoCmd.FindRecord "纸张*"