Форум программистов, компьютерный форум, киберфорум
Microsoft Access
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
9108 / 6037 / 590
Регистрация: 27.03.2013
Сообщений: 19,810
1

Закрома

14.07.2014, 08:36. Показов 1163. Ответов 5
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Всем доброго утра!
Возможно вам покажется, что я находясь в отпуске маЮсь дурью, но захотелось привести в порядок свои закрома и сусеки, типа справочники. Не могу осуществить одну из задумок.
Вопрос в чём, не могу реализовать такую возможность как:
Открывается форма - Способы
В ней есть подчиненная форма - фпКатегории (Визуально - КАТЕГОРИИ) с основными и подчиненными полями
Код_Способа
КодСпособа

В заголовке основной формы есть ПолеСоСписком - ПоискКатегории (А-Я)
Хотся при выборе буквы из списка данного элемента, чтоп происходила фильтрация в подчиненной форме по данной букве.
Неделю уже бъюсь не получается.
Если убираю - Подчиненное и Основное поле, то работает по фильтру, а именно так как хотся ни вкакую, весь измучался, помогите пожалуйста, а то у меня ума уже чёйта не хватает.
Вложения
Тип файла: rar Закрома и Сусеки.rar (96.4 Кб, 7 просмотров)
0
Лучшие ответы (1)
4079 / 1459 / 401
Регистрация: 07.08.2013
Сообщений: 3,650
14.07.2014, 09:05 2
подмените recordsource подчиненной формы на recordsource c условием
как-то так

Visual Basic
1
me![фпКатегории].form.recordsource=me![фпКатегории].form.recordsource & " where Категории.Категория like '" & me![Поиск категории].column(1) & "*'"
учтите - писал на коленке - самое главное
соответственно нужны еще проверки на то что выбрана буква или нет, посмотреть события на запуске формы
1
Эксперт MS Access
26815 / 14494 / 3192
Регистрация: 28.04.2012
Сообщений: 15,782
14.07.2014, 09:15 3
Лучший ответ Сообщение было отмечено VinniPuh как решение

Решение

Если правильно понял, то достаточно определить фильтр на событии AfterUpdate поля со списком [Поиск категории] (про замену источника уже сказали)
Visual Basic
1
2
3
4
    With Me.фпКатегории.Form
        .Filter = "[Категория] like '" & Me.ПоискКатегории & "*'"
        .FilterOn = True
    End With
Вложения
Тип файла: rar Закрома и Сусеки.rar (96.8 Кб, 14 просмотров)
1
9108 / 6037 / 590
Регистрация: 27.03.2013
Сообщений: 19,810
14.07.2014, 09:22  [ТС] 4
Цитата Сообщение от snipe Посмотреть сообщение
...подмените...
snipe - Спасибо за участие, но чЁйта не получилось, сам уже думал, что надо как то так, типа отменить а потом присвоить, но т. к. слабоват в этом вопросе, то без реального примера не получается, то ошибки синтаксиса выскакивают, то Акс ваще начинает благим матом на меня ругаться.

Добавлено через 6 минут
Цитата Сообщение от mobile Посмотреть сообщение
...Если правильно понял...

mobile - Да, Да ДААА-А-А-А, это именно то что хотела моя хочуха.
Огромное спасибо!!!
Сегодня я Самый СЧАСТЛИВЫЙ ЧЕЛОВЕК НА ВСЁМ БЕЛОМ СВЕТЕ
Всем ПРЕОГРОМНОЕ СПАСИБИЩЕ!!!
0
4079 / 1459 / 401
Регистрация: 07.08.2013
Сообщений: 3,650
14.07.2014, 11:01 5
вот и мой вариант в коллекцию
Вложения
Тип файла: rar Закрома и Сусеки.rar (97.6 Кб, 32 просмотров)
0
9108 / 6037 / 590
Регистрация: 27.03.2013
Сообщений: 19,810
14.07.2014, 13:09  [ТС] 6
snipe - Спасибо, для меня лично малость потяжеелее для осмысления, , но у меня в закромах всему место найдется,

Добавлено через 1 час 48 минут
Всем пожелавшим помочь - СУПЕР ПЕРЕПУПЕР++++ , даже не представляете как я счастлИВ!!!!!!!
0
14.07.2014, 13:09
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru