rivate Sub Report_Load()

Dim db As DAO.Database
Dim ds As DAO.Recordset
Set db = CurrentDb
Dim rsQuery As DAO.QueryDef

Dim strSQL As String

strSQL = " SELECT Отказы.Время, Отказы.ID, Отказы.[Наименование отказавшего оборудования], Отказы.[Описание отказа ], Отказы.СЗМН, НПС.НПС, Отказы.[Дата ], Отделы.NameOtdel" _
& " FROM (НПС INNER JOIN Отказы ON НПС.ID = Отказы.ID) INNER JOIN Отделы ON Отказы.IDOtdel = Отделы.IDOtdel"

If Forms![УсловияПечати].Группа10 = 1 Then
    strSQL = strSQL + " order by [Дата]"
ElseIf Forms![УсловияПечати].Группа10 = 2 Then
     strSQL = strSQL + " order by [НПС]"
End If
   
For Each rsQuery In CurrentDb.QueryDefs
        If rsQuery.Name = "Запрос_" Then
              CurrentDb.QueryDefs.Delete "Запрос_"
           Exit For
        End If
    Next


Set rsQuery = CurrentDb.CreateQueryDef("Запрос_", strSQL)

Me.Requery
'Me.Filter = "Отказы.[Дата ]>=#" & Format(Forms![УсловияПечати].Dat1_, "mm\/dd\/yy") & "# And Отказы.[Дата ]<=#" & Format(Forms![УсловияПечати].Dat2_, "mm\/dd\/yy") & "#"
'Me.FilterOn = True

End Sub

Private Sub Report_Load()


Me.Filter = "Отказы.[Дата ]>=#" & Format(Forms![УсловияПечати].Dat1_, "mm\/dd\/yy") & "# And Отказы.[Дата ]<=#" & Format(Forms![УсловияПечати].Dat2_, "mm\/dd\/yy") & "#"
Me.FilterOn = True

Me.OrderByOn = False
If Forms![УсловияПечати].Группа10 = 1 Then
    Me.OrderBy = "Отказы.[Дата ] DESC"
ElseIf Forms![УсловияПечати].Группа10 = 2 Then
    Me.OrderBy = "НПС.НПС DESC"
End If
 Me.OrderByOn = True
Debug.Print Me.OrderBy;
 Me.Requery

End Sub