Svojstvo AllowBypassKey

Važno :  Ovaj je članak strojno preveden. Pogledajteizjavu o odricanju od odgovornosti. Verziju ovog članka na engleskom potražite ovdje.

Svojstvo AllowBypassKey omogućuje tipkom SHIFT zaobilaženje svojstava za pokretanje i makronaredbe AutoExec. Na primjer, postavite li svojstvo AllowBypassKey na False onemogućit će te korisniku zaobilaženje svojstava za pokretanje i makronaredbe AutoExec.

Postavka

Postavke svojstva AllowBypassKey.

Postavka

Opis

True

Korisniku omogućuje zaobilaženje svojstava za pokretanje i makronaredbe AutoExec pomoću tipke SHIFT.

False

Onemogućuje korisniku zaobilaženje svojstava za pokretanje i makronaredbe AutoExec korištenjem tipke SHIFT


Ovo svojstvo možete postaviti pomoću makronaredba ili Visual Basic for Applications (VBA) kod.

Za postavljanje svojstva AllowBypassKey korištenjem makronaredbe ili koda Visual Basic for Applications (VBA), najprije treba stvoriti svojstvo na sljedeći način:

  • U bazi podataka Microsoft Access (.mdb ili .accdb), svojstvo možete dodati metodom CreateProperty nakon čega , a zatim je dodavanje pridodati zbirci Svojstva objekta baze podataka .

  • U projekt programa Microsoft Access (.adp), svojstvo se može dodati kolekciji AccessObjectProperties objekta CurrentProject korištenjem metode Add.

Napomene

Provjerite je li svojstvosKeyAllowBypaspostavljen na True prilikom traženja pogreške u aplikaciji.

Postavke svojstva AllowBypassKey nemaju učinka do sljedećeg otvaranja aplikacije baze podataka.

Primjer

Sljedeći primjer pokazuje proceduru naziva SetBypassProperty koji prosljeđuje naziv svojstva za postavljanje, vrstu podataka te postavku. Procedura opće namjene ChangeProperty pokušava svojstvo AllowBypassKey postavili i, ako ne pronađete svojstvo, koristi metodom CreateProperty nakon čega da biste dodali svojstvo odgovarajućezbirketies . To je nužno jer je svojstvo AllowBypassKey ne prikazuje se u zbirci Svojstva dok je 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

Napomena : Izjava o odricanju od odgovornosti za strojni prijevod: ovaj je članak preveo računalni sustav bez ljudske intervencije. Microsoft nudi strojne prijevode da bi korisnicima koji ne razumiju engleski omogućio čitanje sadržaja o Microsoftovim proizvodima, uslugama i tehnologijama. Budući da je preveden strojno, članak možda sadrži pogreške u vokabularu, sintaksi ili gramatici.

Proširite svoje vještine
Istražite osposobljavanje

Jesu li vam ove informacije bile korisne?

Hvala vam na povratnim informacijama!

Hvala vam na povratnim informacijama! Čini se da bi vam pomoglo kad bismo vas povezali s nekim od naših agenata podrške za Office.

×