Access Pasos Botones de Formularios (Código)

1.- Crear un formulario en Opción Automática, Ligado a una Tabla.
2.- Cambiar a Vista Diseño, desactivar la opción propiedades del formulario  -opción formato, SELECTORES de REGISTRO y BOTONES DE NAVEGACIÓN, Activar (no) e Insertar Los Botones Correspondientes
3.-Crear los Botones Paso a paso
a) Insertar Botón, Cancelar el asistente, propiedades del botón, opción TODAS, poner Nombre cmd_nuevo, Poner Título Nuevo, Opción Eventos, Selleccionar AL HACER CLIC,  procedimiento, ingresar o clikear en los puntos ... y agregar el código correspondiente a cada botón.
b) Se crea una macro en la opción Menú Insertar módulo. más adelante indicare el códigpo para la macro

 CÓDIGO PARA BOTONES

Option Compare Database

Private Sub cmd_Anterior_Click()
Me.Recordset.MovePrevious
    If Me.Recordset.BOF Then
        Me.Recordset.MoveNext
        MsgBox "Ya Estas en el Primer Registro"
    End If
End Sub

Private Sub cmd_Final_Click()
Me.Recordset.MoveLast
End Sub

Private Sub cmd_Guardar_Click()
DoCmd.RunCommand acCmdSaveRecord
    Call HabilitarBotones
    Me.cmd_Guardar.Enabled = False
End Sub

Private Sub cmd_inicio_Click()
Me.Recordset.MoveFirst
End Sub

Private Sub cmd_Nuevo_Click()
DoCmd.GoToRecord , , acNewRec
    Call DeshabilitarBotones
    Me.cmd_Guardar.Enabled = False
    Me.Cod.SetFocus
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"
    End If
End Sub

Private Sub Form_Load()
Me.cmd_Guardar.Enabled = False
End Sub

CÓDIGO PARA MACRO
Option Compare Database

Sub DeshabilitarBotones()
With Form_Agregar_Productos
    .cmd_inicio.Enabled = False
    .cmd_Siguiente.Enabled = False
    .cmd_Anterior.Enabled = False
    .cmd_Final.Enabled = False
    .cmd_Nuevo.Enabled = False
    .cmd_Guardar.Enabled = False
End With
End Sub
Sub HabilitarBotones()
With Form_Agregar_Productos
    .cmd_inicio.Enabled = True
    .cmd_Siguiente.Enabled = True
    .cmd_Anterior.Enabled = True
    .cmd_Final.Enabled = True
    .cmd_Nuevo.Enabled = True
    .cmd_Guardar.Enabled = True
End With
End Sub