Vlastnost PovolitVynecháníKlíče

Nastavení

Vlastnost AllowBypassKey používá následující nastavení.

Tuto vlastnost můžete nastavit pomocí makra nebo kódu jazyka VBA (Visual Basic for Applications).

Pokud chcete pomocí makra nebo kódu jazyka VBA (Visual Basic for Applications) nastavit vlastnost AllowBypassKey, musíte tuto vlastnost vytvořit následujícími způsoby:

• V databázi Microsoft Accessu (.mdb nebo .accdb) můžete tuto vlastnost přidat pomocí metody CreateProperty a potom ji připojíte ke kolekci Properties objektu Database.

• V Projekt aplikace Microsoft Access (.adp) můžete přidat vlastnost do accessObjectProperties kolekce CurrentProjectobjektu pomocí add metoda.

Poznámky

Když budete chtít ladit aplikaci, zajistěte, aby byla vlastnost AllowBypassKey nastavená na True.

Nastavení vlastnosti AllowBypassKey se projeví až při dalším otevření databáze aplikace.

Příklad

Následující příklad ukazuje proceduru s názvem SetBypassProperty, která předává název vlastnosti, která má být nastavena, její datový typ a nastavení. Obecná procedura ChangeProperty se pokusí nastavit vlastnost AllowBypassKey a pokud se vlastnost nenajde, použije metodu CreateProperty k připojení vlastnosti do kolekce Properties . To je nezbytné, protože vlastnost AllowBypassKey se v kolekci Properties nezobrazí, dokud ji nepřidáte.

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