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
