Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Запрос на VBA, отбор записей по понескольким критериям 
:(
    Опции темы
ПервыйРазВЕкселе
Дата 11.9.2009, 07:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 15.12.2008
Где: Челябинская облас ть

Репутация: нет
Всего: нет



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

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


Если это возможно подскажите где посмотреть.
PM MAIL ICQ   Вверх
Akina
Дата 11.9.2009, 07:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454



Цитата(ПервыйРазВЕкселе @  11.9.2009,  08:27 Найти цитируемый пост)
Подскажите можно ли

Да, можно

Цитата(ПервыйРазВЕкселе @  11.9.2009,  08:27 Найти цитируемый пост)
где посмотреть

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


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
ПервыйРазВЕкселе
Дата 11.9.2009, 10:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 15.12.2008
Где: Челябинская облас ть

Репутация: нет
Всего: нет



Akina

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

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

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

PM MAIL ICQ   Вверх
Freazeek
Дата 11.9.2009, 10:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 31
Регистрация: 8.9.2009

Репутация: нет
Всего: нет



Код

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

PM MAIL   Вверх
Akina
Дата 11.9.2009, 10:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454





--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Freazeek
Дата 11.9.2009, 15:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 31
Регистрация: 8.9.2009

Репутация: нет
Всего: нет



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

Это сообщение отредактировал(а) Freazeek - 11.9.2009, 15:51

Присоединённый файл ( Кол-во скачиваний: 5 )
Присоединённый файл  subform1.rar 11,07 Kb
PM MAIL   Вверх
Akina
Дата 11.9.2009, 15:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454



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


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Freazeek
Дата 11.9.2009, 15:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 31
Регистрация: 8.9.2009

Репутация: нет
Всего: нет



залил в 02-03
PM MAIL   Вверх
Akina
Дата 11.9.2009, 15:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454



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

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


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
ПервыйРазВЕкселе
Дата 14.9.2009, 06:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 15.12.2008
Где: Челябинская облас ть

Репутация: нет
Всего: нет



Akina

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

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

PM MAIL ICQ   Вверх
bopoha
Дата 14.9.2009, 09:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: 21
Всего: 21



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

Dim ftm As Form

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


Это сообщение отредактировал(а) bopoha - 14.9.2009, 09:06
PM MAIL WWW ICQ Skype GTalk   Вверх
ПервыйРазВЕкселе
Дата 14.9.2009, 11:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 15.12.2008
Где: Челябинская облас ть

Репутация: нет
Всего: нет



bopoha

Получилось!!! Вы меня наставили на путь истинный. Woodlin со своими флажками тоже Вам премного благодарен.
 smile 
PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "MS Access"
Akina
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] и [code=sql][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | MS Access | Следующая тема »


 




[ Время генерации скрипта: 0.0919 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.