Atribuut AllowBypassKey (Võtme vältimine lubatud)

Atribuudiga AllowBypassKey (Luba_võtme_vältimine) saate määrata, kas tõstuklahv (Shift) on käivitamisatribuutide ja AutoExec-makro vältimisel lubatud. Näiteks saate käivitusatribuutide ja AutoExec-makro vältimise keelamiseks määrata atribuudi AllowBypassKey (Luba_võtme_vältimine) väärtuseks False (Väär).

Seadistus

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

Säte

Kirjeldus

Õige

Käivitusatribuutide ja makro AutoExec vältimine tõstuklahviga (SHIFT) on lubatud.

Vale

Käivitusatribuutide ja makro AutoExec vältimine tõstuklahviga (SHIFT) on keelatud.


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 esitatud protseduur SetBypassProperty (Vältimisatribuudi_seadmine), mis edastab seatava atribuudi nime, selle andmetüübi ja sätte. Üldkasutatavad protseduur ChangeProperty (Atribuudi_muutmine) proovib määrata atribuuti AllowBypassKey (Luba_võtme_vältimine). Kui seda atribuuti ei leita, kasutatakse atribuudi lisamiseks kogumisse Properries (Atribuudid) meetodit CreateProperty (Atribuudi_loomine). See on vajalik , sest atribuuti AllowBypassKey (Luba_võtme_vältimine) ei kuvata kogumis Properties (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
Täiendage Office'i kasutamise oskusi
Tutvuge koolitusmaterjalidega
Kasutage uusi funktsioone enne teisi
Liituge Office Insideri programmiga

Kas sellest teabest oli abi?

Täname tagasiside eest!

Täname tagasiside eest! Tundub, et võiksime teid kokku viia ühega meie Office'i tugiagentidest, kes aitab teil probleemi lahendada.

×