If Not (IsNull(Me.ДатаСозданияДопЗаданияС) Or Me.ДатаСозданияДопЗаданияС = "") And Not (IsNull(Me.ДатаСозданияДопЗаданияПо) Or Me.ДатаСозданияДопЗаданияПо = "") Then
    arrWHERE(10) = " [ДатаСозданияДопРЗ] >= #" & Format$(Me.ДатаСозданияДопЗаданияС, "mm\/dd\/yyyy") & "# AND " & _
                    " [ДатаСозданияДопРЗ] < #" & Format$(Me.ДатаСозданияДопЗаданияПо + 1, "mm\/dd\/yyyy") & "#"
    
    strLnkMtrFld = strLnkMtrFld & ";" & "ДатаСозданияДопРЗ"
    strДатаСозданияДопРЗ = arrWHERE(10)
    
  ElseIf Not (IsNull(Me.ДатаСозданияДопЗаданияС) Or Me.ДатаСозданияДопЗаданияС = "") And (IsNull(Me.ДатаСозданияДопЗаданияПо) Or Me.ДатаСозданияДопЗаданияПо = "") Then
    arrWHERE(10) = " [ДатаСозданияДопРЗ] >= #" & Format$(Me.ДатаСозданияДопЗаданияС, "mm\/dd\/yyyy") & "# AND " & _
                    " [ДатаСозданияДопРЗ] < #" & Format$(Me.ДатаСозданияДопЗаданияС + 1, "mm\/dd\/yyyy") & "#"
    
    strLnkMtrFld = strLnkMtrFld & ";" & "ДатаСозданияДопРЗ"
    strДатаСозданияДопРЗ = arrWHERE(10)
    
  Else
    arrWHERE(10) = "": strДатаСозданияДопРЗ = Empty
  End If

    strSQL = "SELECT DISTINCT звПоиск.КодЗаявки, " & _
              "звПоиск.НомерЗаявки, звПоиск.ДатаРегистрацииЗаявки, " & _
              "звПоиск.СтатусЗаявки, звПоиск.ДатаЗакрытияЗаявки, звПоиск.СостояниеЗаявки, " & _
              "звПоиск.КолДнПросрочкиЗаявки, звПоиск.Инициатор, звПоиск.ТипОбращения, " & _
              "звПоиск.ОписаниеПроблемы, звПоиск.КлассификацияЗаявки, звПоиск.Ведомство, " & _
              "звПоиск.Примечание, звПоиск.Куратор, звПоиск.Исполнитель, звПоиск.ДатаЗаписиЗаявки, " & _
              "звПоиск.ВыбратьЗаявку, звПоиск.ДатаПоступленияДГУ, звПоиск.РешениеДГУ, " & _
              "звПоиск.ДатаПринятияРешенияДГУ, звПоиск.ДатаСозданияРодРЗ, звПоиск.НомерРодРЗ, " & _
              "звПоиск.КлассификаторРодРЗ, звПоиск.СтатусРодРЗ, звПоиск.ДатаЗавершенияРодРЗ, " & _
              "звПоиск.СостояниеРодРЗ, звПоиск.КолДнПросрочкиРодРЗ, " & _
              "CLng(" & lngНомерДопРЗ & ") AS НомерДопРЗ, " & _
              "CLng(" & lngПодразделение & ") AS Подразделение_cbx, " & _
              "CStr('" & strДатаСозданияДопРЗ & "') AS ДатаСозданияДопРЗ, " & _
              "CStr('" & strДатаЗавершенияДопРЗ & "') AS ДатаЗавершенияДопРЗ, " & _
              "CStr('" & strСостояниеДопРЗ & "') AS СостояниеДопРЗ" & _
              " FROM звПоиск WHERE " & strWHERE
    
    Me.Controls("фпПоискЗаявок").Form.Controls("фпПоискМИЦОВИВ").LinkMasterFields = strLnkMtrFld
    Me.Controls("фпПоискЗаявок").Form.Controls("фпПоискМИЦОВИВ").LinkChildFields = strLnkMtrFld
    Me.фпПоискЗаявок.Form.RecordSource = strSQL