Atribuut AllowBypassKey (Võtme vältimine lubatud)

Atribuudiga AllowBypassKey (Võtme vältimine lubatud) saate määrata, kas käivitusatribuutide ja makro AutoExec vältimine tõstuklahviga (SHIFT) on lubatud. Näiteks käivitusatribuutide ja makro AutoExec vältimise keelamiseks saate määrata atribuudi AllowBypassKey (Võtme vältimine lubatud) väärtuseks False (Väär).

Seadistus

Atribuut AllowBypassKey (Võtme vältimine lubatud) kasutab järgmisi sätteid.

Säte

Kirjeldus

True (Tõene)

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

False (Väär)

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


Atribuudi määramiseks saate kasutada ka makro või Visual Basic for Applications (VBA) koodi.

Atribuudi AllowBypassKey (Võtme vältimine lubatud) määramiseks makro või VBA-koodiga tuleb atribuudi loomiseks kasutada ühte moodust järgmistest.

  • andmebaas (.mdb või .accdb) saate atribuudi lisada meetodi CreateProperty abil ja lisandada selle andmebaasiobjekti kogumile Atribuudid.

  • Microsoft Accessi projekt (.adp) saate atribuudi meetodi Add abil lisada objekti CurrentProject kogumisse AccessObjectProperties.

Kommentaarid

Rakenduse silumisel veenduge, et atribuudi AllowBypassKey (Võtme vältimine lubatud) väärtuseks oleks määratud True (Tõene).

Atribuudi AllowBypassKey säte ei jõustu enne andmebaasirakenduse järgmist käivitamist.

Näide

Järgmine näide esitab protseduuri SetBypassProperty (Vältimisatribuudi seadmine), millega edastatakse seatava atribuudi nimi, selle andmetüüp ja säte. Üldotstarbeline protseduur ChangeProperty (Atribuudi muutmine) proovib seada atribuuti AllowBypassKey (Võtme vältimine lubatud). Kui atribuuti ei leita, kasutatakse meetodit CreateProperty (Atribuudi loomine) atribuudi lisamiseks kogumisse Properties (Atribuudid). See on vajalik, sest atribuut AllowBypassKey (Võtme vältimine lubatud) ei ilmu kogumisse Properties (Atribuudid) enne selle lisamist.

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

×