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 solo se aplica a un proyecto de Microsoft Access (.adp).

Moderado: requiere conocimientos básicos de macro, 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 aplicar las opciones de inicio en un proyecto de base de datos de Microsoft Access.

Más información

Las opciones de inicio que se definen para un archivo de Access determinan cómo se ve el archivo y cómo se comporta al abrir 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 establecidas 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 aplicar las opciones de inicio establecidas para el proyecto de base de datos de Access, deshabilite la funcionalidad de la tecla MAYÚS que permite omitir las opciones de inicio. Para ello, establezca la propiedad AllowBypassKey en False.

Para establecer la propiedad AllowBypassKey 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 Visual Basic editor.

  4. En el editor Visual Basic, haga clic en Ventana inmediata en el menú Ver.

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

    CurrentProject.Properties.Add "AllowBypassKey", False
    
  6. Cierre el editor 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 establecidas para el proyecto de base de datos de Access manteniendo 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 mantiene presionada la tecla MAYÚS para omitir las opciones de inicio, se ejecutan las opciones de inicio. No puede 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 Visual Basic, haga clic en Ventana inmediata 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.