Свойство AllowBypassKey

Значения

Свойство AllowBypassKey может принимать следующие значения:

Это свойство можно задать с помощью макроса или Visual Basic для приложений (VBA).

Чтобы задать значение свойства AllowBypassKey с помощью макроса или кода VBA, необходимо создать свойство, как описано ниже.

• В базе данных Microsoft Access (MDB или ACCDB) можно добавить это свойство с помощью метода CreateProperty и включить его в коллекцию Properties (Properties) объекта Database (База данных).

• В Проект Microsoft Access (ADP) это свойство можно добавить к коллекции Свойства объекта Access объекта Текущий проект с помощью метода Добавить.

Замечания

При отладке приложения необходимо убедиться, что свойство AllowBypassKey имеет значение True.

Изменение значения свойства AllowBypassKey вступает в силу только при следующем открытии базы данных приложения.

Пример

В следующем примере показана процедура SetBypassProperty, которая передает имя задаваемого свойства, его тип данных и значение. Общая процедура ChangeProperty пытается задать значение свойства AllowBypassKey и, если это свойство не найдено, использует метод CreateProperty для его добавления в коллекцию Properties. Это необходимо, поскольку свойство AllowBypassKey не отображается в коллекции Properties, пока не будет добавлено.

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