problemas com datas


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: problemas com datas

CONTAGEM
MG - BRASIL

Postada em 27/05/2004 10:22 hs

' adata = data digitada

If adata = Empty Then adata = Date
Set Banco = OpenDatabase(App.Path & "consultório.mdb")
Set TBL = Banco.OpenRecordset("select * from consulta where data =#" & adata & "#", dbOpenSnapshot)
If TBL.RecordCount <> 0 Then GoTo fim

Bem, estou com um probleminha neste código (ou no resto dele).

Conforme seja a data, mesmo q tenha registro, ele está reportando "0"

o detalhe é que acontece apenas quando o a data está entre os dias 2 e 12 de cada mês.

Antes eu estava usando na tabela (access) as datas como texto, mas como precisei passa-las para data mesmo, começou este problema.

Desde já agradeço se alguém puder me ajudar...

Roßerto

SAO PAULO
SP - BRASIL

Postada em 27/05/2004 10:43 hs

Set TBL = Banco.OpenRecordset("select * from consulta where data =#" & format(adata,"mm/dd/yyyy") & "#", dbOpenSnapshot)

Roberto

CONTAGEM
MG - BRASIL

Postada em 27/05/2004 10:52 hs

Funcionou.

Agradecimentos.

Eu não imaginava q era necessário colocar dessa forma pq declarei a varariável "as date"

Fui....

Roßerto

SAO PAULO
SP - BRASIL

Postada em 27/05/2004 10:56 hs

não é problema de declaração, e sim relacionado ao Access, qdo vc grava um campo
data no Access, ele grava no formato americano.

Capiche ?

Roberto

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR