Vlastnosť AllowBypassKey

Vlastnosť PovoliťVynechanieKľúča môžete použiť na špecifikovanie toho, či je kláves SHIFT povolený na vynechanie vlastností spúšťania a makro AutoExec. Napríklad vlastnosť PovoliťVynechanieKľúča môžno nastaviť na hodnotu False, a tým zabrániť používateľovi vynechať vlastnosti spúšťania a makro AutoExec.

Nastavenie

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

Nastavenie	Popis
True.	Povolenie používania klávesu SHIFT na vynechanie vlastností pri spustení a makra AutoExec.
False.	Zakázanie používania klávesu SHIFT na vynechanie vlastností pri spustení a makra AutoExec.

      

Túto vlastnosť môžete nastaviť pomocou makra alebo kódu jazyka 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 projekte Microsoft Accessu (.adp) môžete pridať vlastnosť do kolekcie AccessObjectProperties objektu CurrentProject pomocou metódy Pridať .

Poznámky:

Pri ladení aplikácie by ste mali skontrolovať, či je vlastnosť AllowBypassKey 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 ChangeProperty sa pokúsi nastaviť vlastnosť AllowBypassKey a ak sa vlastnosť nenájde, použije metódu CreateProperty na pripojenie vlastnosti do kolekcie vlastností . 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