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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 31.10.2016, 15:41   #1
nikolaynn2008
Пользователь
 
Аватар для nikolaynn2008
 
Регистрация: 17.03.2016
Сообщений: 77
По умолчанию Фильтр с Подчиненной формы в другую подчиненную

Всем привет....Подскажите пожалуйста,
Пытаюсь сделать фильтр с одной подчиненной формы в другую...
И чего то не получается...

Нужно чтоб при нажатии в списке групп фильтровались данные подгруппы!

Вот код который я использую...
Код:
Private Sub Group_Type_Click()
Dim SQL As String
SQL = "SELECT " & _
"SubGroup.[_id], SubGroup.Group_id, SubGroup.SubGroup_type " & _
" FROM SubGroup; " & _
" WHERE (((SubGroup.Group_id)= 'Me.ID' );"


Forms![Групы]![SubGroup] = SQL
Forms![Групы]![SubGroup].Requery
End Sub
Заранее спасибо!
Изображения
Тип файла: jpg группа.jpg (88.4 Кб, 127 просмотров)
Вложения
Тип файла: zip База.zip (507.3 Кб, 12 просмотров)
...

Последний раз редактировалось nikolaynn2008; 31.10.2016 в 15:46.
nikolaynn2008 вне форума Ответить с цитированием
Старый 01.11.2016, 16:47   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
Private Sub Group_Type_Click()
    Dim SQL As String
    On Error GoTo erh
    SQL = "SELECT " & _
    "SubGroup.[_id], SubGroup.Group_id, SubGroup.SubGroup_type " & _
    " FROM SubGroup " & _
    " WHERE (SubGroup.Group_id = " & [_id] & " );"
    
exit_label:
    Form_SubGroup.RecordSource = SQL
    Form_SubGroup.Requery
    Exit Sub
    
erh:
    SQL = "SELECT " & _
    "SubGroup.[_id], SubGroup.Group_id, SubGroup.SubGroup_type " & _
    " FROM SubGroup;"
    Resume exit_label
    
End Sub
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Выборка в подчиненной форме 2 из формы 2 по выбранному значению в подчиненной форме 1 из формы 1 Slava08707 Microsoft Office Access 3 22.06.2016 12:44
Фильтр при загрузке в подчиненной форме Access nikolaynn2008 Microsoft Office Access 4 12.06.2016 13:23
Перекрытие родителем подчиненной формы. Alex Cones Общие вопросы Delphi 2 08.05.2010 16:44
Обновление данных подчиненной формы из другой подчиненной формы smoky Microsoft Office Access 2 15.08.2009 15:28