Boa tarde.

 

tenho uma tabela com um campo texto que recebe um valor de data (ex: 01/01/2000), quero criar um codigo para filtrar todos os registros por periodo, para isso criei duas texs (text1 e text2) nelas digitarei a data inicial e a data final, mas esta dando erro, vejam:

 

CadPatrimonio.Open "Select * From CadBem where DtAquis >= date(" & Year(Text5.Text) & "," & Month(Text5.Text) & "," & Day(Text5.Text) & ") and DtAquis <= date(" & Year(Text2.Text) & "," & Month(Text2.Text) & "," & Day(Text2.Text) & ")", BPatrimonio, adOpenKeyset, adLockOptimistic, adCmdText

 

como poderia corrigir para que filtrasse todos os registros dentro de um determinado periodo.

 

grato pela atenção...

Dim DtIni as String, DtFim As String

DtIni = TxtDiaI & "/" & TxtMesI & "/" & TxtAnoI

DtFim = TxtDiaF & "/" & TxtMesF & "/" & TxtAnoF
 "Select * From CadBem where DtAquis >=#" & DtIni & "# and DtAquis <= #" & DtFim & "#"

 

Tenta ae ve se funfa. Abraços, Sidnei
 

Carlinhos, se a dica do X-Crow não ajudar, tenho um sistema que filtra os registros entre duas datas, com entrada da data inicial e data final por inputbox (com tratamento, para evitar que sejam digitadas letras, ou datas sem "/"). É bem simples, e usa duas variáveis para manipular os registros.

Qualquer coisa, diga no e-mail falv_br@yahoo.com.br.

pp.

faça isso

Select orderdate from dbo.orders where orderdate between '1996-07-04' and '1996-07-09'