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 je primjeru prikazana procedura naziva SetBypassProperty koja prosljeđuje naziv svojstva koje je potrebno postaviti, vrstu podatka tog svojstva i postavku. Procedura opće namjene ChangeProperty pokušava postaviti svojstvo AllowBypassKey. Ako ne pronađe svojstvo, koristi metodu CreateProperty radi dodavanja svojstva u zbirku Properties. To je nužno jer se svojstvo AllowBypassKey neće prikazati u zbirci Properties dok ga u nju ne dodate.

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
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.

×