Ypatybė AllowBypassKey

Parametras

Ypatybė AllowBypassKey naudoja toliau pateiktus parametrus.

Šią ypatybę galite nustatyti naudodami makrokomandą arba „Visual Basic for Applications“ (VBA) kodą.

Jei norite nustatyti ypatybę AllowBypassKey naudodami makrokomandą arba „Visual Basic for Applications“ (VBA) kodą, turite sukurti ypatybę tokiu būdu:

• „Microsoft Access“ duomenų bazėje (.mdb arba .accdb) ypatybę galite įtraukti naudodami metodą CreateProperty, tada pridėti ją prie objekto Database rinkinio Properties.

• Programos „Microsoft Access“ projektas (.adp) prie objekto Dabartinis projektas rinkinio „Access“ objekto ypatybės galite pridėti ypatybę, naudodami metodą Įtraukti.

Pastabos

Turėtumėte įsitikinti, kad ypatybė AllowBypassKey nustatyta kaip True, kai derinate programą.

Ypatybės AllowBypassKey parametras pradės veikti, kai kitą kartą bus atidaryta programos duomenų bazė.

Pavyzdys

Šiame pavyzdyje rodoma procedūra, pavadinimu SetBypassProperty, kuri perduoda nustatomos ypatybės pavadinimą, jos duomenų tipą ir parametrą. Bendrosios paskirties procedūra ChangeProperty bando nustatyti ypatybę AllowBypassKey ir, jei neranda šios ypatybės, naudoja metodą CreateProperty, kad pridėtų ypatybę prie rinkinio Properties. Tai būtina, nes ypatybė AllowBypassKey nebus rodoma, rinkinyje Properties, kol nebus pridėta.

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