access子窗体数据移动的代码（第一条，上一条，下一条，最后一条）

在access中，我们喜欢用子窗体来显示数据集。系统也自带了记录导航按钮。非常方便。

只需要设置窗体导航按钮属性为“是” 即可

但是自带的导航是固定的。如果想修改一下样式，位置。那么我们就需要自定义导航按钮了。如何自定义呢：

在窗体中添加4个按钮。分别是“第一条”，“上一条”，“下一条”，“最后一条”。这里以图片的形式显示

详细源码：

'第一条记录
Private Sub cmdFirst_Click()
    
    On Error Resume Next
    
    Me.sfmsub.Form.Recordset.MoveFirst
    
End Sub


'上一条记录
Private Sub cmdPrevious_Click()
    On Error Resume Next
    
    With Me.sfmsub.Form.Recordset
        .MovePrevious
        If .BOF Then .MoveNext
    End With
End Sub


'下一条记录
Private Sub cmdNext_Click()
    
    On Error Resume Next
    
    With Me.sfmsub.Form.Recordset
        .MoveNext
        If .EOF Then .MovePrevious
    End With
    

End Sub


'最后一条记录
Private Sub cmdLast_Click()
    
    On Error Resume Next
    
    
    Me.sfmsub.Form.Recordset.MoveLast
    
End Sub

通过点击按钮，自动跳转记录