ACCESS 中的导航按钮,在VBA下的实现

 '在表单中添加新记录
    DoCmd.RunCommand acCmdRecordsGoToNew
' 导航到上一条记录
    DoCmd.RunCommand acCmdRecordsPrevious
' 导航到下一条记录
    DoCmd.RunCommand acCmdRecordsNext
' 删除当前记录并保存更改
    If Not Me.NewRecord Then
        If MsgBox("确定要删除当前记录吗？", vbQuestion + vbYesNo) = vbYes Then
            DoCmd.RunCommand acCmdDeleteRecord
            DoCmd.RunCommand acCmdSaveRecord
        End If
    End If
' 取消当前记录的更改
    If Me.Dirty Then
        If MsgBox("确定要取消当前记录的更改吗？", vbQuestion + vbYesNo) = vbYes Then
            DoCmd.RunCommand acCmdUndo
        End If
    End If
' 保存当前记录的更改
    If Me.Dirty Then
        DoCmd.RunCommand acCmdSaveRecord
    End If