Private Sub Report_Load()


Dim db As DAO.Database
Dim rstData As DAO.Recordset
Dim strSQL As String
Dim rsQuery As DAO.QueryDef
Dim par1, par2 As DAO.Parameter

   SELECT т1.поле1 т2.поле 2, т2.поле3, т1.поле4 FROM т1, т2" _
   & " WHERE  т1.поле1 =  т2 .поле1 and  (т1.поле4>= [par1]) And ( т1.поле4 <=[par2]) 

For Each rsQuery In CurrentDb.QueryDefs
        If rsQuery.Name = "Запрос_" Then
              CurrentDb.QueryDefs.Delete "&#199;&#224;&#239;&#240;&#238;&#241;_"
           Exit For
        End If
    Next


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

  rsQuery.Parameters("par1").Value = CDate(Format(Forms![Форма].Dat1_, "mm\/dd\/yy"))
  rsQuery.Parameters("par2").Value = CDate(Format(Forms![Форма].Dat2_, "mm\/dd\/yy"))


Me.RecordSource = "Запрос_"
rsQuery.Close: Set rsQuery = Nothing
CurrentDb.Close
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