Come applicare o disabilitare le opzioni di avvio in un database di Access

Questo articolo si applica solo a un progetto di Microsoft Access (con estensione adp).

Moderato: richiede competenze di base di macro, codifica e interoperabilità.

Riepilogo

Questo articolo descrive come disabilitare la funzionalità del tasto MAIUSC che consente di ignorare le opzioni di avvio. Questo articolo descrive anche come applicare le opzioni di avvio in un progetto di database di Microsoft Access.

Ulteriori informazioni

Le opzioni di avvio definite per un file di Access determinano l'aspetto del file e il comportamento del file quando si apre il file. È possibile impostare le opzioni di avvio usando l'interfaccia utente di avvio o la macro AutoExec.

Per ignorare le opzioni di avvio impostate per il progetto di database di Access, tenere premuto MAIUSC mentre si apre il progetto di database di Access.

In alternativa, per applicare le opzioni di avvio impostate per il progetto di database di Access, disabilitare la funzionalità del tasto MAIUSC che consente di ignorare le opzioni di avvio. A tale scopo, impostare la proprietà AllowBypassKey su False.

Per impostare la proprietà AllowBypassKey su False, seguire questa procedura.

Passaggi per un progetto di Access (con estensione adp)

1. Avviare Access.

2. Aprire un progetto di database di Access.

3. Premere ALT + F11 per aprire l'editor di Visual Basic.

4. Nell'editor di Visual Basic fare clic su Finestra immediata dal menu Visualizza .

5. Digitare il codice seguente o incollare il codice seguente nella finestra Immediata e quindi premere INVIO.

   CurrentProject.Properties.Add "AllowBypassKey", False
   

6. Chiudere la Editor di Visual Basic e quindi chiudere il progetto di database di Access.

7. Aprire il progetto di database di Access. Provare a ignorare le opzioni di avvio impostate per il progetto di database di Access tenendo premuto MAIUSC mentre si apre il progetto di database di Access.

   La funzionalità del tasto MAIUSC che consente di ignorare l'opzione di avvio è disabilitata. Anche se si tiene premuto MAIUSC per ignorare le opzioni di avvio, vengono eseguite le opzioni di avvio. Non è possibile ignorare le opzioni di avvio.

Passaggi per un database di Access (.mdb o accdb)

1. Avviare Access.

2. Creare un nuovo modulo e quindi aggiungere le due funzioni seguenti:

   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. Nell'editor di Visual Basic fare clic su Finestra immediata dal menu Visualizza .

4. Se si vuole disabilitare il tasto MAIUSC, digitare ap_DisableShift nella finestra Immediata e quindi premere INVIO. Se si vuole abilitare il tasto MAIUSC, digitare ap_EnableShift nella finestra Immediata e quindi premere INVIO.