Aplicación o deshabilitación de las opciones de inicio en una base de datos de Access

Este artículo solo se aplica a un proyecto de Microsoft Access (.adp).

Moderado: requiere aptitudes básicas 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 definidas para un archivo de Access determinan el aspecto del archivo y el comportamiento del archivo 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 clave MAYÚS que le 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. Iniciar acceso.

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 inmediata en el menú Ver .

5. Escriba el código siguiente o pegue el código siguiente en la ventana Inmediato 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 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 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. Iniciar acceso.

2. Cree un módulo y 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 inmediata en el menú Ver .

4. Si desea deshabilitar la tecla MAYÚS, escriba ap_DisableShift en la ventana Inmediato y presione ENTRAR. Si desea habilitar la tecla de desplazamiento, escriba ap_EnableShift en la ventana Inmediato y presione ENTRAR.