Ypatybė AllowBypassKey

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
Tobulinkite savo įgūdžius
Ieškoti mokymo
Pirmiausia gaukite naujų funkcijų
Prisijunkite prie „Office Insider“ dalyvių

Ar ši informacija buvo naudinga?

Dėkojame už jūsų atsiliepimus!

Dėkojame už jūsų atsiliepimą! Panašu, kad gali būti naudinga jus sujungti su vienu iš mūsų „Office“ palaikymo agentų.

×