Amigos

Estou tentando realizar uma consulta na minha tabela no campo data para que ela me retorne os registros referidos a minha consulta, onde eu informo a data inicial e final. Porém se tiver mais de um mês abaixo ele me traz todos os registros do campo alem dos que pedi. O que fazer aqui segue. a minha rotina...

 dtl.RecordSource = "SELECT * from mov WHERE data >= #" & Format$(CDate(dtd.Value), "MM/dd/yyyy") & "# AND data <= #" & Format$(CDate(dtat.Value), "MM/dd/yyyy") & "# ORDER BY pedido,data;"
  dtl.Refresh

SQL = "Select * FROM SuaTable Where SeuCampo BETWEEN  '" & Format(Text1, "mm/dd/YYYY") & "'  AND  '" & Format(Text2, "mm/dd/YYYY") & "'
 Order by SeuCampo"

Como vc dixz quando tem mais de um mês ai aparece tudo.Coloque mais um filtro com:

SQL = "Select * FROM SuaTable Where SeuCampo BETWEEN  '" & Format(Text1, "mm/dd/YYYY") & "'  AND  '" & Format(Text2, "mm/dd/YYYY") & "'
And  Seucampo mes ou outro campo que possa fazer refino = '" & Abril ou text3.text & "' Order by SeuCampo".

Cuidado com aspas duplas e simples se for "Access"

 

dtl.RecordSource = "SELECT * from mov WHERE data BETWEEN #" & Format$(CDate(dtd.Value), "MM/dd/yyyy") & "# AND #" & Format$(CDate(dtat.Value), "MM/dd/yyyy") & "# ORDER BY pedido,data;"

VLU//

Caros amigos descobri um programa antigo que tinha feito em VB3 e que naquela epoca tinha passado pelo mesmo dilema, mas tinha superado. E Cosegui superar. Agradeço o esforço de todos. Aqui segue a forma de como consegui listar o conteudo do campo dada para saber a data inicial e final da minha consulta.

dtl.RecordSource = "Select * from mov where ccur(cdate(DATA)) BETWEEN #" & Format(CCur(CDate(dtd.Value)), "mm/dd/yyyy") & "# AND #" & Format(CCur(CDate(dtat.Value)), "mm/dd/yyyy") & "# order by pedido,data"
        dtl.Refresh

A do LCRamos chegou bem proximo quando vi a resposta dele com a rotina que encontrei. Pessoal valew!!!!

Um detalhe, se o campo consultado é do tipo Date, não precisa do ccur.

 

vlu//