Använda eller inaktivera startalternativ i en Access-databas
Anteckning
Office 365 ProPlus byter namn till Microsoft 365-appar för företag. Mer information om den här ändringen finns i det här blogginlägget.
Den här artikeln gäller endast för Microsoft Access-projekt (.adp).
Måttlig: Kräver grundläggande makron, kodning och kompatibilitetsfärdigheter.
Sammanfattning
I den här artikeln beskrivs hur du inaktiverar funktionen för SKIFT-tangenten som gör att du kan kringgå startalternativen. I den här artikeln beskrivs också hur du framtvingar startalternativen i ett Microsoft Access-databasprojekt.
Mer information
Startalternativen som har definierats för en Access-fil avgör hur filen ser ut och hur den fungerar när du öppnar filen. Du kan ange startalternativ i gränssnittet för startanvändaren eller med hjälp av AutoExec-makrot.
Om du vill åsidosätta startalternativen för Access-databasprojektet håller du ned Skift-tangenten medan du öppnar Access-databasprojektet.
Om du vill tillämpa startalternativen som angetts för Access-databasprojektet inaktiverar du funktionen för SKIFT-tangenten som gör att du kan åsidosätta startalternativen. Det gör du genom att sätta egenskapen AllowBypassKey till False.
Följ de här stegen om du vill sätta egenskapen AllowBypassKey till False.
Steg för ett Access-projekt (.adp)
Starta Access.
Öppna ett Access-databasprojekt.
Tryck på ALT + F11 för att Visual Basic redigeringsredigeraren.
I Visual Basic klickar du på Direktfönster på menyn Visa.
Skriv följande kod eller klistra in följande kod i direktfönstret och tryck sedan på RETUR.
CurrentProject.Properties.Add "AllowBypassKey", FalseStäng Visual Basic Editor och stäng sedan Access-databasprojektet.
Öppna Access-databasprojektet. Försök att åsidosätta startalternativen för Access-databasprojektet genom att hålla ned Skift medan du öppnar Access-databasprojektet.
Funktionen för SKIFT-tangenten som tillåter att du kringgår startalternativet inaktiveras. Även om du håller ned SKIFT-tangenten för att åsidosätta startalternativen körs startalternativen. Du kan inte åsidosätta startalternativen.
Steg för en Access-databas (.mdb eller .accdb)
Starta Access.
Skapa en ny modul och lägg sedan till följande två funktioner:
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 FunctionI Visual Basic klickar du på Direktfönster på menyn Visa.
Om du vill inaktivera SKIFT-tangenten skriver ap_DisableShift direktfönstret och trycker sedan på RETUR. Om du vill aktivera skifttangenten skriver ap_EnableShift direktfönstret och trycker sedan på RETUR.