Властивість «Клавіша обходу (AllowBypassKey)»

Увага! : Цю статтю перекладено за допомогою служби машинного перекладу; див. застереження. Версію цієї статті англійською мовою див. тут для отримання довідки.

Можна використовувати властивість Клавіша обходу (AllowBypassKey), щоб визначити, чи клавіша SHIFT дозволяє обходити параметри запуску і макрос AutoExec. Наприклад, для властивості Клавіша обходу (AllowBypassKey) можна вибрати значення Хибність, щоб заборонити користувачу обходити параметри запуску і макрос AutoExec.

Значення

Властивість Клавіша обходу (AllowBypassKey) може мати такі значення:

Параметр

Опис

Істина

Активує обхід параметрів запуску та макросу AutoExec за допомогою клавіші Shift.

Хибність

Клавіша SHIFT не дозволяє користувачам обходити параметри запуску і макрос AutoExec.


Цю властивість можна встановити за допомогою макрос або Visual Basic для застосунків (VBA) з кодом.

Щоб встановити властивість Клавіша обходу (AllowBypassKey) за допомогою макросу або коду Visual Basic для застосунків (VBA), потрібно створити властивість одним із таких способів:

  • До бази даних Microsoft Access (MDB або accdb) можна додати властивість за допомогою методу CreateProperty й його до колекції Властивості об'єкта база даних .

  • У проект Microsoft Access (.adp) можна додати властивість до колекції Властивості об’єктів Access (AccessObjectProperties) об’єкта Поточний проект (CurrentProject) за допомогою методу Додати.

Зауваження

Переконайтеся, що AllowBypassKey властивість встановлено значення TRUE , під час налагодження програми.

Значення властивості Клавіша обходу (AllowBypassKey) набирає сили після наступного запуску застосунку для роботи з базою даних.

Приклад

У наведеному нижче прикладі показано процедуру з іменем SetBypassProperty, що проходить ім'я на властивість, яку потрібно встановити, тип даних і настройки. Процедура загального призначення ChangeProperty намагається установити властивість AllowBypassKey і, якщо властивість не знайдено, за допомогою методу CreateProperty додавати властивості до великоїколекціїзв'язків . Це необхідно, тому що властивість 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. Оскільки статтю перекладено за допомогою служби машинного перекладу, вона може містити смислові, синтаксичні або граматичні помилки.

Отримуйте нові функції раніше за інших
Приєднайтеся до оцінювачів Office

Ця інформація корисна?

Дякуємо за ваш відгук!

Дякуємо за відгук! Схоже, вам може стати в нагоді допомога одного з наших спеціалістів служби підтримки Office, з яким ми вас можемо з’єднати.

×