[Resolvido]converter String para Date

Boa tarde!

Tenho um campo do tipo string que armazena data e preciso converter para comparar com uma textbox .

estou usando o Conversion.Cdate mas não esta funcionando sempre usei em outras situacoes mas nunca em uma string sql.

já tentei dessa forma...
strSql = SELECT... Where Conversion.Cdate(Tbl.StrData) >= '" & Conversion.CDate(Txt_Data) & "' "

dessa...
SELECT... Where Cdate(Tbl.StrData) >= '" & Conversion.CDate(Txt_Data) & "' "


Tentei também usando o # & Format que encontrei em alguns exemplos aqui no fórum mas nenhum deu certo.


Obrigado pela atenção !

Teste assim;

DateSerial(Left(SeuCampoData, 2), Mid(SeuCampoData, 5, 2), Right(SeuCampoData, 4))

Boa Tarde JPaulo!

Testei e continua a dar o mesmo erro Parâmetro insuficiente.

select ... Where DateSerial(Left(Tbl.strData,2),Mid(Tbl.strData.Tem_Dt_Inicio,5,2),Right(Tbl.strData,4)) >= '" & Conversion.CDate(Txt_Data) & "' "

Olá

Lá na sua tabela, o campo StrData é de que tipo ? Data ou string ?

Aguardamos

Boa tarde Avelino!
Do tipo string.

Para dar certo o uso do Cdate é preciso saber se strdate esta sendo gravado com a barra "/". Se vc faz uso de máscara no campo, pode ser que não esteja gravado a barra.

Se vc faz uso da máscara o valor fica gravado assim: 15012013

Para saber como está de fato gravado, experimente usar valor fixo na consulta. Exemplo - use uma data que vc sabe que existe:

strSql = "SELECT... Where StrData = '15012013'"

ou

strSql = "SELECT... Where Cdate(StrData) = #15/01/2013#"

Aguardamos

Pelo teste que fiz está sendo gravado com "/"

fiz o teste dessa forma..
select Tem_Dt_Inicio from Tbl_Tempo_Impacto_Manutencao where CDate(Tem_Dt_Inicio) =#18/04/2012 12:30:00#


e retornou
18/04/2012 12:30:00


Cumprimentos!

Alguem tem alguma sugestao?

conseguir montrar a instrucao SQL e nao esta dando erro mais mas agora nao traz os dados corretamente.

Acredito que seja poque na tabela o campo é gravado com horas Ex. 18/04/2012 12:30:00

Ja na caixa de texto onde o usuario escolhe a data é atraves de um controle de calendario que nao tem as horas isso pode influenciar na condicao ?

Obrigado !

Rafael,

Tente utilizar: ValData ou DateValue([Seu Campo data]), essa função vai trazer somente a data e caso ela seja string ira transformar em data.

Abs.

Obrigado Pela atencao Nosbor

Mas nao funcionou...

If Me.Txt_Data <> "" Then
Comando = Comando & " and (ValDate(Tbl.Campo_Dt_Inicio)) > '" & ValDate(Txt_Data) & "' "
End If

ValData no VBA do Ms Access não funciona nem nunca funcionou.


CDate(Campo)

Ou

DateValue(Campo)

Obrigado Jpaulo e Nosbor.

Conseguir resolver da seguinte forma

Where Cdate(Tabela.Dt_Inicio) > Cdate('" & Txt_Data & "')


Obrigado pela ajuda!