Применение фильтров формы из VBA.

@lubashishka · Регистрация: 19.04.2020

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

Добрый день. Пытаюсь разобраться с применением фильтров (через свойства подчиненной формы все работает прекрасно, но мне в перспективе надо фильтровать несколько взаимосвязанных таблиц, поэтому очень важно понять как работать с VBA Form. Filter ).

Перебрала всё обсужденное в этой теме и не только, но не получается.. Даже никаких идей почему. Буду очень благодарна за помощь. Код полностью идентичен вышерассматриваемым

Visual Basic
1
2
3
4
5
6
Private Sub Выбор_вуза_AfterUpdate()
Me.FilterOn = False 'Отмена предыдущего фильтра (если был)
Me.Filter = "[Код_вуза]=" & Me.Код_вуза
Me.FilterOn = True 'Применение нового фильтра
 
End Sub

@lubashishka · 19.11.2020, 16:56 **[ТС]**

Квадратные скобочки были в образце, как показали эксперименты они ни на что не влияют. Лишнюю скобочку убрала, тоже ни на что не повлияло. А вот кавычку после Me.Выбор_вуза убрать не дает редактор, сразу краснеет. Я так понимаю, что все выражение должно быть взято в кавычки
Me.[Имя подчиненной формы].Form.RecordSource = "имя нового источника данных"

@Andrey-MSK · 19.11.2020, 17:03

lubashishka, имелось ввиду вот про это

Visual Basic
1
2
SQL = "SELECT Инф_ВУЗы.Код_вуза, Инф_ВУЗы.Код_ассорт, Инф_ВУЗы.Код_подразд, Инф_ВУЗы.Код_спец " _
    & "FROM Инф_ВУЗы WHERE Инф_ВУЗы.Код_вуза= " & Me.Выбор_вуза

и пробел нужно было поставить перед переносом строки после Инф_ВУЗы.Код_спец и запятую убрать

@Capi · 19.11.2020, 17:07

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

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

Неверный вывод.
Квадратные скобки необходимы для имен, содержащих определённые символы.

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

Лишнюю скобочку убрала, тоже ни на что не повлияло

Неверный вывод.
Если бы в запросе не было иных ошибок, ещё как повлияло бы.

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

А вот кавычку после Me.Выбор_вуза убрать не дает редактор, сразу краснеет.

Неверный вывод.
Таким образом из кавычек не выносят.
Убрали "после", но "до" не поставили. Вот и "краснеет".

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

Я так понимаю, что все выражение должно быть взято в кавычки
Me.[Имя подчиненной формы].Form.RecordSource = "имя нового источника данных"

Какое же в представленном коде "имя"? Там текстовая строка.
Разберитесь, как она формируется из фрагментов.
Распечатайте, в конце концов, и проанализируйте.

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

Жаль, не дали ТС самой дойти.
Элементарно же всё.

И такая куча ошибок после всех объяснений...

@lubashishka · 19.11.2020, 17:13 **[ТС]**

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

@boby104 · 19.11.2020, 17:34

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

что я делаю не так?

у вас процедура обновления источника записей для вложенной формы
противоречит связанным полям основной формы и формы подчиненной
- уберите эту связь!!!

@boby104 · 19.11.2020, 17:39

вот тут

@lubashishka · 19.11.2020, 17:43 **[ТС]**

boby104 , там убрано. Я первым делом проверила, чтобы не было такого типа связи.

@boby104 · 19.11.2020, 17:48

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

там убрано

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

@boby104 · 19.11.2020, 17:53

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

Я первым делом проверила,

вот как то так

@lubashishka · 19.11.2020, 18:04 **[ТС]**

boby104 , спасибо большое! Увидела выделенную желтым пф и думала про источник пф.

Новые блоги и статьи Все статьи Все блоги /
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .
Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .	Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .

@lubashishka 3 / 3 / 0 Регистрация: 19.04.2020 Сообщений: 119
	19.11.2020, 16:56 [ТС]
	Квадратные скобочки были в образце, как показали эксперименты они ни на что не влияют. Лишнюю скобочку убрала, тоже ни на что не повлияло. А вот кавычку после Me.Выбор_вуза убрать не дает редактор, сразу краснеет. Я так понимаю, что все выражение должно быть взято в кавычки Me.[Имя подчиненной формы].Form.RecordSource = "имя нового источника данных" 0

@boby104 1267 / 449 / 129 Регистрация: 21.03.2013 Сообщений: 1,210
	19.11.2020, 17:39
	вот тут Миниатюры 0

@lubashishka 3 / 3 / 0 Регистрация: 19.04.2020 Сообщений: 119
	19.11.2020, 17:43 [ТС]
	boby104 , там убрано. Я первым делом проверила, чтобы не было такого типа связи. 0

@lubashishka 3 / 3 / 0 Регистрация: 19.04.2020 Сообщений: 119
	19.11.2020, 18:04 [ТС]
	boby104 , спасибо большое! Увидела выделенную желтым пф и думала про источник пф. Миниатюры 0

Применение фильтров формы из VBA.

Решение