Фильтр пустых значений через ListBox

@glsn · Регистрация: 12.04.2015

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

Доброго времени суток, уважаемые форумчане.
Прошу помощи в решении одной задачи. В архиве кусок базы с формой фильтрации записей подчиненной формы через ListBox (список). Однако, по полю фильтрации (в конкретном случае - Глубина) имеются и пустые значения, которые в т.ч. нужно будет просматривать(при необходимости).
Столкнулся с проблемой присваивания выбранному 1 значению - параметра [Поле] Is Null с учетом того, что в связке будут выбираться и другие имеющиеся в списке для фильтрации значения.
Прошу подсказать (направить) решение вопроса (для полного понимания см файл в архиве).
И еще прошу подсказать: возможно ли в запросе на объединение как то внесенную запись (пустые) - переместить в конец списка, а не в его начало (как в файле)?

@Eugene-LS · 14.09.2021, 20:05

glsn, вот вам ещё один вариант на тестирование.
Меняем не источник строк формы, а просто фильтруем форму.

@glsn · 14.09.2021, 21:24 **[ТС]**

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

Где это?

в запросе

Ваша база действительно работает быстро
и вместе с тем конечно же отличный вариант от Eugene-LS на фильтрацию
конечно еще одна сложность у меня...
дело в том, что пример сам это лишь набросок от базы
помимо глубины залегания есть еще и код дефекта (текстовое значение)
данная конструкция должна работать в одной связке (т.к. важно фильтровать по коду, а при необходимости смотреть по глубине в рамках кода/кодов). Не могли бы помочь в такого рода связке?
ListBoxFilter_NEW.rar

@Eugene-LS · 14.09.2021, 22:17

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

данная конструкция должна работать в одной связке (т.к. важно фильтровать по коду, а при необходимости смотреть по глубине в рамках кода/кодов)

Вот вариант с фильтрацией:

@glsn · 14.09.2021, 22:30 **[ТС]**

Спасибо Вам, спасибо Capi

@Capi · 14.09.2021, 22:45

glsn,

Я Ваше отношение запомню на будущее.

@Capi · 15.09.2021, 02:03

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

А что такое %$##@_Alias?

Алиас (псевдоним) присвоенный автоматически - AS [%$##@_Alias].

Можете написать вместо этого AS Q.
И тогда редактор запросов вмешиваться в синтаксис не будет.

@glsn · 15.09.2021, 17:02 **[ТС]**

спасибо
попытался настроить вчера по Вашему методу двойной фильтр, но пока сделал лишь на 2 списка отдельно, а вместе не вышло

@Capi · 15.09.2021, 18:17

glsn,

По чьему методу?

@glsn · 15.09.2021, 18:32 **[ТС]**

по написанному вчера Вами примеру

@Capi · 15.09.2021, 18:44

glsn,

Вы ко мне обращаетесь?

Если да, то какой второй список должен быть, по какой характеристике?

@Eugene-LS · 15.09.2021, 19:48

glsn, что бы обратится к конкретному участнику обсуждения просто щёлкните по его нику слева, или напишите так:

Visual Basic
1
[nick]Ник Форумчанина[/nick]

будет понятно + ему прилетит уведомление на почту ...

@glsn · 15.09.2021, 20:28 **[ТС]**

Eugene-LS, спасибо за подсказку, добрый вечер
Capi, да к Вам
смотрите: попробовал переделать Ваш код под текстовые значения (поскольку код будет текстовым т.к. должен содержать точку + могут быть буквы - такая специфика)
получилось следующее

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub DefCodeList_AfterUpdate()
 Dim x, _
     S1 As String
     
    If Me.DefCodeList.ItemsSelected.Count > 0 Then
        For Each x In Me.DefCodeList.ItemsSelected
            S1 = S1 & ",'" & Me.DefCodeList.Column(0, x) & "'"
        Next
            If Len(S1) > 0 Then
                S1 = "КодДефекта In (" & Mid(S1, 2) & ")"
            Else
                S1 = ""
            End If
    S1 = S1
    'Else
    End If
 
 S1 = "SELECT * FROM qRecAll" & S1
 Debug.Print S1
End Sub

по проверке через Debug.Print все корректно вроде выходит

по фильтрации тоже...
но Вот когда начал собирать оба в одно что то не вышло
собирал все в одной функции, на AfterUpdate списков её вызывал
в переменных присваивал просто сборку In т.е. S1 = S1 и т.д.
далее, строковой переменной присвоил sql = " and " & S & SS & S1
первый And исключил через Mid
строковой переменной прописал запрос rec = "SELECT * FROM qRecAll where " & sql
в задумке д.б. получится что то вроде
SELECT * FROM qRecAll where In(перечисления,чисел,первого,списка) And In('текст','второго','списка')
ну и запустил подчиненную Me.frmPf.Form.RecordSource = rec
но увы чуда не случилось

где же я обманулся?

@Capi · 15.09.2021, 21:58

glsn,

Посмотрю. Позже.

У меня в БД нужные данные есть?
Если нет, лучше выложите БД с ними.

Добавлено через 10 минут
Смотрю код (с планшета, могу не все заметить).
И вижу, что Debug-то выдает чушь.
"все корректно вроде выходит", говорите?
А как же склейка имен таблицы и поля?
А как же отсутствие WHERE?

В общем, выкладывайте БД (если нужно).

Посмотрю потом.

Добавлено через 4 минуты
Да, новую БД выкладывайте обязательно - там ведь новый список в форме должен быть.

@glsn · 15.09.2021, 22:39 **[ТС]**

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

новую БД выкладывайте

...

@glsn · 16.09.2021, 10:52 **[ТС]**

Capi, я сделал сам. Посмотрите - м.б. как то можно "упростить" или все норм?
Спасибо еще раз

еще вопрос по уже форуму: а как Вы вкладываете вложения, чтобы не как у меня выше, а как Вы откорректировали выше было? ) стыдно сказать, но сколько лет на форуме, а так и не научился

@Capi · 16.09.2021, 11:43

glsn,

Ваше посмотреть пока некогда.

Мой вариант посмотрите.

Но не начинайте "улучшать", от этого только порча получается.
Вот Вы в процедуре для первого списка добавили Else S = "" - это бессмысленно в силу самого условия If.
Вы поменяли порядок строк кода, что привело к ошибке формирования условия для варианта "(пустые)".
Вы убрали Option Explicit - оригинально, конечно, но...
И так далее.

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

а как Вы вкладываете вложения, чтобы не как у меня выше, а как Вы откорректировали выше было?

Просто не надо их раскладывать по сообшению через Управление вложениями.
Просто добавьте через "скрепочку", и всё.
Выбрать, загрузить - этого достаточно.
Раскладывают по тексту обычно картинки и тому подобное.

Ваш вариант посмотрю попозже.

@glsn · 16.09.2021, 12:59 **[ТС]**

Capi, у Вас отличный вариант, спасибо

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

добавьте через "скрепочку"

ок, попробую
а если просто самому после добавления теги удалить вручную (т.е. оставить код вложения просто) будет работать?

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

Вы поменяли порядок строк кода

вообщем еще мне учится и учится

@Capi · 16.09.2021, 13:22

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

а если просто самому после добавления теги удалить вручную (т.е. оставить код вложения просто) будет работать?

Всё надо удалять, включая цифирь.
Но зачем их вообще добавлять.

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

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

Вы поменяли порядок строк кода

вообщем еще мне учится и учится

Тут другое.
Излишняя самоуверенность и склонность к оригинальничанью.
Зачем, например, запрос на объединение величать "запрос СОЮЗ"?

@alvk · 16.09.2021, 13:59

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

вообщем еще мне учится и учится

русскому языку, что делать - учиться, что делает - учится

@glsn · 16.09.2021, 14:20 **[ТС]**

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

Зачем, например, запрос на объединение величать "запрос СОЮЗ"?

просто UNION с агл. переводится как "союз"

я не величаю, лишь в комментарии как то упомянул. Запрос на объединение это запрос на объединение (.)

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

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

русскому языку, что делать - учиться, что делает - учится

Массаракш.... точно

Новые блоги и статьи Все статьи Все блоги /
[golang] Двоичная куча, min-heap alhaos 20.05.2026 Двоичная куча Двоичная куча — структура данных, которая всегда держит самый важный элемент наготове. Представьте очередь к хилеру в игре, и очередь из игроков в приоритете те у кого меньше. . .	[golang] Breadth-First Search alhaos 19.05.2026 BFS (Breadth-First Search) — это базовый алгоритм обхода графа в ширину, который поуровнево исследует все связанные вершины. Он начинает с выбранной точки и проверяет всех соседей, прежде чем. . .	[golang] Алгоритм «Хак Госпера» alhaos 17.05.2026 Алгоритм «Хак Госпера» Хак Госпера (Gosper's Hack) — алгоритм нахождения следующего по величине числа с тем же количеством установленных бит. Придуман Биллом Госпером в 1970-х, опубликован в. . .	Рисование бинарного древа до 6-го колена на js, svg. russiannick 17.05.2026 <svg width="335" height="240" viewBox="0 0 335 240" fill="#e5e1bb"> <style> <!]> </ style> <g id="bush"> </ g> </ svg> function fn(){ let rost;/ / высота древа let xx=165,yy=210,w=256;
FSharp: interface of module DevAlt 16.05.2026 Интерфейс модуля F# позволяет управлять доступностью членов, содержащихся в реализации модуля. По-умолчанию все члены модуля доступны: module Foo let x = 10 let boo () = printfn "boo" . . .	Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .	[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .

@glsn 604 / 127 / 45 Регистрация: 12.04.2015 Сообщений: 519
	14.09.2021, 22:30 [ТС]
	Спасибо Вам, спасибо Capi 0

@Capi Модератор 6231 / 2909 / 707 Регистрация: 12.06.2016 Сообщений: 7,839
	14.09.2021, 22:45
	glsn, Я Ваше отношение запомню на будущее. 0

@glsn 604 / 127 / 45 Регистрация: 12.04.2015 Сообщений: 519
	15.09.2021, 17:02 [ТС]
	спасибо попытался настроить вчера по Вашему методу двойной фильтр, но пока сделал лишь на 2 списка отдельно, а вместе не вышло 0

@Capi Модератор 6231 / 2909 / 707 Регистрация: 12.06.2016 Сообщений: 7,839
	15.09.2021, 18:17
	glsn, По чьему методу? 0

@glsn 604 / 127 / 45 Регистрация: 12.04.2015 Сообщений: 519
	15.09.2021, 18:32 [ТС]
	по написанному вчера Вами примеру 0

@Capi Модератор 6231 / 2909 / 707 Регистрация: 12.06.2016 Сообщений: 7,839
	15.09.2021, 18:44
	glsn, Вы ко мне обращаетесь? Если да, то какой второй список должен быть, по какой характеристике? 0

@Capi Модератор 6231 / 2909 / 707 Регистрация: 12.06.2016 Сообщений: 7,839
	15.09.2021, 21:58
	glsn, Посмотрю. Позже. У меня в БД нужные данные есть? Если нет, лучше выложите БД с ними. Добавлено через 10 минут Смотрю код (с планшета, могу не все заметить). И вижу, что Debug-то выдает чушь. "все корректно вроде выходит", говорите? А как же склейка имен таблицы и поля? А как же отсутствие WHERE? В общем, выкладывайте БД (если нужно). Посмотрю потом. Добавлено через 4 минуты Да, новую БД выкладывайте обязательно - там ведь новый список в форме должен быть. 1

Фильтр пустых значений через ListBox

Решение