Desculpem-me por retornar ao tema, mas ainda não conseguí uma solução para o meu problema. Já tenho um form criado, com campos de Valor e Data da Compra. Tenho ainda um filtro criado em SQL, que separa os registros dentro de um intervalo de datas. Estou precisando definir um meio de somar tudo que foi digitado no campo valor, dentro desse intervalo que a instrução SQL separou.

Exemplo:

Data                  Valor_Compra

22/01/2005          R$ 100,00

24/01/2005          R$ 250,00

25/01/2005          R$   70,00

27/01/2005          R$   80,00

29/01/2005          R$   30,00

 

Como mandei o sistema filtrar as compras entre 25/01/2005 e 30/01/2005, preciso que o sistema exiba o resultado (pode ser numa msgbox), informando que as compras do período escolhido totalizaram R$ 180,00.

Chico.

eu costumo fazer assim: vc tem o numero de registro retornado pelo SELECT entao faz um loop somando o campo q vc quer e no fim atribui a um controle ou msgbox.

 for i = 1 to rs.recoutcont

           valor = valor + valor!rs

           rs.movenext

 for next

         text1.text = valor 'VALOR é uma VAR

Alf, em primeiro lugar, obrigado pela dica.

A rotina que vc passou roda no Visual Basic 5?

Quanto à rotina, tenho que declarar alguma variável RS?  No final do loop (i), é <for next> mesmo, ou apenas <next>?

Agradeço novamente.

Chico.

 

 

 

 

 

 

 

 

 

 

 

 

Private Sub Command1_Click()
Dim i As Integer
Dim Valor, Total As Currency ' declarada tipo moeda
'Rs e o recordset/tabela
'depois que vc fizer o SELECT o teu recordset retornará
'os registros selecionados, e na propriedade recordcount
'a quantidade, entao fazemos um loop
   For i = 1 To 10 'tira o 10 e coloca Rs.Recorcount
       Total = Valor + i ' tira o I e poe o campo da tabela pra somar
       'Rs.movenext ===>habilita essa linha, esse comando passa registro a registro da tabela
   Next i
      MsgBox Format(Total, "##,##0.00") 'mostra a VAR valor com o total
End Sub

Valeu, Alf. Muito obrigado.

Vou adaptar a rotina no meu project.

chico.

Chico, quando vc faz a consulta pelo sql provavelmente vc faz assim

 

SELECT * FROM TABELA WHERE DATA BETWEEN CAMPO1 AND CAMPO 2

 

certo ?

 

vc poderia fazer o SQL fazer já a soma para vc, sem precisar de outra rotina para fazer a soma.