Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > MS Access > Запрос на VBA

Автор: ПервыйРазВЕкселе 11.9.2009, 07:27

Подскажите можно ли на VBA написать функцию по отбору записейв субформе2 по столбцу данных субформы1.

Получается что данные прописанные в субформе1 отфильтровывались в субформе2

Если это возможно подскажите где посмотреть.

Автор: Akina 11.9.2009, 07:53

Цитата(ПервыйРазВЕкселе @ 11.9.2009, 08:27

)

Подскажите можно ли

Да, можно

Цитата(ПервыйРазВЕкселе @ 11.9.2009, 08:27

)

где посмотреть

В справке, в Борее.

Автор: ПервыйРазВЕкселе 11.9.2009, 10:04

Akina,

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

У меня в форме две субформы в виде таблиц, что то вроде этого:
  Субформа1                  Субформа2
       12                                   13
       13                                   11
       14                                   14
                                              12
                                              13
                                              10

После фильтрации в субформе2 должны отобразится только:  12
                                                                                                       13
                                                                                                       13
                                                                                                       14

Автор: Freazeek 11.9.2009, 10:25

Код


SELECT gpr2 from tbll_1
inner join tbll on tbll.gpr=tbll_1.gpr2

Автор: Akina 11.9.2009, 10:48

http://forum.vingrad.ru/forum/topic-260944.html

Автор: Freazeek 11.9.2009, 15:26

ну как один из вариантов)

Автор: Akina 11.9.2009, 15:39

Формат 2007. Без меня.

Автор: Freazeek 11.9.2009, 15:52

залил в 02-03

Автор: Akina 11.9.2009, 15:58

Так. В приложенной БД есть 2 таблицы, 3 запроса и НИ ОДНОЙ формы.

Справка - Оглавление - Запуск и параметры - Начало работы в Microsoft Access для пользователей, не имеющих навыков работы с базами данных

Автор: ПервыйРазВЕкселе 14.9.2009, 06:26

Akina,

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

Код


Function Макрос2()
Dim V As SubForm
Set V = Forms!Свод![подчиненнаяВыводДанных]
V.Filter = "[Номер документа]=380"
V.FilterOn = True
End Function

Автор: bopoha 14.9.2009, 09:05

ПервыйРазВЕкселе, объект типа SubForm - это элемент управления, который может содеражать в себе форму и он не потдерживает атрибутов Filter b FilterOn.
Чтобы обратиться к подчиненной форме из класса главной формы следует писать так:

Код


Dim ftm As Form

Set frm = Me.подчиненнаяВыводДанных.Form

Автор: ПервыйРазВЕкселе 14.9.2009, 11:28

bopoha,

Получилось!!! Вы меня наставили на путь истинный. Woodlin со своими флажками тоже Вам премного благодарен.
smile