[Resolvido]Pesquisa entre datas SQL

Prezados

Estou tentando montar um codigo para meu BD para a exportação de um relatório para o excel.

O relatório devera ser exportado com base em uma consulta e filtrado por dois campos entre datas, o di que é a data inicial do filtro e df data final do filtro.

O codigo para exportar para o excel eu testei sem tentar colocar o filtro e funcionou bem, porém de diversas forma aplicar o filtro usando between entre outras pesquisas aqui no forum porem nao funcionou, por ultimo tentei a sugestão do HARYSOHN (https://www.maximoaccess.com/t4001-resolvidosql-com-filtro-entre-datas), se alguém puder me ajudar segue a minha proposição:

Private Sub btexcel_Click()
Dim objAPP As Object
Dim objwk As Object
Dim objSh As Object
Dim Rs As DAO.Recordset

Set rst = CurrentProject.Connection.Execute("SELECT *,'cstl_RelMASU' FROM cstl_RelMASU WHERE cstl_RelMASU.data = " & And (data >=#" & Format(Me.di, "mm/dd/yyyy") & "# And data <= #" & Format(Me.df, "mm/dd/yyyy") & "#)"

Set objAPP = CreateObject("Excel.application")

objAPP.Workbooks.Open Me.local

Set objwk = objAPP.Workbooks.Add

Set objSh = objwk.ActiveSheet

Set Plan = objAPP.Worksheets(1)

objAPP.Visible = True

objAPP.Workbooks.Open Me.local

objAPP.Sheets("DEMANDAS").SELECT

objAPP.Cells(4, 3).CopyFromRecordset rst

End Sub

Bom dia!

Veja se alterando para o trecho abaixo, se dar certo! ;)

Código:

"SELECT *, 'cstl_RelMASU' FROM cstl_RelMASU WHERE (cstl_RelMASU.data >= #" & Format(Me.di, "dd/mm/yyyy") & "# And cstl_RelMASU.data <= #" & Format(Me.df, "dd/mm/yyyy") & "#)"

Boa tarde,
Porque ainda não respondeu ao colega?
Veja se serve
Set rst = CurrentProject.Connection.open("SELECT * FROM cstl_RelMASU WHERE data between #" & Format(Me.di, "mm/dd/yyyy") & "# And #" & Format(Me.df, "mm/dd/yyyy") & "#)"

prezados,

Desculpe a demora em responder...

Topico resolvido