VBA - Instrucciones de comandos.

Private Sub cmd_Nuevo_Click()
DoCmd.GoToRecord , , acNewRec
    Me.cmd_guardar.Enabled = False
End Sub

Private Sub cmd_Cerrar_Click()
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "Nombre Formulario"
End Sub

Private Sub cmd_Anterior_Click()
Me.Recordset.MovePrevious
    If Me.Recordset.BOF Then
        Me.Recordset.MoveNext
        MsgBox "Ya estás en el primer registro.", vbInformation + vbOKOnly, "AVISO"
    End If
End Sub

Private Sub cmd_Siguiente_Click()
Me.Recordset.MoveNext
    If Me.Recordset.EOF Then
        Me.Recordset.MovePrevious
        MsgBox "Ya estas en el último Registro", vbInformation + vbOKOnly, "AVISO"
    End If
End Sub

Private Sub cmd_Guardar_Click()
DoCmd.RunCommand acCmdSaveRecord
    Me.cmd_guardar.Enabled = False
End Sub

Private Sub cmd_Eliminar_Click()
Dim resp As Integer
resp = MsgBox("¿Estas seguro de querer eliminar el registro?.", vbYesNo + vbInformation, "Confirmar")
If resp = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
End If
DoCmd.GoToRecord , , acLast
End Sub

Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acLast
End Sub

Private Sub Imprimir_Click()
DoCmd.OpenReport "Nombre Informe", acPreview, , "[id]=" & Me.Id.Value
End Sub