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 kujutatud toiming nimega SetBypassProperty, mis läbib määratava atribuudi nime, selle andmetüübi ja sätted. Üldotstarbeline menetlus ChangeProperty proovib AllowBypassKey atribuuti määrata ja kui atribuuti ei leita, kasutatakse atribuuti CreateProperty , et lisada atribuut õigetesuhete kollektsiooni. See on vajalik sellepärast, et atribuuti AllowBypassKey ei kuvatakse atribuutide kogumis, kuni 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

Kas vajate veel abi?

Täiendage oma oskusi
Tutvuge koolitusmaterjalidega

Kas sellest teabest oli abi?

Kui rahul te keelekvaliteediga olete?
Mis mõjutas teie hinnangut?

Täname tagasiside eest!

×