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)

  1. Starta Access.

  2. Öppna ett Access-databasprojekt.

  3. Tryck på ALT + F11 för att Visual Basic redigeringsredigeraren.

  4. I Visual Basic klickar du på Direktfönstermenyn Visa.

  5. Skriv följande kod eller klistra in följande kod i direktfönstret och tryck sedan på RETUR.

    CurrentProject.Properties.Add "AllowBypassKey", False
    
  6. Stäng Visual Basic Editor och stäng sedan Access-databasprojektet.

  7. Ö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)

  1. Starta Access.

  2. 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 Function
    
  3. I Visual Basic klickar du på Direktfönstermenyn Visa.

  4. 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.