Código Não Soma Datas Corretamente

[Guest - Gisele -]

Olá !!

Tenho uma tabela com uma coluna de data e outra de valor. O código abaixo soma os valores das datas selecionadas (De - Até).

Porém, quando tenho uma data cadastrada no banco de dados assim "01/01/2000", por exemplo, o código simplesmente não soma o valor deste dia. De dias como 12/12/2000 ele soma normalmente.

Alguém tem alguma idéia ?

------------------------------------------

query = "Select sum(Valor) As TotalValores FROM tabelacontas Where Data Between #" & de & "# and #" & ate & "#"

Set RS = DB.OpenRecordset(query)

dblValor = RS!TotalValores

lblResultado.Caption = dblValor

Alguém pode me ajudar ? :huh:

[William Rodrigues]

Olá Gisele...

Bom estou sem VB aqui, por isso não terei como te passar o código....

Mas tem um site que tem um tutorial que te ajudará nesse seu pequeno problema....Anota aí:

Macoratti

Espero que esse artigo te ajude...

Abraços,

William Rodrigues

[Graymalkin]

Tente usar a função DateValue('data') ao invés de #data#. Exemplo com a mesma query que você passou:

query = "SELECT SUM(Valor) AS TotalValores FROM tabelacontas WHERE Data>=DateValue('" & de & "' AND Data<=DateValue('" & ate & "')"

Veja se dá certo.

Abraços,

Graymalkin