Фильтрация по нескольким полям с выпадающим списком

@ganbgang · Регистрация: 21.03.2020

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

Делаю курсовую работу в MS Access и столкнулся со следующей проблемой.
В моем приложении создана форма в которой есть 8 полей с выпадающим списком, к каждому из которых создан макрос на фильтрацию таблицы "преступники", например [Преступники].[Вид преступления]=[Формы]![Установление личности]![ВыборВидПреступления].
Подразумевается что по нажатию кнопки "поиск", должна происходить фильтрация по выбранным признакам, но после продолжительного поиска ответов на свою проблему не нашел ничего лучше чем применить макрос на нажатие кнопки

SQL
1
2
3
4
5
6
7
8
[Преступники].[Вид преступления]=[Формы]![Установление личности]![ВыборВидПреступления]
 AND [Преступники].[Шрамы]=[Формы]![Установление личности]![ВыборШрама]
 AND [Преступники].[Цвет глаз]=[Формы]![Установление личности]![ВыборЦветГлаз]
 AND [Преступники].[Телосложение]=[Формы]![Установление личности]![ВыборТелосложение]
 AND [Преступники].[Внешность]=[Формы]![Установление личности]![ВыборВнешность]
 AND [Преступники].[Татуировки]=[Формы]![Установление личности]![ВыборТатуировки]
 AND [Преступники].[Рост]=[Формы]![Установление личности]![ВыборРост]
 AND [Преступники].[Цвет волос]=[Формы]![Установление личности]![ВыборЦветВолос]

Но из-за длины макроса Access не дает его создать...
Что делать?

@Capi · 18.12.2020, 16:39

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

из-за длины макроса Access не дает его создать...
Что делать?

Использовать VBA.

@ganbgang · 18.12.2020, 16:47 **[ТС]**

а можно как-то реализовать эту затею с помощью SQL запроса.
чтобы при нажатии кнопки выполнялся запрос на фильтрацию по данным из формы?
если да, то подскажите пожалуйста

@matva · 18.12.2020, 17:11

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

а можно как-то реализовать эту затею с помощью SQL запроса.

Сделать Запрос1, Запрос2 и потом Запрос3, где будут объединены Запрос1 и Запрос2. Тогда в одном Запросе длина не будет превышать 255 символов и во втором тоже, А в третьем и подавно.
P.S. Но хотелось бы образец БД увидеть, а не картинки.

Добавлено через 6 минут
Но лучше прислушайтесь к Capi, - это лучший вариант.

@ganbgang · 18.12.2020, 17:13 **[ТС]**

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

Но хотелось бы образец БД увидеть, а не картинки.

Прикрепляю

@Capi · 18.12.2020, 18:00

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

Сделать Запрос1, Запрос2 и потом Запрос3, где будут объединены Запрос1 и Запрос2. Тогда в одном Запросе длина не будет превышать 255 символов и во втором тоже, А в третьем и подавно.

Зачем это всё?
У запросов нет ограничения в 255 символов, текст запроса может иметь несколько тысяч знаков.

У ТС макрос получился слишком длинный. Написано же

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

из-за длины макроса Access не дает его создать

ganbgang,

Формируйте строку и используйте её для фильтра формы.
Как-то так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim S As String
S = "True "
If Not IsNull(ВыборВидПреступления) Then
 S = S & "AND [Вид преступления] = " & ВыборВидПреступления
End If
If Not IsNull(ВыборШрама) Then
 S = S & "AND Шрамы = " & ВыборШрама
End If
 
' и так далее...
 
Me.Filter = S
Me.FilterOn = Len(S) > 5

@snipe · 18.12.2020, 18:08

или вот так

@snipe · 18.12.2020, 19:15

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

Как-то так:

как вариант

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Dim S As String
S = True
S = S & (" and [Преступники].[Вид преступления]=" + Me.ВыборВидПреступления)
S = S & (" and [Преступники].[Шрамы]=" + Me.ВыборШрама)
S = S & (" and [Преступники].[Цвет глаз]=" + Me.ВыборЦветГлаз)
S = S & (" and [Преступники].[Телосложение]=" + Me.ВыборТелосложение)
S = S & (" and [Преступники].[Внешность]=" + Me.ВыборВнешность)
S = S & (" and [Преступники].[Татуировки]=" + Me.ВыборТатуировки)
S = S & (" and [Преступники].[Рост]=" + Me.ВыборРост)
S = S & (" and [Преступники].[Цвет волос]=" + Me.ВыборЦветВолос)
Me.Filter = S
Me.FilterOn = Len(S) > 5

при условии что на событии нажатия кнопки Удалить фильтры будет висеть код

Visual Basic
1
2
3
4
5
6
7
8
Me.ВыборВидПреступления = Null
Me.ВыборШрама = Null
Me.ВыборЦветГлаз = Null
Me.ВыборТелосложение = Null
Me.ВыборВнешность = Null
Me.ВыборТатуировки = Null
Me.ВыборРост = Null
Me.ВыборЦветВолос = Null

@alvk · 21.12.2020, 01:09

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

на событии нажатия кнопки Удалить фильтры будет висеть код

Очищающий поля выборки и всё? Последний фильтр останется?

@snipe · 21.12.2020, 03:32

alvk, конечно же Filter и FilterOn надо почистить (сбросить)
это как само собой разумеющееся

а вот на важном условии, а именно появление в поле значения Null, я акцентировал внимание
ибо связка
S = S & (" and [Преступники].[Вид преступления]=" + Me.ВыборВидПреступления)
без null может и не сработать

Новые блоги и статьи Все статьи Все блоги /
Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .

@ganbgang 1 / 1 / 1 Регистрация: 21.03.2020 Сообщений: 11
	18.12.2020, 16:47 [ТС]
	а можно как-то реализовать эту затею с помощью SQL запроса. чтобы при нажатии кнопки выполнялся запрос на фильтрацию по данным из формы? если да, то подскажите пожалуйста 0

@snipe 4089 / 1469 / 401 Регистрация: 07.08.2013 Сообщений: 3,672
	21.12.2020, 03:32
	alvk, конечно же Filter и FilterOn надо почистить (сбросить) это как само собой разумеющееся а вот на важном условии, а именно появление в поле значения Null, я акцентировал внимание ибо связка S = S & (" and [Преступники].[Вид преступления]=" + Me.ВыборВидПреступления) без null может и не сработать 0