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

'打开窗体时,导航到指定的记录
Private Sub Form_Load()
        Dim rs As Recordset
        Set rs = Me.Recordset
        rs.MoveFirst
        rs.FindFirst "职员ID=" & Forms!职员信息表!FM职员表.Form.职员ID
        Set rs = Nothing
End Sub