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

@Dimasterfrom4e · Регистрация: 27.09.2015

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

Добрый день.

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

В свойства "После обновления" поля добавил код из другой бд, где он работает, и подкорректировал под подходящие по смыслу действия, но похоже что-то упустил. Подскажите пож-ста, что я забыл?

mobile · 12.07.2017, 13:45

Пробуйте

@Dimasterfrom4e · 12.07.2017, 14:22 **[ТС]**

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

Пробуйте

Огромное вам спасибо)))

Извиняюсь, я забыл, что там еще фильтр по галочке нужен в подформе. Из другой бд скопировал и подогнал по названию полей. В коде закомментил 2 строчки. Или по смыслу там другое нужно, не подскажете?

@Dimasterfrom4e · 12.07.2017, 14:26 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub sourceData()
    Dim s, t
    
    t = Me.[main_tab].Tag
    
   ' s = "select * from (" & t & ") " _
    '& " and [ид_статус]=" & Me.Флажок11
    
    If Val(Nz(Me.[Выбор_инв], 0)) > 0 Then
        s = t & " and [№_инв]='" & Me.[Выбор_инв] & "'" _
        & " and [ид_статус]=" & Me.Флажок11
    Else
        s = t
    End If
   ' On Error Resume Next
    Me.[main_tab].Form.RecordSource = s
End Sub

Ой, отбой, сделал так)) и все пошло))

@corbis · 12.07.2017, 14:28

[Код] If Me.Флажок11 Then s = "select * from (" & t & ") " _
& " and [ид_статус]=" & Me.Флажок11
[/Код]

@Dimasterfrom4e · 12.07.2017, 14:45 **[ТС]**

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

Ой, отбой, сделал так)) и все пошло))

А все таки нет. Не так...((( Поторопился... помогите пож-ста.

@Dimasterfrom4e · 12.07.2017, 14:51 **[ТС]**

Кажется так))) Снова отбой))

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub sourceData()
    Dim s, t
    
    t = Me.[main_tab].Tag
    
    If Val(Nz(Me.[Выбор_инв], 0)) > 0 Then
        s = t & " and [№_инв]='" & Me.[Выбор_инв] & "'" _
        & " and [ид_статус]=" & Me.Флажок11
    Else
        s = t & "" _
        & " and [ид_статус]=" & Me.Флажок11
    End If
   
    Me.[main_tab].Form.RecordSource = s
End Sub

@corbis · 12.07.2017, 14:58

Я только не понял зачем премудрости с сохранением в Tag формы рекордсета?
Убрал и получился такой код для формы:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Option Compare Database
 
 
Private Sub Form_Current()
 
Dim a As Long
    If ActUserID > 0 Then
        Me!txtUsername = ActUser 'пишем имя в поле
    Else
        a = MsgBox("Пользователь не авторизован!" & vbCrLf & "Открыть форму авторизации?", vbCritical + vbYesNo + vbDefaultButton1, "Авторизация")
        If a = vbYes Then
            DoCmd.OpenForm "f_authorization"
        End If
    End If
   ' Макрос1
    
End Sub
 
Private Sub Выбор_инв_AfterUpdate()
 
    sourceData
    
End Sub
 
Sub sourceData()
    Dim s
            
    s = "select * from (гл_таб_приемка) where [ид_статус]=" & Me.Флажок11
    
    If Val(Nz(Me.[Выбор_инв], 0)) > 0 Then
        s = s & " and [№_инв]='" & Me.[Выбор_инв] & "'"
    End If
 
   ' On Error Resume Next
    Me.[main_tab].Form.RecordSource = s
End Sub
 
 
Private Sub Флажок11_AfterUpdate()
    sourceData
End Sub

mobile · 12.07.2017, 15:02

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

зачем премудрости с сохранением в Tag формы рекордсета?

Не рекордсета, а RecordSource. Это простой прием, когда нужно либо добавить фильтр в источник, либо совсем без фильтра. Конечно есть и другие способы, но этот крайне прост, надежен и универсален. Особенно, когда источник может быть динамичным, меняющимся

@corbis · 12.07.2017, 15:07

Я про конкретно этот пример спрашивал

. Так то понятно для чего.

@Dimasterfrom4e · 01.08.2017, 22:59 **[ТС]**

Извиняюсь, что снова к этому вопросу.

Добавил в форму INBOUND еще один комбобокс с выпадающим списком Зона приемки.

Взял код с похожими фильтрами из другой базы, где все работает и подставил сюда. Но что-то снова упустил. Фильтра перестали корректно работать.

Помогите пожалуйста. можно сделать так, чтобы данные в подформе фильтровались при выборе комбобокса Выбор инвойса, учитывалось наличие / отсутствие галочки где Распечатан ТОРГ и фильтр также работал при выборе Зоны приемки?

Заранее спасибо))

@Eugene-LS · 01.08.2017, 23:11

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

Добавил в форму INBOUND еще один комбобокс с выпадающим списком Зона приемки.

У вас там "каша" ...
Sub sourceData() - всё криво.
Так не делается обычно.

Рекомендую работать через свойство Filter формы.
Успехов!

@Dimasterfrom4e · 01.08.2017, 23:37 **[ТС]**

Сообщение от Eugene-LS

Рекомендую работать через свойство Filter формы.

Про кашу знаю. Знаниями не блещу в этом.

Но мои коллеги должны работать по стандарту. Лишние "ручные" фильтра в форме могут потом создать хлопоты, когда начнем подводить итоги, какие-то данные могут быть пропущены из-за этого.

Поэтому решено оставить им 3 фильтра (не мной) - для исключения лишних манипуляций по этим полям.

@Eugene-LS · 01.08.2017, 23:53

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

Лишние "ручные" фильтра в форме могут потом создать хлопоты, когда начнем подводить итоги, какие-то данные могут быть пропущены из-за этого.

Так и я про то - же самое ....

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

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

Поэтому решено оставить им 3 фильтра (не мной) - для исключения лишних манипуляций по этим полям.

= Ерунда!
Фильтр можно формировать гораздо интереснее кодом VBA - уж поверьте.
И там не 3 заготовки - а как нравиться по полям выборки.

mobile · 01.08.2017, 23:53

Изменены (исправлены) RecordSource и Tag подформы. Исправлены процедуры в главной форме: Load, sourceData, Комбинированная99_AfterUpdate

@Dimasterfrom4e · 02.08.2017, 00:01 **[ТС]**

Сообщение от Eugene-LS

= Ерунда!
Фильтр можно формировать гораздо интереснее кодом VBA - уж поверьте.

Я уже ответил на это)) я с вба не знаком. Для вас ерунда - для меня головная боль.

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

Про кашу знаю. Знаниями не блещу в этом.

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

Исправлены процедуры в главной форме: Load, sourceData, Комбинированная99_AfterUpdate

Спасибо вам большое)) Я правда не понял, почему в другой бд первый код работал, а в этой нет. Фильтра такие же, типы полей такие же, названия полей другие только были.

@Eugene-LS · 02.08.2017, 00:06

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

названия полей другие только были.

- вот и ответ...

Часто:
Правильно заданный вопрос = готовый ответ.

@Dimasterfrom4e · 02.08.2017, 00:11 **[ТС]**

Сообщение от Eugene-LS

Правильно заданный вопрос = ответ.

Как я понял из бд, с которой мне прислали, дело было не в этом))

mobile · 02.08.2017, 00:17

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

Я правда не понял, почему в другой бд первый код работал, а в этой нет. Фильтра такие же, типы полей такие же, названия полей другие только были.

Названия полей ни при чем. Был невероятный мусор в источнике подформы. Видимо, применяя фильтр, Вы потом сохраняли форму и все фильтры сохранялись. Сохранять надо только в режиме дизайна.
Кроме того неверно были учтены ситуации со "Все" и пустыми полями фильтра. Все это было исправлено. Может быть в несколько ином стиле, чем в предыдущих Ваших работах.

@Eugene-LS · 02.08.2017, 00:19

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

Как я понял из бд, с которой мне прислали, дело было не в этом

Вам прислали решение на основании вашего вопроса.
Ваш вопрос далеко не однозначен.

Для полного и корректного ответа нужно знать ВСЮ вашу задачку.
Изучение (задачи) и творение = часы (*десятки) работы ...
А вы чего ждали???

У добрых форумчан и свои заботы есть (проекты, дети, внуки и пр.)

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия SDL 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual. . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

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

Решение

Решение

Решение

@corbis 547 / 274 / 50 Регистрация: 03.04.2015 Сообщений: 926
	12.07.2017, 14:28
	[Код] If Me.Флажок11 Then s = "select * from (" & t & ") " _ & " and [ид_статус]=" & Me.Флажок11 [/Код] 1

@corbis 547 / 274 / 50 Регистрация: 03.04.2015 Сообщений: 926
	12.07.2017, 15:07
	Я про конкретно этот пример спрашивал . Так то понятно для чего. 1