Atribuut AllowBypassKey (Võtme vältimine lubatud)

Seadistus

Atribuut AllowBypassKey (Luba_võtme_vältimine) kasutab järgmisi sätteid.

Selle atribuudi saate määrata kasutades makrot või Visual Basic for Applications (VBA) koodi.

Atribuudi AllowBypassKey (Luba_võtme_vältimine) seadmiseks makro või VBA-koodi abil peate atribuudi looma järgmiselt.

• Microsoft Accessi andmebaasis (.mdb või .accdb) saate lisada atribuudi meetodi CreateProperty (Loo_atribuut) abil ja lisandada selle objekti Andmebaas kogumile Atribuudid.

• Microsoft Accessi projekt (.adp) saate lisada atribuudi meetodi Add (Lisa) abil objekti CurrentProject (Praegune_projekt) kogumisse AccessObjectProperties (Accessi_objektide_atribuudid).

Kommentaarid

Veenduge, et atribuut AllowBypassKey oleks rakenduse silumisel määratud väärtuseks True (Tõene).

Atribuudi AllowBypassKey (Luba_võtme_vältimine) säte ei jõustu enne andmebaasirakenduse järgmist käivitamist.

Näide

Järgmises näites on kirjeldatud protseduuri Nimega SetBypassProperty, mis edastab seatava atribuudi nime, andmetüübi ja sätte. Üldotstarbeline protseduur ChangeProperty proovib seada atribuudi AllowBypassKey ja kui atribuuti ei leita, lisab atribuudi meetodi CreateProperty abil kogumisse Proper ties ( Õigedsidemed ). See on vajalik, kuna atribuuti AllowBypassKey ei kuvata kogumis Atribuudid enne, kui see on lisatud.

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