Lastnost AllowBypassKey

Pomembno : Besedilo članka je prevedeno strojno. Glejte zavrnitev odgovornosti. Angleško različico tega članka najdete tukaj .

Z lastnostjo AllowBypassKey lahko navedete, ali želite omogočiti tipko SHIFT za obhod zagonskih lastnosti in makra AutoExec. Lastnost AllowBypassKey lahko na primer nastavite na False, če želite preprečiti, da bi uporabnik obšel zagonske lastnosti in makro SamodejnoIzvajanje.

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, če želite uporabniku preprečiti, da bi obšel zagonske lastnosti in makro SamodejnoIzvajanje.


S programom makro ali Visual Basic for Applications (VBA) kodo, lahko nastavite te lastnosti.

Če želite nastaviti lastnost AllowBypassKey z makrom ali kodo VBA (Visual Basic for Applications), ustvarite lastnost na ta načina:

  • Microsoft Accessove zbirke podatkov (.mdb ali .accdb) lahko lastnost dodate z metodo CreateProperty in jo nato dodate v zbirko Properties predmeta Database .

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

Opombe

Prepričajte se, AllowBypassKey lastnost nastavljena na True , ko vas program za iskanje napak.

Nastavitev lastnosti AllowBypassKey začne veljati, ko naslednjič odprete zbirko podatkov programa.

Primer

Naslednji primer prikazuje postopek, imenovan SetBypassProperty, ki posreduje ime lastnosti želite nastaviti, njegov podatkovni tip in nastavitev. Splošna procedura »ChangeProperty «poskusi nastaviti lastnost AllowBypassKey in, če je lastnost ni mogoče najti, uporabi metodo CreateProperty dodate lastnost pravilnovezi zbirke. To je potrebno, ker je lastnost AllowBypassKey , se ne prikaže v zbirko Properties , dokler je bil dodan.

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

Opomba : Strojni prevod – zavrnitev odgovornosti: Ta članek je bil preveden z računalniškim programom brez človeškega posredovanja. Microsoft skuša s strojno prevedenimi članki vsebino o Microsoftovih izdelkih, storitvah in tehnologijah približati osebam, ki ne razumejo angleščine. Ker je bil članek strojno preveden, so lahko v njem jezikovne, slovnične in pravopisne napake.

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.

×