ERRO EM CONSULTA SQL

DAVERSON 11/09/2006 16:57:55
#170708
estou recebendo a seguinte mensagem de erro em meu programa...
mas não estou conseguindo idenifica-lo...

Dim dF1 As String
Dim dF2 As String


dF1 = Format(txtFecIni, "dd/MM/yyyy")
dF2 = Format(txtFecFin, "dd/MM/yyyy")

cT = "SELECT Invoice.[Invoice Date], Sum(Invoice.Amount) AS Vendas From Invoice WHERE Invoice.[Invoice Date] beetwend '" & dF1 & "' and '" & dF2 & "' GROUP BY Invoice.[Invoice Date]"

If rs.State = adStateOpen Then rs.Close
rs.Open cT, con

Do Until rs.EOF

dFe = Format(rs![invoice date], "##-##-####")
Call AsignaVentas(Weekday(dFe), rs!vendas)
rs.MoveNext
Loop

BANCO ACCESS E VB 6
LIONHEART 11/09/2006 17:00:53
#170710
WHERE Invoice.[Invoice Date] [txt-color=#ff0000]beetwend[/txt-color]

troca por BETWEEN
USUARIO.EXCLUIDOS 15/09/2006 01:11:13
#171599
Experimenta em vez de ...

dFe = Format(rs![invoice date], "##-##-####")

Assim...

dFe = Format$(rs![invoice date], "mm/dd/yyyy")

At,
DAVERSON 15/09/2006 10:06:18
#171638
APENAS PRA INFORMAR A ALGUN INTERESSADO

A RESOLUÇÃO DO PROBLEMA FOI...

cT = "SELECT [Invoice Date], Sum([Amount]) as Vendas from Invoice Where [Invoice Date]>=#" & Format(dF1, "mm/dd/yyyy") & "# and [INVOICE DATE]<=#" & Format(dF2, "mm/dd/yyyy") & "# GROUP BY INVOICE.[Invoice Date]"

GRATO A TODOS PELA AJUDA...

PRINCIPALMENTE AO AMIGO Alexandre Cardoso...
que ajudou na solução do Problema
Tópico encerrado , respostas não são mais permitidas
Voltar