Rekvizīts AllowBypassKey

Iestatījums

Rekvizīts AllowBypassKey izmanto tālāk norādītos iestatījumus.

Varat iestatīt šo rekvizītu, izmantojot makro vai Visual Basic for Applications (VBA) kodu.

Lai rekvizītu AllowBypassKey iestatītu, izmantojot makro vai Visual Basic for Applications (VBA) kodu, šis rekvizīts jāizveido, rīkojoties šādi:

• Microsoft Access datu bāzē (.mdb vai .accdb) jūs varat pievienot rekvizītu, izmantojot metodi CreateProperty un pēc tam pievienojot to objekta Database kolekcijai Properties.

• Microsoft Access projekts (.adp) jūs varat pievienot rekvizītu objekta CurrentProject kolekcijai AccessObjectProperties, izmantojot metodi Add.

Piezīmes

Pārliecinieties, vai rekvizīts AllowBypassKey ir iestatīts uz True, kad atkļūdojat lietojumprogrammu.

Rekvizīta AllowBypassKey iestatījums nav spēkā līdz nākamajai lietojumprogrammas datu bāzes atvēršanas reizei.

Piemērs

Tālāk esošajā piemērā ir parādīta procedūra ar nosaukumu SetBypassProperty, kas apiet iestatāmā rekvizīta nosaukumu, tā datu tipu un iestatījumu. Vispārēja mērķa procedūra ChangeProperty mēģina iestatīt rekvizītu AllowBypassKey un, ja rekvizīts netiek atrasts, izmanto metodi CreateProperty, lai rekvizītu pievienotu kolekcijai Properties. Tas ir nepieciešams, jo rekvizīts AllowBypassKey netiek rādīts kolekcijā Properties, līdz tas ir pievienots.

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