Свойство AllowBypassKey определяет, можно ли использовать клавишу SHIFT для обхода свойств автозапуска и макроса AutoExec. Например, можно задать для свойства AllowBypassKey значение False, чтобы запретить пользователю обходить свойства автозапуска и макрос AutoExec.
Значения
Свойство AllowBypassKey может принимать следующие значения:
|
Значение |
Описание |
|
True |
Разрешает использование клавиши SHIFT для обхода параметров запуска и макроса AutoExec. |
|
False |
Запрещает использование клавиши SHIFT для обхода параметров запуска и макроса AutoExec. |
Это свойство можно задать с помощью макроса или 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
