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

Nota

Office 365 ProPlus viene rinominato in Microsoft 365 Apps for enterprise. Per ulteriori informazioni su questa modifica, leggere questo post di blog.

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

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

Riepilogo

In questo articolo viene descritto come disabilitare la funzionalità del tasto MAIUSC che consente di ignorare le opzioni di avvio. In questo articolo viene inoltre descritto come applicare le opzioni di avvio in un progetto di database di Microsoft Access.

Altre informazioni

Le opzioni di avvio definite per un file di Access determinano l'aspetto e il comportamento del file all'apertura del file. È possibile impostare le opzioni di avvio utilizzando 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, eseguire la procedura seguente.

Passaggi per un progetto di Access (adp)

  1. Avviare Access.

  2. Aprire un progetto di database di Access.

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

  4. Nell'editor Visual Basic, scegliere 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 l Visual Basic Editor e quindi 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, le opzioni di avvio vengono eseguite. Non è possibile ignorare le opzioni di avvio.

Passaggi per un database di Access (con estensione 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 Visual Basic, scegliere Finestra Immediata dal menu Visualizza.

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