Принудительное применение или отключение параметров запуска в базе данных Access
Эта статья относится только к проекту Microsoft Access (ADP).
Средний. Требуются базовые навыки макроса, программирования и взаимодействия.
Сводка
В этой статье описано, как отключить функцию клавиши SHIFT, которая позволяет обойти параметры запуска. В этой статье также описывается применение параметров запуска в проекте базы данных Microsoft Access.
Дополнительная информация
Параметры запуска, определенные для файла Access, определяют его вид и поведение при открытии файла. Параметры запуска можно задать с помощью пользовательского интерфейса запуска или макроса AutoExec.
Чтобы обойти параметры запуска, заданные для проекта базы данных Access, удерживайте нажатой клавишу SHIFT при открытии проекта базы данных Access.
Кроме того, чтобы применить параметры запуска, заданные для проекта базы данных Access, отключите функцию клавиши SHIFT, которая позволяет обойти параметры запуска. Для этого задайте для свойства AllowBypassKey значение False.
Чтобы задать для свойства AllowBypassKey значение False, выполните следующие действия.
Шаги для проекта Access (ADP)
Запустите Access.
Откройте проект базы данных Access.
Нажмите клавиши ALT+F11, чтобы открыть редактор Visual Basic.
В редакторе Visual Basic щелкните Окно интерпретации в меню Вид .
Введите следующий код или вставьте следующий код в окно Интерпретация и нажмите клавишу ВВОД.
CurrentProject.Properties.Add "AllowBypassKey", False
Закройте Редактор Visual Basic, а затем закройте проект базы данных Access.
Откройте проект базы данных Access. Попробуйте обойти параметры запуска, заданные для проекта базы данных Access, удерживая клавишу SHIFT при открытии проекта базы данных Access.
Функция клавиши SHIFT, которая позволяет обойти параметр запуска, отключена. Хотя вы удерживаете клавишу SHIFT, чтобы обойти параметры запуска, параметры запуска выполняются. Нельзя обойти параметры запуска.
Шаги для базы данных Access (.mdb или ACCDB)
Запустите Access.
Создайте новый модуль, а затем добавьте следующие две функции:
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
В редакторе Visual Basic щелкните Окно интерпретации в меню Вид .
Если вы хотите отключить клавишу SHIFT, введите ap_DisableShift в окне Интерпретация и нажмите клавишу ВВОД. Если вы хотите включить клавишу SHIFT, введите ap_EnableShift в окне Интерпретация и нажмите клавишу ВВОД.
Обратная связь
https://aka.ms/ContentUserFeedback.
Ожидается в ближайшее время: в течение 2024 года мы постепенно откажемся от GitHub Issues как механизма обратной связи для контента и заменим его новой системой обратной связи. Дополнительные сведения см. в разделеОтправить и просмотреть отзыв по