Lastnost AllowBypassKey

Z lastnostjo AllowBypassKey lahko določite, ali lahko s tipko SHIFT obidete zagonske lastnosti in makro AutoExec. Lastnost AllowBypassKey lahko na primer nastavite na Napačno, tako da preprečite uporabniku, da bi obšel zagonske lastnosti in makro AutoExec.

Nastavitev

Lastnost AllowBypassKey uporablja te nastavitve.

Nastavitev

Opis

True

Omogoči tipko SHIFT in uporabniku dovoli, da obide zagonske lastnosti in makro »AutoExec«.

False

Onemogoči tipko SHIFT in uporabniku prepreči, da bi obšel zagonske lastnosti in makro »AutoExec«.


To lastnost lahko nastavite tako, da uporabite makro ali kodo Visual Basic for Applications (VBA).

Če želite z makrom ali kodo Visual Basic for Applications (VBA) nastaviti lastnost AllowBypassKey, morate ustvariti lastnost z možnostjo, opisano spodaj:

  • V Microsoft Accessovi zbirki podatkov (.mdb ali .accdb) lahko lastnost dodate z metodo CreateProperty in jo nato dodate v zbirko Lastnosti predmeta Zbirka podatkov.

  • V Microsoft Accessov projekt (.adp) lahko lastnost dodate z metodo Add v zbirko AccessObjectProperties predmeta CurrentProject.

Opombe

Zagotovite, da je lastnost AllowBypassKey nastavljena na True, ko iščete napake v aplikaciji.

Nastavitev lastnosti AllowBypassKey ne začne veljati, dokler se naslednjič ne odpre zbirka podatkov aplikacije.

Primer

V spodnjem primeru je prikazan postopek z imenom »SetBypassProperty«, ki obide ime lastnosti, ki jo želite nastaviti, njeno vrsto podatkov in nastavitev. Splošna procedura namena »ChangeProperty« poskuša nastaviti lastnost AllowBypassKey in, če lastnosti ni mogoče najti, uporabi metodo CreateProperty, da doda lastnost zbirki Lastnosti. To je potrebno, saj lastnost AllowBypassKey ni prikazana v zbirki Lastnosti, dokler ni dodana.

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
Razširite svoja znanja
Oglejte si izobraževanje
Prvi dobite nove funkcije
Pridružite se programu Office Insider

Vam je bila informacija v pomoč?

Zahvaljujemo se vam za povratne informacije.

Zahvaljujemo se vam za povratne informacije. Videti je, da bi vam prišla prav pomoč enega od naših Officeovih agentov za podporo.

×