Как отметить флажком нужные поля в форме для вывода их в отчет

@synther · Регистрация: 04.08.2011

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

Доброе время суток, пишу базу для формирования нарядов-заказов, есть таблица со списком работ. Печатать все работы не нужно. а только конкретно выбранные.
Иными словами необходимо добиться формирования отчета из отмеченных полей формы с помощью флажков.

@Андрэич · 01.03.2013, 15:13

Источник данных отчёта: Select * From Таблица Where ПолеФлажка = -1

@synther · 01.03.2013, 15:27 **[ТС]**

уже что то, флажки стали нажиматься но почему то все разом

shanemac51 · 01.03.2013, 15:45

такого поля нет в списке полей
======
флажок не опирается на таблицу

@synther · 01.03.2013, 17:14 **[ТС]**

а как связать флажок с таблицей?

@synther · 01.03.2013, 17:18 **[ТС]**

подправил в отчете источник записей отчета. ребята надеюсь на ваши подсказки

@ltv_1953 · 01.03.2013, 17:40

Поле флажок добавлено в таблицу Лист и в источник отчета. См. вложение.

@synther · 01.03.2013, 20:53 **[ТС]**

Спасибо! добавить надо было в таблицу столбец логический, как это я упустил

Добавлено через 3 часа 6 минут
еще вопрос, нужна кнопка для быстрого сброса выбранных флажков, как это реализовать?

@synther · 01.03.2013, 20:54 **[ТС]**

обновил базу

@Андрэич · 01.03.2013, 21:04

Visual Basic
1
2
3
private sub флажокСнятьОтметитьВсё_afterupdate()
currentdb.execute "update таблица set флажок = " & me.флажокСнятьОтметитьВсё
end sub

Добавлено через 6 минут
Это новый флажок, не связанный с таблицей, можно где-нибудь в примечании формы

mobile · 01.03.2013, 22:12

synther, посмотрите иной вариант: со списком с множественным выбором

@synther · 02.03.2013, 10:15 **[ТС]**

Сообщение от Андрэич

Андрэич

флажокСнятьОтметитьВсе - это мой флажок в форме
таблица - это моя таблица со всеми данными
флажок - это имя столбца в таблице
если так как я понял и подставляя свои имена то ошибку выдает
Private Sub Флажок_AfterUpdate()
CurrentDb.Execute "update лист set print or no " & Me.Флажок
End Sub

Добавлено через 2 минуты

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

synther, посмотрите иной вариант: со списком с множественным выбором

отличный вариант намного удобней, спасибо

@Андрэич · 02.03.2013, 11:56

synther,
вы невнимательно прочитали мой пост, а также изменили код

@anton_anatskiy · 11.04.2014, 18:20

mobile, очень благодарен за решение списка с множественным выбором. на его основе удалось реализовать печать путевые листы для горных мастеров. еще раз спасибо

@Eujine · 18.04.2014, 01:23

mobile, прекрасная реализация, но есть вопрос - как избежать ошибки "Выражение неверно введено или является слишком сложным для расчета..." в случае если из списка значения вообще не выбираются (в моей БД помимо листбокса есть еще два поля на форме, содержащие условия на запрос, иногда нужно делать запрос только по ним..)??

Добавлено через 3 минуты
И вопрос вдогонку - как средствами VBA очистить листбокс? (например, код для кнопки "сброс фильтров")..

mobile · 18.04.2014, 02:25

1. Можно проверять наличие выделенных записей. Если Me.МойСписок.ItemsSelected.Count=0, то не не фильтровать по нему.

2. Очистить список

Visual Basic
1
2
3
4
Dim s
For Each s In Me.МойСписок.ItemsSelected
    Me.МойСписок.Selected(s) = False
Next

@Eujine · 18.04.2014, 09:05

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

Можно проверять наличие выделенных записей. Если Me.МойСписок.ItemsSelected.Count=0, то не не фильтровать по нему.

А где это сделать, прямо в SQL-запросе прописать? я просто синтаксис sql плохо представляю для такого условия..

mobile · 18.04.2014, 10:21

Чтобы не было ошибки при отсутствии выбора, надо в запросе использовать функцию NZ для обхода NULL. В выставленном примере, в Запрос1 это будет Eval([Код] & " In (" & nz([Forms]![Main]![txtkod],0) & ")")

Если же нужно, чтобы при пустом поле с набором выбранных ид, был показан весь набор записей, то sql-выражение для Запрос1 (из БАЗА.accdb) такой

SQL
1
2
3
SELECT Лист.машина, Лист.норма, Лист.[СОДЕРЖАНИЕ РАБОТ], Лист.РАЗРЯД, Лист.Код
FROM Лист
WHERE Eval([Код] & " In (" & nz([Forms]![Main]![txtkod],0) & ")") OR [Forms]![Main]![txtkod] IS NULL

Новые блоги и статьи Все статьи Все блоги /
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .

@Андрэич 2842 / 774 / 41 Регистрация: 20.05.2012 Сообщений: 2,055
	01.03.2013, 15:13
	Источник данных отчёта: Select * From Таблица Where ПолеФлажка = -1 1

@synther 1 / 1 / 0 Регистрация: 04.08.2011 Сообщений: 34
	01.03.2013, 15:27 [ТС]
	уже что то, флажки стали нажиматься но почему то все разом 0

shanemac51 Модератор 12231 / 5078 / 814 Регистрация: 07.08.2010 Сообщений: 14,931 Записей в блоге: 4
	01.03.2013, 15:45
	такого поля нет в списке полей ====== флажок не опирается на таблицу 1

@synther 1 / 1 / 0 Регистрация: 04.08.2011 Сообщений: 34
	01.03.2013, 17:14 [ТС]
	а как связать флажок с таблицей? 0

@synther 1 / 1 / 0 Регистрация: 04.08.2011 Сообщений: 34
	01.03.2013, 20:53 [ТС]
	Спасибо! добавить надо было в таблицу столбец логический, как это я упустил Добавлено через 3 часа 6 минут еще вопрос, нужна кнопка для быстрого сброса выбранных флажков, как это реализовать? 0

@Андрэич 2842 / 774 / 41 Регистрация: 20.05.2012 Сообщений: 2,055
	02.03.2013, 11:56
	synther, вы невнимательно прочитали мой пост, а также изменили код 0

@anton_anatskiy 6 / 6 / 2 Регистрация: 28.03.2014 Сообщений: 74
	11.04.2014, 18:20
	mobile, очень благодарен за решение списка с множественным выбором. на его основе удалось реализовать печать путевые листы для горных мастеров. еще раз спасибо 0

@Eujine 73 / 47 / 9 Регистрация: 24.03.2014 Сообщений: 470
	18.04.2014, 01:23
	mobile, прекрасная реализация, но есть вопрос - как избежать ошибки "Выражение неверно введено или является слишком сложным для расчета..." в случае если из списка значения вообще не выбираются (в моей БД помимо листбокса есть еще два поля на форме, содержащие условия на запрос, иногда нужно делать запрос только по ним..)?? Добавлено через 3 минуты И вопрос вдогонку - как средствами VBA очистить листбокс? (например, код для кнопки "сброс фильтров").. 0

Как отметить флажком нужные поля в форме для вывода их в отчет

Решение