Несколько галочек

@Rikk · Регистрация: 10.06.2011

Студворк — интернет-сервис помощи студентам

Всем привет! А как сделать, чтобы в одной строке нельзя было выбрать более одной галочки, эт объект флажек на форме, их у меня куча тут)))

@Agapov_stas · 12.10.2013, 12:29

Не в общем модуле, а в модуле формы.
В нем присутствует функция, которая подсчитывает количество выбранных флажков.

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
Public Function flg() As Integer
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acCheckBox Then
If Not Me.NewRecord Then flg = flg - ctl.Value
End If
Next ctl
End Function

А в условии на значение проверяем сколько выбранных(т.е. flg<2)

Можно конечно и на любом событии проверять, просто посчитал самым простым использовать "Условие на значение".

@ltv_1953 · 12.10.2013, 12:35

Сообщение от kmv-puh

Владимир, возможно ни разу передо мной не стояла такая задача, на проверку истинности уже введенных ранее (как я понял) значений, могли ли бы Вы привести на словах или на примере примерчик, в каких случаях их можно применить и зачем это нужно?

В отличии от проверки в форме, такие ограничения работают при любом изменении/добавлении записи в таблицу (как в форме, так и запросе на изменение/добавление или в наборе данных). Реально я применял похожие ограничения очень редко (раз 5 или 6), и в принципе без них можно обойтись. Во вложение пример - Таблица1, ограничение на запись прописано в свойствах этой таблицы.

@Agapov_stas · 12.10.2013, 12:42

В принципе, если полей не много, то очень интересный вариант

Неудобство только в перечислении.

@VinniPuh · 12.10.2013, 12:54

Ваабще фигня какая то, ни одной процедуры найти не могу в обоих примерах.

Хотя нет, в - Test только с помощью Альт + Ф11 нашел УФФ.

@Agapov_stas · 12.10.2013, 12:59

Сообщение от kmv-puh

в обоих примерах.

В примере ltv_1953 проверка идет в свойствах таблицы (т.е. кликнуть правую кн.мыши->свойства...Это все в режиме конструктора)

@Rikk · 12.10.2013, 13:05 **[ТС]**

Вот это да сколько примеров тут, домой приду, буду копаться, спасибо всем, что откликнулись на зов помощи

@VinniPuh · 12.10.2013, 13:11

Сообщение от Agapov_stas

проверка идет в свойствах таблицы

Стас - СПАСИБО, я ужо нашелся, еще раз повнимательнее прочитал сообщение Владимира и дошло (Вспомнил как нана, давно этим не пользовался, старенький ужо наверное)

туплюс.

@minob · 12.10.2013, 13:36

Сообщение от ltv_1953

Во вложение пример - Таблица1, ограничение на запись прописано в свойствах этой таблицы.

Вместо выражения

Visual Basic
1
(([а]=Истина) And ([б]=Ложь) And ([в]=Ложь)) Or (([а]=Ложь) And ([б]=Истина) And ([в]=Ложь)) Or (([а]=Ложь) And ([б]=Ложь) And ([в]=Истина))

можно использовать

Visual Basic
1
[а]+[б]+[в]=-1

Не заметил, чтобы ТС говорил об обязательном выборе одного из флажков, поэтому возможно нужно так

Visual Basic
1
[а]+[б]+[в]>-2

Новые блоги и статьи Все статьи Все блоги /
Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Rikk 45 / 5 / 1 Регистрация: 10.06.2011 Сообщений: 269

	Несколько галочек 12.10.2013, 09:17. Показов 2850. Ответов 27 Метки нет (Все метки) Всем привет! А как сделать, чтобы в одной строке нельзя было выбрать более одной галочки, эт объект флажек на форме, их у меня куча тут))) 0

@Agapov_stas 3357 / 1776 / 83 Регистрация: 05.08.2010 Сообщений: 4,471
	12.10.2013, 12:42
	В принципе, если полей не много, то очень интересный вариант Неудобство только в перечислении. 0

@VinniPuh 9148 / 6183 / 594 Регистрация: 27.03.2013 Сообщений: 20,060
	12.10.2013, 12:54
	Ваабще фигня какая то, ни одной процедуры найти не могу в обоих примерах. Хотя нет, в - Test только с помощью Альт + Ф11 нашел УФФ. 0

@Rikk 45 / 5 / 1 Регистрация: 10.06.2011 Сообщений: 269
	12.10.2013, 13:05 [ТС]
	Вот это да сколько примеров тут, домой приду, буду копаться, спасибо всем, что откликнулись на зов помощи 0

Несколько галочек

Решение