Cómo aplicar o deshabilitar las opciones de inicio en una base de datos de Access

Nota

Office 365 ProPlus pasa a llamarse Microsoft 365 Apps para empresas. Para obtener más información sobre este cambio, lea esta publicación de blog.

Este artículo se aplica únicamente a un proyecto de Microsoft Access (. ADP).

Moderado: requiere habilidades básicas de macros, codificación e interoperabilidad.

Resumen

En este artículo se describe cómo deshabilitar la funcionalidad de la tecla Mayús que permite omitir las opciones de inicio. En este artículo también se describe cómo exigir la aplicación de las opciones de inicio en un proyecto de base de datos de Microsoft Access.

Más información

Las opciones de inicio definidas para un archivo de Access determinan la apariencia del archivo y el modo en que se comporta el archivo cuando se abre el archivo. Puede establecer las opciones de inicio mediante la interfaz de usuario de inicio o mediante la macro AutoExec.

Para omitir las opciones de inicio que se han establecido para el proyecto de base de datos de Access, mantenga presionada la tecla Mayús mientras abre el proyecto de base de datos de Access.

Como alternativa, para exigir las opciones de inicio que se establecen para el proyecto de base de datos de Access, deshabilite la funcionalidad de la tecla Mayús que le permite omitir las opciones de inicio. Para ello, establezca la propiedad PermitirIgnorarInicio en false.

Para establecer la propiedad PermitirIgnorarInicio en false, siga estos pasos.

Pasos para un proyecto de Access (. ADP)

  1. Inicie Access.

  2. Abra un proyecto de base de datos de Access.

  3. Presione ALT + F11 para abrir el editor de Visual Basic.

  4. En el editor de Visual Basic, haga clic en ventana inmediato en el menú Ver .

  5. Escriba el código siguiente o pegue el código siguiente en la ventana ejecución y, a continuación, presione Entrar.

    CurrentProject.Properties.Add "AllowBypassKey", False
    
  6. Cierre el editor de Visual Basic y, a continuación, cierre el proyecto de base de datos de Access.

  7. Abra el proyecto de base de datos de Access. Intente omitir las opciones de inicio que se han establecido para el proyecto de base de datos de Access; para ello, mantenga presionada la tecla Mayús mientras abre el proyecto de base de datos de Access.

    La funcionalidad de la tecla Mayús que permite omitir la opción de inicio está deshabilitada. Aunque mantenga presionada la tecla Mayús para omitir las opciones de inicio, se ejecutan las opciones de inicio. No se pueden omitir las opciones de inicio.

Pasos para una base de datos de Access (. mdb o. accdb)

  1. Inicie Access.

  2. Cree un nuevo módulo y, a continuación, agregue las dos funciones siguientes:

    Function ap_DisableShift()
    'This function disable the shift at startup. This action causes
    'the Autoexec macro and Startup properties to always be executed.
    
    On Error GoTo errDisableShift
    
    Dim db As DAO.Database
    Dim prop as DAO.Property
    Const conPropNotFound = 3270
    
    Set db = CurrentDb()
    
    'This next line disables the shift key on startup.
    db.Properties("AllowByPassKey") = False
    
    'The function is successful.
    Exit Function
    
    errDisableShift:
    'The first part of this error routine creates the "AllowByPassKey
    'property if it does not exist.
    If Err = conPropNotFound Then
    Set prop = db.CreateProperty("AllowByPassKey", _
    dbBoolean, False)
    db.Properties.Append prop
    Resume Next
    Else
    MsgBox "Function 'ap_DisableShift' did not complete successfully."
    Exit Function
    End If
    
    End Function
    
    Function ap_EnableShift()
    'This function enables the SHIFT key at startup. This action causes
    'the Autoexec macro and the Startup properties to be bypassed
    'if the user holds down the SHIFT key when the user opens the database.
    
    On Error GoTo errEnableShift
    
    Dim db as DAO.Database
    Dim prop as DAO.Property
    Const conPropNotFound = 3270
    
    Set db = CurrentDb()
    
    'This next line of code disables the SHIFT key on startup.
    db.Properties("AllowByPassKey") = True
    
    'function successful
    Exit Function
    
    errEnableShift:
    'The first part of this error routine creates the "AllowByPassKey
    'property if it does not exist.
    If Err = conPropNotFound Then
    Set prop = db.CreateProperty("AllowByPassKey", _
    dbBoolean, True)
    db.Properties.Append prop
    Resume Next
    Else
    MsgBox "Function 'ap_DisableShift' did not complete successfully."
    Exit Function
    End If
    
    End Function
    
  3. En el editor de Visual Basic, haga clic en ventana inmediato en el menú Ver .

  4. Si desea deshabilitar la tecla Mayús, escriba ap_DisableShift en la ventana inmediato y, a continuación, presione Entrar. Si desea habilitar la tecla Mayús, escriba ap_EnableShift en la ventana inmediato y, a continuación, presione Entrar.