Svojstvo AllowBypassKey

Svojstvo AllowBypassKey omogućuje vam da odredite hoće li se tipka SHIFT moći koristiti za zaobilaženje svojstava pokretanja i makronaredbe AutoExec. Da biste, primjerice, korisniku onemogućili zaobilaženje svojstava pokretanja i makronaredbe AutoExec, svojstvo AllowBypassKey postavite na False.

Postavka

Svojstvo AllowBypassKey koristi sljedeće postavke.

Postavka

Opis

True

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

False

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


To svojstvo možete postaviti pomoću makronaredbe ili koda programa Visual Basic for Applications (VBA).

Da biste svojstvo AllowBypassKey postavili pomoću makronaredbe ili koda programa Visual Basic for Applications (VBA), morate ga stvoriti na sljedeći način:

  • U bazi podataka programa Microsoft Access (.mdb ili .accdb) svojstvo dodajte pomoću metode CreateProperty pa ga pridodajte zbirci Properties objekta Database.

  • U projekt programa Microsoft Access (.adp) svojstvo se može dodati u zbirku AccessObjectProperties objekta CurrentProject pomoću metode Add.

Napomene

Prilikom ispravljanja pogrešaka u aplikaciji provjerite je li svojstvo AllowBypassKey postavljeno na True.

Postavka svojstva AllowBypassKey stupit će na snagu prilikom sljedećeg otvaranja baze podataka aplikacije.

Primjer

U sljedećem se primjeru prikazuje procedura koja se zove SetBypassProperty koja prelazi naziv svojstva koje treba postaviti, vrstu podataka i postavku. Promjena svojstava postupka za opću namjenu nastoji postaviti svojstvo AllowBypassKey i, ako svojstvo nije pronađeno, koristi metodu CreateProperty za dodavanje svojstva na odgovarajućuzbirkuveza . To je neophodno jer se svojstvo AllowBypassKey ne prikazuje u zbirci svojstava dok ne bude 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

Potrebna vam je dodatna pomoć?

Proširite svoje vještine korištenja sustava Office
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.

×