Свойство AllowBypassKey

Свойство 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
Совершенствование навыков
Перейти к обучению
Первоочередный доступ к новым возможностям
Присоединиться к программе предварительной оценки Office

Были ли сведения полезными?

Спасибо за ваш отзыв!

Благодарим за отзыв! Возможно, будет полезно связать вас с одним из наших специалистов службы поддержки Office.

×