Vlastnosť AllowBypassKey

Nastavenie

Vlastnosť PovoliťVynechanieKľúča používa tieto nastavenia.

Túto vlastnosť môžete nastaviť pomocou makra alebo kódu Visual Basic for Applications (VBA).

Ak chcete nastaviť vlastnosť PovoliťVynechanieKľúča pomocou makra alebo kódu VBA (Visual Basic for Applications), pomocou nasledujúceho spôsobu musíte túto vlastnosť vytvoriť:

• V databáze Microsoft Accessu (.mdb alebo .accdb) môžete túto vlastnosť pridať pomocou metódy VytvoriťVlastnosť a potom ju pripojiť ku kolekcii Vlastnosti objektu Database.

• V projekt programu Microsoft Access (.adp) môžete túto vlastnosť pridať do kolekcie AccessObjectProperties objektu CurrentProject pomocou metódy Add.

Poznámky

Pri ladení aplikácie by ste sa mali uistiť, že vlastnosť PovoliťVynechanieKľúča je nastavená na hodnotu True.

Nastavenie vlastnosti PovoliťVynechanieKľúča sa prejaví až pri ďalšom otvorení databázovej aplikácie.

Príklad

Nasledovný príklad zobrazuje procedúru nazvanú PovoliťVynechanieKľúča, ktorá odovzdáva názov vlastnosti, ktorá sa má nastaviť, jej typ údajov a nastavenie. Všeobecná procedúra Zmeniť vlastnosť sa pokúša nastaviť vlastnosť PovoliťVynechanieKľúča a keď sa vlastnosť nenájde, použije sa metóda VytvoriťVlasnosť, aby sa vlastnosť pridala do kolekcie Vlastnosti. Je to nevyhnutné, pretože vlastnosť PovoliťVynechanieKľúča sa nezobrazí v kolekcii Vlastnosti, kým sa nepridá.

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