Свойство «AllowBypassKey»

Важно :  Данная статья переведена с помощью машинного перевода, см. Отказ от ответственности. Используйте английский вариант этой статьи, который находится здесь, в качестве справочного материала.

С помощью свойства AllowBypassKey можно указать, задействовано ли использование клавиши SHIFT для того, чтобы обходить стартовые параметры и макрос AutoExec. Например, можно задать для свойства AllowBypassKey значение False, чтобы запретить пользователю обходить стартовые параметры и макрос AutoExec.

Настройка

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

Параметр

Описание

True

Разрешает использование клавиши SHIFT для обхода параметров запуска и макроса AutoExec.

False

Запрещает использование клавиши SHIFT для обхода стартовых параметров и макроса AutoExec.


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

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

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

  • В Проект Microsoft Access (ADP) можно добавить это свойство к семейству AccessObjectProperties объекта CurrentProject с помощью метода Add.

Замечания

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

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

Пример

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

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

Примечание : Отказ от ответственности относительно машинного перевода. Данная статья была переведена с помощью компьютерной системы без участия человека. Microsoft предлагает эти машинные переводы, чтобы помочь пользователям, которые не знают английского языка, ознакомиться с материалами о продуктах, услугах и технологиях Microsoft. Поскольку статья была переведена с использованием машинного перевода, она может содержать лексические,синтаксические и грамматические ошибки.

Совершенствование навыков
Перейти к обучению
Первоочередный доступ к новым возможностям
Присоединиться к программе предварительной оценки Office

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

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

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

×