Private Sub cmdFiltr_Click()
'Базовая строка запроса (без точки с запятой!!!!!)
'Повторяет источник данных для подчиненной формы

If Me.fUchetIerarxii = True Then

strSQL = "SELECT * FROM sql_head_planirovanie"
'Предложение WHERE
    strSQLWhere = " WHERE ("  'Здесь и далее внимательно относитесь к пробелам, скобкам, кавычкам, дабы не нарушать синтаксис

'Проверяем выключатели, и, если надо, дополняем строку strSQLWhere
'Для текстовых полей лучше использовать LIKE (предварительно объяснив
'оператору назначение подстановочных символов - ну всех не надо, можно только * ;)

'JDV
    If Me![fUchetIerarxii] = True Then
'    Выражение1: test_dnk([Forms]![frm_head_meropriyatiya]![frm_sub_sql_meropriyatiya];[tbl_podrazdeleniya.ID_podrazdeleniya])
        strSQLWhere = strSQLWhere & "([sql_head_planirovanie]![ID_podrazdeleniya] Like '" & test_dnk([Forms]![frm_head_meropriyatiya]![frm_sub_sql_meropriyatiya], [ID_podrazdeleniya]) & "') and "
    End If
    
    If Me![cbo_Indikator_H] <> "" Then
        strSQLWhere = strSQLWhere & "([sql_head_planirovanie]![Indikator] Like '" & Me.[cbo_Indikator_H].[Column](0) & "') and "
    End If
    
    If Me![cbo_ID_tip_meropriyatiya] <> "" Then
        strSQLWhere = strSQLWhere & "([sql_head_planirovanie]![ID_tip_meropriyatiya] Like '" & Me.[cbo_ID_tip_meropriyatiya].[Column](0) & "') and "
    End If

    If Me![cbo_ID_vid_meropriyatiya] <> "" Then
        strSQLWhere = strSQLWhere & "([sql_head_planirovanie]![ID_vid_meropriyatiya] Like '" & Me.[cbo_ID_vid_meropriyatiya].[Column](0) & "') and "
    End If
    
    If Me![cbo_urovni] <> "" Then
        strSQLWhere = strSQLWhere & "([sql_head_planirovanie]![urovni] Like '" & Me.[cbo_urovni].[Column](0) & "') and "
    End If
    
    If Me![txt_Podrazdelenie] <> "" Then
        strSQLWhere = strSQLWhere & "([sql_head_planirovanie]![Sokraschennoe_naimenovanie] Like '" & Me![txt_Podrazdelenie] & "') and "
    End If
    
   
    If Me![txt_sotrudnik] <> "" Then
        strSQLWhere = strSQLWhere & "([sql_head_planirovanie]![Ответственный] Like '" & Me![txt_sotrudnik] & "') and "
    End If

    If Me![txt_s_data] <> "" Then
'    ДатаНачалаПериода <= ДатаОкончания And ДатаОкончанияПериода >= ДатаНачала
'        strSQLWhere = strSQLWhere & "[sql_head_planirovanie]![DataS] <= CDate ('" & Me!txt_po_data & "') and  CDate ('" & Me!txt_po_data & "')<= [sql_head_planirovanie]![DataPo] and "
        strSQLWhere = strSQLWhere & " CDate ('" & Me!txt_s_data & "')<= [sql_head_planirovanie]![DataPo] and CDate ('" & Me!txt_po_data & "')>= [sql_head_planirovanie]![DataS] and "

 
 End If
If Nz(txt_id_podrazdeleniya.Value) = "" Then

    MsgBox ("Внимание! Введите подразделение!")
    Exit Sub
End If

'Функция для фильтрации данных в Мероприятиях
Public Function test_dnk(long1 As Long, long2 As Long) As Boolean 'l1 - подразделение l2- код подр от сотрудника

Dim long3 As Long
long3 = 1

If long1 = long2 Then   ' это если самый нижний уровень
  test_dnk = True
  Exit Function
End If

test_dnk = False  ' по умолчанию не входит

Do While long3 <> 0
 long3 = Nz(DLookup("Roditel_podrazdeleniya", "podrazdelenie", "ID_podrazdeleniya=" & long2), 0)
   If long1 = long3 Then
    test_dnk = True
    Exit Function
   End If
 long2 = long3
Loop

End Function