Ypatybė Leisti apėjimo klavišą (AllowBypassKey)

Svarbu :  Šis straipsnis išverstas naudojant mašininį vertimą, žr. atsakomybės atsisakymą. Su šio straipsnio versija anglų kalba galite susipažinti čia .

Ypatybę Leisti apėjimo klavišą (AllowBypassKey) galite naudoti, jei norite nurodyti, ar klavišas SHIFT įgalintas apeiti paleisties ypatybes ir makrokomandą AutoExec. Pavyzdžiui, galite nustatyti ypatybę Leisti apėjimo klavišą (AllowBypassKey) kaip Klaidinga (False), jei nenorite, kad vartotojas apeitų paleisties ypatybes ir makrokomandą AutoExec.

Parametras

Ypatybė Leisti apėjimo klavišą (AllowBypassKey) naudoja šiuos 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 " makrokomanda arba" Visual Basic for Applications (VBA) kodas.

Jei norite nustatyti ypatybę Leisti apėjimo klavišą (AllowBypassKey) naudodami makrokomandą arba Visual Basic for Applications (VBA) kodą, pirmiausia turite sukurti ypatybę šiais būdais:

  • Microsoft Access duomenų bazės (.mdb arba .accdb) ypatybę galite įtraukti naudodami metodą Ypatybės kūrimas , o tada pridėti ją prie objekto duomenų bazė rinkinio Ypatybės .

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

Pastabos

Turite įsitikinti, kad AllowBypassKey ypatybė nustatyta kaip TRUE (teisinga) , derinti programą.

Ypatybės Leisti apėjimo klavišą (AllowBypassKey) parametras nepradės veikti, kol kitą kartą atsidarys programos duomenų bazė.

Pavyzdys

Toliau pateiktame pavyzdyje rodoma procedūra, pavadinimu SetBypassProperty, kad eina ypatybę, kuri turi būti nustatyta ir jo duomenų tipą, parametro pavadinimas. Bendrosios paskirties procedūrą ChangeProperty bando nustatyti ypatybė Leisti apėjimo raktą ir, jei nėra ypatybę, naudoja metodą Ypatybės kūrimas Norėdami papildyti tinkamąvienodų reikšmių rinkinio ypatybės. Tai yra būtina, nes ypatybė Leisti apėjimo raktą nerodomas rinkinio Ypatybės , kol ji buvo įtraukta.

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

Pastaba : Mašininio vertimo atsakomybės atsisakymas: Šis straipsnis išverstas naudojant kompiuterinę sistemą be žmogaus įsikišimo. „Microsoft“ pateikia šiuos mašininius vertimus norėdama padėti anglų kalbos nesuprantantiems vartotojams perskaityti turinį apie „Microsoft“ produktus, paslaugas ir technologijas. Šis straipsnis išverstas mašininio vertimo būdu, todėl jame gali būti žodyno, sintaksės ar gramatikos klaidų.

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ų.

×