Фильтр с Подчиненной формы в другую подчиненную

[nikolaynn2008]

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

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

Вот код который я использую...

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

Заранее спасибо!

[Aleksandr H.]

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