AllowBypassKey-Eigenschaft

Einstellung

Die AllowBypassKey-Eigenschaft verwendet die folgenden Einstellungen.

Sie können diese Eigenschaft mit einem Makro oder mit VBA-Code (Visual Basic for Applications) festlegen.

Wenn Sie die AllowBypassKey-Eigenschaft mit einem Makro oder mit VBA-Code (Visual Basic for Applications) festlegen möchten, müssen Sie die Eigenschaft folgendermaßen erstellen:

• In einer Microsoft Access-Datenbank (MDB oder ACCDB) können Sie die Eigenschaft mithilfe der CreateProperty-Methode hinzufügen und dann der Properties-Auflistung des Database-Objekts anfügen.

• In einem Microsoft Access-Projekt (ADP) können Sie die Eigenschaft mithilfe der Add-Methode der AccessObjectProperties-Auflistung des CurrentProject-Objekts hinzufügen.

Hinweise

Stellen Sie sicher, dass die AllowBypassKey -Eigenschaft auf True festgelegt ist, wenn Sie eine Anwendung debuggen.

Die Einstellung der AllowBypassKey-Eigenschaft wird erst beim nächsten Öffnen der Anwendungsdatenbank wirksam.

Beispiel

Im folgenden Beispiel wird eine Prozedur namens SetBypassProperty gezeigt, die den Namen der festzulegenden Eigenschaft, deren Datentyp und die Einstellung übergibt. Das allgemeine Verfahren ChangeProperty versucht, die AllowBypassKey-Eigenschaft festzulegen, und wenn die Eigenschaft nicht gefunden wird, verwendet es die CreateProperty-Methode, um die Eigenschaft an die Properties-Auflistung anzufügen. Dies ist erforderlich, da die AllowBypassKey-Eigenschaft erst nach dem Hinzufügen in der Properties-Auflistung angezeigt wird.

Sub SetBypassProperty()
Const DB_Boolean As Long = 1
    ChangeProperty "AllowBypassKey", DB_Boolean, False
End Sub
Function ChangeProperty(strPropName As String, _
    varPropType As Variant, _
    varPropValue As Variant) As Integer
    Dim dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270
    Set dbs = CurrentDb
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True
Change_Bye:
    Exit Function
Change_Err:
    If Err = conPropNotFoundError Then ' Property not found.
        Set prp = dbs.CreateProperty(strPropName, _
            varPropType, varPropValue)
        dbs.Properties.Append prp
        Resume Next
    Else
        ' Unknown error.
        ChangeProperty = False
        Resume Change_Bye
    End If
End Function