Možete da koristite svojstvo AllowBypassKey da biste odredili da li je taster SHIFT omogućen za zaobilaženje svojstava pokretanja i makroa AutoExec. Na primer, možete da podesite svojstvo AllowBypassKey na False da biste sprečili korisnika da zaobiđe svojstva pokretanja i makro AutoExec.
Postavka
Svojstvo AllowBypassKey koristi sledeće postavke.
|
Postavka |
Opis |
|
Tačno |
Omogućavanje tastera SHIFT da bi se korisniku dozvolilo da zaobiđe svojstva za pokretanje i makro AutoExec. |
|
Netačno |
Onemogućavanje tastera SHIFT da bi se korisnik sprečio u zaobilaženju svojstava za pokretanje i makroa AutoExec. |
Ovo svojstvo možete da podesite pomoću makro ili Visual Basic for Applications (VBA) koda.
Da biste svojstvo AllowBypassKey postavili pomoću makroa ili Visual Basic for Applications (VBA) koda, svojstvo morate kreirati na sledeći način:
-
U Microsoft Access bazi podataka (.mdb ili.accdb) možete da dodate svojstvo koristeći metod CreateProperty i da ga zatim uvrstite u kolekciju Svojstva objekta Baza podataka.
-
U Microsoft Access projekat (.adp), svojstvo možete da dodate kolekciji AccessObjectProperties objekta CurrentProject pomoću metoda Dodavanje.
Napomene
Trebalo bi da proverite da li je svojstvo AllowBypassKey postavljen na True kada otklanjate greške aplikacije.
Postavka svojstva AllowBypassKey neće stupiti na snagu do sledećeg otvaranja baze podataka aplikacije.
Primer
Sledeći primer pokazuje proceduru po imenu SetBypassProperty koja prosleđuje ime svojstva koje treba podesiti, njegov tip podataka i postavku. Opšta procedura ChangeProperty pokušava da postavi svojstvo AllowBypassKey i ukoliko ne pronađe svojstvo, koristi metod CreateProperty za dodavanje svojstva u kolekciju Svojstva. Ovo je neophodno jer se svojstvo AllowBypassKey ne pojavljuje u kolekciji Properties 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
