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)
Avviare Access.
Aprire un progetto di database di Access.
Premere ALT + F11 per aprire l'editor di Visual Basic.
Nell'editor di Visual Basic fare clic su Finestra immediata dal menu Visualizza .
Digitare il codice seguente o incollare il codice seguente nella finestra Immediata e quindi premere INVIO.
CurrentProject.Properties.Add "AllowBypassKey", False
Chiudere la Editor di Visual Basic e quindi chiudere il progetto di database di Access.
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)
Avviare Access.
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
Nell'editor di Visual Basic fare clic su Finestra immediata dal menu Visualizza .
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.
Commenti e suggerimenti
https://aka.ms/ContentUserFeedback.
Presto disponibile: Nel corso del 2024 verranno gradualmente disattivati i problemi di GitHub come meccanismo di feedback per il contenuto e ciò verrà sostituito con un nuovo sistema di feedback. Per altre informazioni, vedereInvia e visualizza il feedback per