Ypatybę AllowBypassKey galite naudoti norėdami nurodyti, ar klavišas SHIFT įgalintas norint apeiti paleisties ypatybes ir makrokomandą AutoExec. Pavyzdžiui, galite nustatyt ypatybės AllowBypassKey reikšmę False, kad vartotojas negalėtų apeiti paleisties ypatybių ir makrokomandos AutoExec.
Parametras
Ypatybė AllowBypassKey naudoja toliau pateiktus parametrus.
|
Parametras |
Aprašas |
|
Teisinga |
Įgalina klavišą SHIFT leisti vartotojams apeiti paleisties ypatybes ir makrokomandą AutoExec. |
|
Klaidinga |
Išjungia klavišą SHIFT, kad vartotojas negalėtų apeiti paleisties ypatybių ir makrokomandos AutoExec. |
Š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
