Свойство CheckBox.OptionValue (Access)
Каждый элемент управления в группе параметров имеет числовое значение, которое можно задать с помощью свойства OptionValue . Для чтения и записи, Long.
Синтаксис
expression. OptionValue
Выражение Переменная, представляющая объект CheckBox .
Замечания
При выборе элемента управления номер назначается группе параметров. Если группа параметров привязана к полю, значение свойства OptionValue выбранного элемента управления сохраняется в поле .
Например, эта группа параметров Регион привязана к полю Регион в таблице. Кнопка Европа имеет параметр свойства OptionValue 1, кнопка Азия имеет значение 2, а кнопка "Африка " имеет значение 3. Если выбрана одна из этих кнопок, значение группы параметров Регион будет совпадать с параметром свойства OptionValue для выбранного элемента управления. В этом случае, так как группа параметров Регион привязана к полю Регион , значение этого поля в таблице также равно 2.
Свойство OptionValue применяется только к элементам управления флажок, кнопка параметров и переключатель в группе параметров.
Если вы не измените свойство OptionValue самостоятельно, первый элемент управления, который вы размещаете в группе параметров, имеет значение 1, второй элемент управления имеет значение 2 и т. д.
Свойство OptionValue доступно только в том случае, если элемент управления помещается в элемент управления группы параметров. Если флажок, кнопка параметра или переключатель отсутствуют в группе параметров, элемент управления не имеет свойства OptionValue . Вместо этого каждый такой элемент управления имеет свойство ControlSource , и значение каждого элемента управления будет равно True , если выбрано значение, или False , если он не выбран.
Пример
В следующем примере задается свойство OptionValue для трех кнопок параметров в группе параметров Ship Method Group при открытии формы. При выборе кнопки параметра в группе параметров отображается сообщение с указанием назначенного грузоотправителям идентификатора.
Private Sub Form_Open(Cancel As Integer)
Me.Controls("ABC Couriers").OptionValue = 15876
Me.Controls("Speedy Delivery").OptionValue = 742
Me.Controls("Lightning Express").OptionValue = 1256
End Sub
Private Sub Ship_Method_Group_Click()
MsgBox "The ID for the selected shipper is " & Me.Controls("Ship Method Group").Value
End Sub
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.
Обратная связь
https://aka.ms/ContentUserFeedback.
Ожидается в ближайшее время: в течение 2024 года мы постепенно откажемся от GitHub Issues как механизма обратной связи для контента и заменим его новой системой обратной связи. Дополнительные сведения см. в разделеОтправить и просмотреть отзыв по