Метод Application.GetOption (Access)
Метод GetOption возвращает текущее значение параметра в диалоговом окне Параметры доступа , доступного путем нажатия кнопки Microsoft Office и выбора параметров доступа. Variant.
Синтаксис
expression. GetOption (OptionName)
выражение: переменная, представляющая объект Application.
Параметры
Имя | Обязательный или необязательный | Тип данных | Описание |
---|---|---|---|
OptionName | Обязательный | String | Имя параметра. Список строк аргументов имени параметра см. в разделе Настройка параметров из Visual Basic. |
Возвращаемое значение
Variant
Примечания
Методы GetOption и SetOption предоставляют средства изменения параметров среды из кода Visual Basic. С помощью этих методов можно задать или прочитать любой параметр, доступный в диалоговом окне Параметры доступа .
Доступные параметры зависят от типа устанавливаемого параметра. Существует три основных типа вариантов:
Параметры "Да" или "Нет", которые можно задать, установив или снимите флажок.
Параметры, которые можно задать, введя строковое или числовое значение.
Предопределенные параметры, которые можно выбрать из списка, поля со списком или группы параметров.
Для параметров, устанавливаемых пользователем путем установки или снятия флажка, метод GetOption возвращает значение True (1), если параметр имеет значение Да (флажок установлен) или False (0), если параметр имеет значение Нет (флажок снят). Чтобы задать этот параметр с помощью метода SetOption , укажите значение True или False для аргумента setting, как показано в следующем примере.
Application.SetOption "Show Status Bar", True
Для параметров, которые пользователь задает путем ввода строкового или числового значения, метод GetOption возвращает параметр, отображаемый в диалоговом окне. В следующем примере возвращается строка, содержащая параметр левого поля.
Dim varSetting As Variant
varSetting = Application.GetOption("Left Margin")
Чтобы задать этот тип параметра с помощью метода SetOption , укажите строковое или числовое значение, которое будет введено в диалоговом окне. В следующем примере для шаблона формы по умолчанию задается значение OrderTemplate.
Application.SetOption "Form Template", "OrderTemplate"
Для параметров с параметрами, выбранными в списках или полях со списком, метод GetOption возвращает число, соответствующее положению параметра в списке. Индексирование начинается с нуля, поэтому метод GetOption возвращает ноль для первого элемента, 1 для второго элемента и т. д. Например, если для параметра Тип поля по умолчанию на вкладке Конструкторы объектов задано значение AutoNumber( шестой элемент в списке), метод GetOption возвращает значение 5.
Чтобы задать этот тип параметра, укажите числовое положение параметра в списке в качестве аргумента параметра для метода SetOption . В следующем примере для параметра Тип поля по умолчанию устанавливается значение AutoNumber.
Application.SetOption "Default Field Type", 5
Другие параметры задаются путем нажатия кнопки параметра в группе параметров в диалоговом окне Параметры доступа . В Visual Basic эти параметры также задаются путем указания позиции определенного параметра в группе параметров. Первый вариант в группе имеет нумерованный номер, второй — 1 и т. д. Например, если для параметра Поведение выделения на вкладке Конструкторы объектов задано значение Частично закрыто, метод GetOption возвращает ноль, как показано в следующем примере.
Debug.Print Application.GetOption("Selection Behavior")
Чтобы задать параметр, который является членом группы параметров, укажите номер индекса параметра в группе. В следующем примере для параметра Поведение выделения задано значение Полностью закрытое.
Application.SetOption "Selection Behavior", 1
Примечание.
После выхода из Microsoft Access можно сбросить все параметры до исходных параметров с помощью метода SetOption для всех измененных параметров. Может потребоваться создать общедоступные переменные для хранения значений исходных параметров. Вы можете включить код для сброса параметров в процедуру закрытия события для формы или в настраиваемую процедуру выхода, которую пользователь должен запустить, чтобы выйти из приложения.
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.