Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Фильтрация / 14 сообщений из 14, страница 1 из 1
02.06.2004, 13:57
    #32544711
Манагер
Манагер
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Фильтрация
Возможно ли провести фильтрацию в Главной Форме по данным Подчиненной формы?
Т.е. в Главной форме у меня находятся реквизиты организаций, а в Подчиненной - реквизиты сотрудников. Организация одна, а сотрудников много. Источники данных для этих форм - две разные таблицы (для Главной и Подчиненной соответственно)
Есть поле со списком где я выбираю фамилию сотрудника (находится на Главной форме, источник данных - запрос).
Необходимо провести фильтрацию по Фамилии сотрудника, чтобы в Главной форме отобразились организации, у которых есть сотрудники с такой фамилией.
Я совсем запутался, помогите плз!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.06.2004, 14:00
    #32544723
Shark
Shark
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Фильтрация
Я бы добавил в источник записей главной вычисляемое поле со списком сотрудников через запятую и фильтровал бы по нему
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.06.2004, 14:02
    #32544725
Манагер
Манагер
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Фильтрация
Интересное решение! А еще есть варианты?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.06.2004, 14:08
    #32544746
paparome
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Фильтрация
[Код_Организации] In (Select [Код_Организации] From [Сотрудники] Where [Фамилия] = 'Петров')
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.06.2004, 14:08
    #32544750
Victosha
Victosha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Фильтрация
у тебя есть главТабл(идЗап, ОргНаме,...)
подчТабл(...,идОрг, Сотрудник,...)
связь подчТабл.идОрг=главТабл.идЗап

в источнике комбобокса по выбору сотрудников
пишешь SELECT идОрг, Сотрудник FROM подчТаб
Рассказываешь комбобоксу, что у него два столбца, присоединенный - первый, его ширина =0

Дальше на событие _AfterUpdate комбобокса
меняеш И применяешь фильтр по условию
"идЗап= " & myCombobox.value

дальнейшие действия по собственному разумению.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2004, 09:44
    #32545886
Манагер
Манагер
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Фильтрация
2Victosha А фильтр по условию - что это такое? Т.е. это команда ApplyFilter? Или что-то другое? У ApplyFilter другой синтаксис! Объясните, пожалуйста, ламеру.....!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2004, 09:54
    #32545900
Alexander G
Alexander G
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Фильтрация
Код: plaintext
1.
2.
3.
 'ставим фильтр на основную форму
 
Parent.Filter = "[IdOrg]=" & Me![IdOrg]
Parent.FilterOn = True
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2004, 09:56
    #32545907
paparome
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Фильтрация
2 Манагер

Вот это в свойство Filter формы запихни (Me.Filter)
А следующей строкой сделая Me.FilterOn = true

?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2004, 10:01
    #32545913
Манагер
Манагер
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Фильтрация
Не работает!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2004, 10:05
    #32545920
paparome
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Фильтрация
Что не работает?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2004, 10:08
    #32545929
Victosha
Victosha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Фильтрация
ОХ, ведь так трясет, что разбудит - рабудил - проснулся я.

ну очепятался Александр. он так хотел написать:

Код: plaintext
1.
2.
'ставим фильтр на основную форму
Parent.Form.Filter = "[идЗап]=" & YourCombobox.Value
Parent.Form.FilterOn = True


Parent - это если комбобокс в подчиненной, если он в главной - никакого парента не надо - пиши просто Filter и FilterOn
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2004, 10:10
    #32545937
Alexander G
Alexander G
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Фильтрация
Да, виноват, невнимателен.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2004, 10:11
    #32545939
Victosha
Victosha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Фильтрация
))
я сам такой....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.06.2004, 10:36
    #32547973
Манагер
Манагер
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Фильтрация
Люди сделал, заработало! Использовал Ваши советы и метод научного тыка.

Комбобокс как советовал Victosha, потом на главной форме добавил поле MailingListID - это из таблицы для главной формы ("Организации").
Фрагмент кода:

' Включение фильтра
Private Sub cmdFilter_Click()

DoCmd.ApplyFilter "", "[tblMailing list]![MailingListID]= [Forms]![frmMailing list]![cdoCustomers]"

End Sub

cdoCustomers - это поле со списком по выбору клиента, для которого организовывался комбобокс.
Вроде все работает, хотя я понимаю что до программиста мне далеко....
Жду критики!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Фильтрация / 14 сообщений из 14, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 406ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1674116]:
 0ms
get settings:
 6ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 144ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 33ms
get tp. blocked users:
 1ms
others: 199ms
total:  406ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]