Access - Herramientas/Opciones/Teclado

Sub CambiarComportamientoEnter()

    Dim objAccess As Access.Application

    Set objAccess = Application

    ' Abre la ventana de opciones

    objAccess.DoCmd.RunCommand acCmdOptions

    ' Espera hasta que la ventana de opciones esté abierta

    Do While objAccess.SysCmd(acSysCmdGetObjectState, acForm, "Opciones") <> acObjStateOpen

        DoEvents

    Loop

    ' Navega hasta la sección de Comportamiento de la tecla Enter

    objAccess.RunCommand acCmdOptionsKeyboard

    ' Espera hasta que la ventana de Comportamiento de la tecla Enter esté abierta

    Do While objAccess.SysCmd(acSysCmdGetObjectState, acForm, "Comportamiento de la tecla Enter") <> acObjStateOpen

        DoEvents

    Loop

    ' Establece la configuración deseada para la tecla Enter

    With objAccess.Screen.ActiveForm

        .Controls("UseDefault").Value = False

        .Controls("OptionValue").Value = 1 ' Cambia esto al valor deseado (0 para pasar al siguiente control, 1 para ejecutar la acción predeterminada)

    End With

    ' Cierra la ventana de Comportamiento de la tecla Enter

    objAccess.RunCommand acCmdClose

    ' Cierra la ventana de opciones

    objAccess.RunCommand acCmdClose

    ' Liberar objeto

    Set objAccess = Nothing

End Sub