Фильтр для подчиненной формы

@VinniPuh · Регистрация: 27.03.2013

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

Всем доброго и удачного дня!!!
У меня вскочил вопрос.
Как в основной форме - Ученики , при обновлении ПоляСоСписком - ПоискУченика , задавать фильтр для подчиненной формы - фпУченики , расположенной на вкладке - Поиск ?
Написал так:

Visual Basic

Private Sub ПоискУченика_AfterUpdate()
 
    DoCmd.GoToControl "ВклПоиск"
 
    DoCmd.ApplyFilter "", "[Код_Ученика]=[Forms]![Ученики]![ПоискУченика]"
    
End Sub

Плюс еще в свойстве - Фильтр у подчиненной формы прописал
[Код_Ученика]=[Forms]![Ученики]![ПоискУченика]

Все работает нормально, но думается это малость не правильно.
Хотелось бы, что бы фильтр задавался ТОЛЬКО в процедуре, а как правильно написать не получается.

Присоветуйте.

@Agapov_stas · 24.01.2014, 08:44

А так не пойдет? Если использовать как в мастере, FindFirst..

@VinniPuh · 24.01.2014, 08:54 **[ТС]**

Стас, так я умею, мне нужно прописать в процедуре, чтоб фильтр задавался именно для подчиненной формы не связанной с главной Основными и Подчиненными полями
Как это прописать умишек не хватает.
Или пойдет и и так как у меня есть.
Просто боюсь фильтр на Подформе может потеряться, опять его пиши Типа
Бывало и так.

@Agapov_stas · 24.01.2014, 08:58

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

чтоб фильтр задавался именно для подчиненной формы не связанной с главной Основными и Подчиненными полями

Не понял. Вы задаете фильтрацию данных подчиненной форме в зависимости от того, что выбрано в комбике. Соответственно в ЛЮБОМ случае будет ссылка на этот комбик, будь он на главной или еще где.
По сути два варианта:
1. Указывать в запросе
2. Программно (тут уж как пожелаешь, использовать ApplyFiltr, FindFirst, или собирать строку для RecordSource)
В любом случае будет ссылка на комбо.

Ну и третий, фильтры с 2007 встроенные.

@VinniPuh · 24.01.2014, 09:25 **[ТС]**

Стас, может я чего и непонятно выражаюсь, не сильно силен в понятиях.
Имею в виду , - Что нужно прописать в процедуре после обновления ПоляСоСписком - ПоискУченика, что бы ЗАДАЛСЯ ФИЛЬТР именно для ПОДЧИНЕННОЙ ФОРМЫ по полю Код_Ученика.
Не знаю как в процедуре СОСЛАТЬСЯ, что фильтр задается этой подформе, а не какой та другой т. к. думаю потом еще парочку форм там вставить.
Или так сделать нельзя? Если можно, то как это выглядит на примере.

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

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

...Ну и третий, фильтры с 2007 встроенные...

А к меня 2000

Добавлено через 12 минут
Немного проясню свой вопрос
в строке:
DoCmd.ApplyFilter "", "[Код_Ученика]=[Forms]![Ученики]![ПоискУченика]"
Можно как то дописать, что фильтр задается для поля - [Код_Ученика] находящегося в подчиненной форме - фпУченики, которая в свое время вставлена в основной форме - Ученики
Чейта типа так:
DoCmd.ApplyFilter "", "[Forms]![Ученики]![фпУченики]![Код_Ученика]=[Forms]![Ученики]![ПоискУченика]"
У меня самого,

правильного синтаксиса создать не получается.

@ltv_1953 · 24.01.2014, 09:29

Если правильно понял проблему, то нужно это

Visual Basic

Private Sub ÏîèñêÓ÷åíèêà_AfterUpdate()
    If IsNull(Me.ÏîèñêÓ÷åíèêà) Then
        Me.ôïÓ÷åíèêè.Form.Filter = ""
        Me.ôïÓ÷åíèêè.Form.FilterOn = False
    Else
        Me.ôïÓ÷åíèêè.Form.Filter = "Êîä_Ó÷åíèêà=" & Me.ÏîèñêÓ÷åíèêà
        Me.ôïÓ÷åíèêè.Form.FilterOn = True
    End If
End Sub

@VinniPuh · 24.01.2014, 09:34 **[ТС]**

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

...Если правильно понял...

Владимир, Вы правильно поняли, это именно то. что нужно

Огромное СПАСИБО!!!

mobile · 24.01.2014, 10:00

Можно чуть попроще, пользуясь особенностями конкатенации с "+"

Visual Basic

Private Sub ПоискУченика_AfterUpdate()
    Me.фпУченики.Form.Filter = (Me.ПоискУченика + ("Код_Ученика=" & Me.ПоискУченика)) & ""
    Me.фпУченики.Form.FilterOn = Not IsNull(Me.ПоискУченика)
End Sub

@VinniPuh · 24.01.2014, 10:13 **[ТС]**

mobile - Попробовал и Ваш пример, выдает ошибку - 2448 (Невозможно присвоить значение объекту) и указывает на 2 строку -

Visual Basic

1	Me.фпУченики.Form.Filter = (Me.ПоискУченика + ("Код_Ученика=" & Me.ПоискУченика)) & ""

mobile · 24.01.2014, 10:19

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

mobile - Попробовал и Ваш пример, выдает ошибку

Мы с рассеянностью родились вместе :-)

Visual Basic

1	Me.фпУченики.Form.Filter = ("Код_Ученика=" + Me.ПоискУченика) & ""

@VinniPuh · 24.01.2014, 10:26 **[ТС]**

mobile - Спасибо за пример, работает.
Оба примерчика, Ваш и ltv_1953 беру на вооружение.
Всем огромное спасибо.

@rsdlx · 07.04.2015, 20:48

Уважаемые, подскажите глупому, почему в моем случае код, предложенный mobile и ltv_1953 не работает?
Работаю в Access 2013, - может причина в этом?

@VinniPuh · 07.04.2015, 20:54 **[ТС]**

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

...не работает...

А как именно не работает?

@rsdlx · 07.04.2015, 21:06

Run-time error '13':
Type mismatch

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

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

А как именно не работает?

А у Вас заработала фильтрация в базе, кот. я приложил к сообщению?

@VinniPuh · 07.04.2015, 21:12 **[ТС]**

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

...А у Вас заработала фильтрация в базе...

Да оба способа.
Не думаю, что 2013 влияет на процедуру, там на сколько я понимаю все так же.
Ваш пример просмотреть не могу, у меня 2000.

@rsdlx · 07.04.2015, 21:16

Сохранил в .mdb.
Посмотрите, пожалуйста.

@VinniPuh · 07.04.2015, 22:00 **[ТС]**

Попробовал, тоже не получается.
Я сам то не особо силен в VBA, но думается это из за того, что у меня в примере фильтруется по коду (циферке), а у вас по - Дата/Время. В этом случае скорее всего формат нужно указывать, (но я не знаю как. )
Может кто из магистров подскажет.

@rsdlx · 07.04.2015, 22:05

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

фильтруется по коду (циферке), а у вас по - Дата/Время

Была у меня такая мысль.
Рядом сделал второе поле, - там цифра, - итог тот же...

@VinniPuh · 07.04.2015, 22:07 **[ТС]**

А не проще ли будет просто указать у подчиненной формы - Основное и подчиненное поле, а то и по два, а сами процедуры убрать.
Вот так.

@VinniPuh · 07.04.2015, 22:08 **[ТС]**

В обоих свободных полях выбираете нужные значения и всё в ажуре.

@VinniPuh 9113 / 6051 / 591 Регистрация: 27.03.2013 Сообщений: 19,882
	24.01.2014, 10:26 [ТС]	11
	mobile - Спасибо за пример, работает. Оба примерчика, Ваш и ltv_1953 беру на вооружение. Всем огромное спасибо. 0

@VinniPuh 9113 / 6051 / 591 Регистрация: 27.03.2013 Сообщений: 19,882
	07.04.2015, 22:00 [ТС]	17
	Попробовал, тоже не получается. Я сам то не особо силен в VBA, но думается это из за того, что у меня в примере фильтруется по коду (циферке), а у вас по - Дата/Время. В этом случае скорее всего формат нужно указывать, (но я не знаю как. ) Может кто из магистров подскажет. 1

@rsdlx 2 / 2 / 1 Регистрация: 07.01.2015 Сообщений: 33
	07.04.2015, 22:05	18
	Сообщение от kmv-puh фильтруется по коду (циферке), а у вас по - Дата/Время Была у меня такая мысль. Рядом сделал второе поле, - там цифра, - итог тот же... 0

Новые блоги и статьи
Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .	Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .

@VinniPuh 9113 / 6051 / 591 Регистрация: 27.03.2013 Сообщений: 19,882
	24.01.2014, 08:54 [ТС]	3
	Стас, так я умею, мне нужно прописать в процедуре, чтоб фильтр задавался именно для подчиненной формы не связанной с главной Основными и Подчиненными полями Как это прописать умишек не хватает. Или пойдет и и так как у меня есть. Просто боюсь фильтр на Подформе может потеряться, опять его пиши Типа Бывало и так. 0

@Agapov_stas 3356 / 1775 / 83 Регистрация: 05.08.2010 Сообщений: 4,471
	24.01.2014, 08:58	4
	Сообщение от kmv-puh чтоб фильтр задавался именно для подчиненной формы не связанной с главной Основными и Подчиненными полями Не понял. Вы задаете фильтрацию данных подчиненной форме в зависимости от того, что выбрано в комбике. Соответственно в ЛЮБОМ случае будет ссылка на этот комбик, будь он на главной или еще где. По сути два варианта: 1. Указывать в запросе 2. Программно (тут уж как пожелаешь, использовать ApplyFiltr, FindFirst, или собирать строку для RecordSource) В любом случае будет ссылка на комбо. Ну и третий, фильтры с 2007 встроенные. 1

@VinniPuh 9113 / 6051 / 591 Регистрация: 27.03.2013 Сообщений: 19,882
	24.01.2014, 09:25 [ТС]	5
	Стас, может я чего и непонятно выражаюсь, не сильно силен в понятиях. Имею в виду , - Что нужно прописать в процедуре после обновления ПоляСоСписком - ПоискУченика, что бы ЗАДАЛСЯ ФИЛЬТР именно для ПОДЧИНЕННОЙ ФОРМЫ по полю Код_Ученика. Не знаю как в процедуре СОСЛАТЬСЯ, что фильтр задается этой подформе, а не какой та другой т. к. думаю потом еще парочку форм там вставить. Или так сделать нельзя? Если можно, то как это выглядит на примере. Добавлено через 1 минуту Сообщение от Agapov_stas ...Ну и третий, фильтры с 2007 встроенные... А к меня 2000 Добавлено через 12 минут Немного проясню свой вопрос в строке: DoCmd.ApplyFilter "", "[Код_Ученика]=[Forms]![Ученики]![ПоискУченика]" Можно как то дописать, что фильтр задается для поля - [Код_Ученика] находящегося в подчиненной форме - фпУченики, которая в свое время вставлена в основной форме - Ученики Чейта типа так: DoCmd.ApplyFilter "", "[Forms]![Ученики]![фпУченики]![Код_Ученика]=[Forms]![Ученики]![ПоискУченика]" У меня самого, правильного синтаксиса создать не получается. 0

@VinniPuh 9113 / 6051 / 591 Регистрация: 27.03.2013 Сообщений: 19,882
	24.01.2014, 09:34 [ТС]	7
	Сообщение от ltv_1953 ...Если правильно понял... Владимир, Вы правильно поняли, это именно то. что нужно Огромное СПАСИБО!!! 0

@VinniPuh 9113 / 6051 / 591 Регистрация: 27.03.2013 Сообщений: 19,882
	07.04.2015, 20:54 [ТС]	13
	Сообщение от rsdlx ...не работает... А как именно не работает? 0

@rsdlx 2 / 2 / 1 Регистрация: 07.01.2015 Сообщений: 33
	07.04.2015, 21:06	14
	Run-time error '13': Type mismatch Добавлено через 4 минуты Сообщение от kmv-puh А как именно не работает? А у Вас заработала фильтрация в базе, кот. я приложил к сообщению? 0

@VinniPuh 9113 / 6051 / 591 Регистрация: 27.03.2013 Сообщений: 19,882
	07.04.2015, 21:12 [ТС]	15
	Сообщение от rsdlx ...А у Вас заработала фильтрация в базе... Да оба способа. Не думаю, что 2013 влияет на процедуру, там на сколько я понимаю все так же. Ваш пример просмотреть не могу, у меня 2000. 0

@VinniPuh 9113 / 6051 / 591 Регистрация: 27.03.2013 Сообщений: 19,882
	07.04.2015, 22:08 [ТС]	20
	В обоих свободных полях выбираете нужные значения и всё в ажуре. 0