Добрый день, необходимо в качестве источника данных для отчета сделать динамический запрос. на форме вызова отчета должно быть реализовано условия фильтрации для вывода данных.
например ограничение по датам.

Вот то что прописано на открытие отчета

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 "Çàïðîñ_"
           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

мне нужно чтоб данные для параметров брались из значений указанных в форме "Форма" , а у меня почему то параметры запрашивает все равно, хотя значения параметров я указала в коде. Прошу указать на мою ошибку.

http://www.sql.ru/forum/1260926/zapros-s-parametrami-iz-dannyh-formy