Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.11.2011, 17:59   #1
depp.88
Пользователь
 
Регистрация: 19.10.2011
Сообщений: 12
По умолчанию Подчиненная форма. Фильтр через поле со списком.

Вкладываю БД, которую нашел на каком то форуме. В ней есть форма, в которую вставлена подчиненная форма. В качестве фильтра выступают переключатели. Помогите сделать такой же фильтр только через поле со списком, к примеру по ФИО. Т.е. при выборе определенных ФИО, в подчиненной форме отображается определенный человек. В заранее спасибо.
Вложения
Тип файла: rar db2.rar (20.9 Кб, 152 просмотров)
depp.88 вне форума Ответить с цитированием
Старый 25.11.2011, 19:46   #2
depp.88
Пользователь
 
Регистрация: 19.10.2011
Сообщений: 12
По умолчанию

Хелп, пожалуйста!
depp.88 вне форума Ответить с цитированием
Старый 25.11.2011, 23:21   #3
Teslenko_EA
Участник клуба
 
Регистрация: 10.08.2009
Сообщений: 1,796
По умолчанию

Здравствуйте depp.88.
предлагаю изучить вариант "..через поле со списком..", но к фильтру эта конструкция не имеет отношения. Здесь формируется SQL конструкция - источник записей формы с заданными условиями отбора, "фильтрация" - подразумевает наложение ограничений на записи отображаемые источником

Евгений.

P.S. выкладывая вопрос не забывайте обращаться к тем кому Вы его адресуете, не знаете как - можно просто поздоровавшись.
Вложения
Тип файла: zip db2.zip (25.0 Кб, 227 просмотров)
Teslenko_EA вне форума Ответить с цитированием
Старый 26.11.2011, 16:54   #4
depp.88
Пользователь
 
Регистрация: 19.10.2011
Сообщений: 12
По умолчанию

Спасибо помогло! Подскажите пожалуйста у меня новая проблема. Добавил для столбца ФИО (которая представляет собой ФИО детей), столбец ФИО родителей (таблица законные представители), вставил этот столбец в подчиненную форму, но при включении переключателей или выбора ФИО детей через поле со списком столбец ФИО родителей принимает значение #ИМЯ?. Помогите пожалуйста исправить. Дело в связях? Или структура в корне неправильная?
Вложения
Тип файла: rar db4.rar (31.2 Кб, 74 просмотров)
depp.88 вне форума Ответить с цитированием
Старый 26.11.2011, 22:14   #5
depp.88
Пользователь
 
Регистрация: 19.10.2011
Сообщений: 12
По умолчанию

Профессионалы хелп, надежда только на вас...
depp.88 вне форума Ответить с цитированием
Старый 27.11.2011, 00:39   #6
Teslenko_EA
Участник клуба
 
Регистрация: 10.08.2009
Сообщений: 1,796
По умолчанию

Здравствуйте depp.88.
"..Дело в связях?.." - дело совсем не в связях, а в Ваших руках (которые простите работают быстрее головы).
"..Добавил для столбца.." - кроме того, что Вы добавили два поля в источник записей формы,
Вы зачем-то изменили источник строк поля со списком и "подкорректировали" код, а теперь просите помощи.
я указывал Вам что в коде функции "..формируется SQL конструкция - источник записей формы с заданными условиями отбора.."
и потому внося изменения в объекты формы, необходимо так-же изменить её код:
1. после изменения источника строк поля со списком (если в этом была необходимость),
строку кода его обрабатывающую, привести к соответствию типа данных.
2. добавив два поля на форму, изменить код формирующий SQL источник записей формы.
в результате функция должна быть подобного вида:
Код:
Public Function SubFrm_Filtr()
Dim sw$
  sw = "SELECT T.*, T1.[ФИО отца], T1.[ФИО матери] FROM [Законные представители] T1 " + _
  "LEFT JOIN Перечень T ON T1.Код = T.[Номер контакта] WHERE (1=1)"
  If Me!Группа <> 0 Then sw = sw & " And ([Номер группы]=" & Me!Группа & ")"
  If Me!ПодГруппа <> 0 Then sw = sw & " And ([Номер подгруппы]=" & Me!ПодГруппа & ")"
  If Me!Месяц <> 0 Then sw = sw & " And ([Плановый месяц выполнения]=" & Me!Месяц & ")"
  If Me!Выполнение <> 0 Then sw = sw & " And (" & IIf(Me!Выполнение = 2, "Not ", "") & "[Выполнение])"
  If Nz(Me!FIO, "<Все>") <> "<Все>" Then sw = sw & " And ФИО='" & Me!FIO & "'"
  Me![подчиненная форма Перечень].Form.RecordSource = sw
End Function
3. в русском языке нет слова "хелп", а по английски оно пишется иначе.

Будьте внимательнее.
Евгений.
Teslenko_EA вне форума Ответить с цитированием
Старый 27.11.2011, 23:50   #7
depp.88
Пользователь
 
Регистрация: 19.10.2011
Сообщений: 12
По умолчанию

Евгений, спасибо Вам большое, заработало.

Ребят помогите решить ещё одну проблему. Хотел такой же переключатель сделать для подчиненной формы только по датам. У меня два столбца с датами. Хотелось бы например, чтобы была выборка по годам, например за 2008, 2009, 2010 и т.д. Надеюсь на помощь, спасибо в заранее.
Вложения
Тип файла: rar db5.rar (92.8 Кб, 108 просмотров)
depp.88 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Подчиненная форма требует значение при загрузке формы skafiend Microsoft Office Access 3 15.05.2011 16:59
воод данных через элемент формы поле со списком Zikhfrit Microsoft Office Access 2 26.10.2010 06:23
Поле со списком Diamand Microsoft Office Access 4 14.05.2010 21:28
Поле со списком Underfinder Microsoft Office Access 7 21.03.2010 17:17
Поле со списком d_adilet Microsoft Office Access 5 08.02.2010 07:37