Принудительное применение или отключение параметров запуска в базе данных Access

Эта статья относится только к проекту Microsoft Access (ADP).

Средний. Требуются базовые навыки макроса, программирования и взаимодействия.

Сводка

В этой статье описано, как отключить функцию клавиши SHIFT, которая позволяет обойти параметры запуска. В этой статье также описывается применение параметров запуска в проекте базы данных Microsoft Access.

Дополнительная информация

Параметры запуска, определенные для файла Access, определяют его вид и поведение при открытии файла. Параметры запуска можно задать с помощью пользовательского интерфейса запуска или макроса AutoExec.

Чтобы обойти параметры запуска, заданные для проекта базы данных Access, удерживайте нажатой клавишу SHIFT при открытии проекта базы данных Access.

Кроме того, чтобы применить параметры запуска, заданные для проекта базы данных Access, отключите функцию клавиши SHIFT, которая позволяет обойти параметры запуска. Для этого задайте для свойства AllowBypassKey значение False.

Чтобы задать для свойства AllowBypassKey значение False, выполните следующие действия.

Шаги для проекта Access (ADP)

1. Запустите Access.

2. Откройте проект базы данных Access.

3. Нажмите клавиши ALT+F11, чтобы открыть редактор Visual Basic.

4. В редакторе Visual Basic щелкните Окно интерпретации в меню Вид .

5. Введите следующий код или вставьте следующий код в окно Интерпретация и нажмите клавишу ВВОД.

   CurrentProject.Properties.Add "AllowBypassKey", False
   

6. Закройте Редактор Visual Basic, а затем закройте проект базы данных Access.

7. Откройте проект базы данных Access. Попробуйте обойти параметры запуска, заданные для проекта базы данных Access, удерживая клавишу SHIFT при открытии проекта базы данных Access.

   Функция клавиши SHIFT, которая позволяет обойти параметр запуска, отключена. Хотя вы удерживаете клавишу SHIFT, чтобы обойти параметры запуска, параметры запуска выполняются. Нельзя обойти параметры запуска.

Шаги для базы данных Access (.mdb или ACCDB)

1. Запустите Access.

2. Создайте новый модуль, а затем добавьте следующие две функции:

   Function ap_DisableShift()
   'This function disable the shift at startup. This action causes
   'the Autoexec macro and Startup properties to always be executed.
   
   On Error GoTo errDisableShift
   
   Dim db As DAO.Database
   Dim prop as DAO.Property
   Const conPropNotFound = 3270
   
   Set db = CurrentDb()
   
   'This next line disables the shift key on startup.
   db.Properties("AllowByPassKey") = False
   
   'The function is successful.
   Exit Function
   
   errDisableShift:
   'The first part of this error routine creates the "AllowByPassKey
   'property if it does not exist.
   If Err = conPropNotFound Then
   Set prop = db.CreateProperty("AllowByPassKey", _
   dbBoolean, False)
   db.Properties.Append prop
   Resume Next
   Else
   MsgBox "Function 'ap_DisableShift' did not complete successfully."
   Exit Function
   End If
   
   End Function
   
   Function ap_EnableShift()
   'This function enables the SHIFT key at startup. This action causes
   'the Autoexec macro and the Startup properties to be bypassed
   'if the user holds down the SHIFT key when the user opens the database.
   
   On Error GoTo errEnableShift
   
   Dim db as DAO.Database
   Dim prop as DAO.Property
   Const conPropNotFound = 3270
   
   Set db = CurrentDb()
   
   'This next line of code disables the SHIFT key on startup.
   db.Properties("AllowByPassKey") = True
   
   'function successful
   Exit Function
   
   errEnableShift:
   'The first part of this error routine creates the "AllowByPassKey
   'property if it does not exist.
   If Err = conPropNotFound Then
   Set prop = db.CreateProperty("AllowByPassKey", _
   dbBoolean, True)
   db.Properties.Append prop
   Resume Next
   Else
   MsgBox "Function 'ap_DisableShift' did not complete successfully."
   Exit Function
   End If
   
   End Function
   

3. В редакторе Visual Basic щелкните Окно интерпретации в меню Вид .

4. Если вы хотите отключить клавишу SHIFT, введите ap_DisableShift в окне Интерпретация и нажмите клавишу ВВОД. Если вы хотите включить клавишу SHIFT, введите ap_EnableShift в окне Интерпретация и нажмите клавишу ВВОД.