Właściwość AllowBypassKey

Ustawienie

Właściwość AllowBypassKey może przybierać następujące wartości ustawień.

Tę właściwość można ustawić, wykorzystując makro lub kod języka Visual Basic for Applications (VBA).

Aby ustawić właściwość AllowBypassKey za pomocą makra lub kodu języka Visual Basic for Applications (VBA), trzeba utworzyć właściwość w następujący sposób:

• W bazie danych programu Microsoft Access (mdb lub accdb) można ją dodać przy użyciu metody CreateProperty, a następnie dołączyć do kolekcji Properties obiektu Database.

• W projekt programu Microsoft Access (adp) można ją dodać do kolekcji AccessObjectProperties obiektu CurrentProject przy użyciu metody Add.

Spostrzeżenia

Upewnij się, że dla właściwości AllowBypassKey ustawiono wartość TRUE w przypadku debugowania aplikacji.

Ustawienie właściwości AllowBypassKey jest uwzględniane dopiero przy następnym otwarciu aplikacji bazy danych.

Przykład

W poniższym przykładzie pokazano procedurę o nazwie SetBypassProperty przekazującą nazwę właściwości do ustawienia, jej typ danych oraz ustawienie. Procedura ogólna ChangeProperty próbuje ustawić właściwość AllowBypassKey oraz, jeśli nie można odnaleźć właściwości, za pomocą metody CreateProperty dołącza właściwość do kolekcji Properties. Jest to konieczne, ponieważ właściwość AllowBypassKey nie jest wyświetlana w kolekcji Properties do momentu jej dodania.

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