Svojstvo AllowBypassKey

Postavka

Svojstvo AllowBypassKey koristi sljedeće postavke.

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