Иногда, исходя из логики программы, может быть удобно использовать независимыепереключатели. У каждого независимого переключателя появляется свойство "Источник данных" (ControlSource). В этом свойстве необходимо указать для каждого переключателя свой источник данных - логическое поле таблицы. Согласованную работу переключателей при этом необходимо будет обеспечить вручную.
Обычно переключатели на форме рекомендуется вставлять в группупереключателей. В этом случае они работают автоматически. У каждого переключателя появляется свойство <Значение параметра> (OptionValue), и вы устанавливаете для каждого такого переключателя некоторое уникальное числовое значение этого свойства. Группа присоединяется к некоторому числовому полю в таблице, и в это поле будет заноситься число, идентифицирующее выбранный переключатель.
Недостатком здесь является то, что в программе, использующей это поле таблицы, необходимо будет сравнивать значение этого поля с некоторыми числами. При этом будет трудно понять, а что же, собственно, каждое число обозначает.
Иногда, исходя из логики программы, может быть удобно использовать независимыепереключатели. У каждого независимого переключателя появляется свойство "Источник данных" (ControlSource). В этом свойстве необходимо указать для каждого переключателя свой источник данных - логическое поле таблицы. Согласованную работу переключателей при этом необходимо будет обеспечить вручную.
Для этого можно использовать процедуры обработки событий переключателей "До обновления" (BeforeUpdate) и "После обновления" (AfterUpdate). В первой процедуре запрещаем выключение включенного переключателя, а во второй, если переключатель был выключен и включается, - выключаем все остальные переключатели.
Пусть, например, у нас есть три переключателя: Переключатель1", "Переключатель2", "Переключатель3". Тогда для переключателя "Переключатель2" эти процедуры будут выглядеть так:
Private Sub Переключатель2_BeforeUpdate(Cancel As Integer) If Not Переключатель2 Then Cancel = True End Sub
Private Sub Переключатель2_AfterUpdate() Переключатель1 = False Переключатель3 = False End Sub