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 pod nazivom SetBypassProperty koja prosljeđuje naziv svojstva za postavljanje, njegovu vrstu podataka i postavku. Procedura opće namjene ChangeProperty pokušava postaviti svojstvo AllowBypassKey i, ako svojstvo nije pronađeno, koristi metodu CreateProperty da bi svojstvo dodala zbirci Properties . To je nužno jer se svojstvo AllowBypassKey ne prikazuje u zbirci Svojstva dok se ne doda.
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
