LOOP NAO FUNCIONAR

FILMAN 14/04/2012 18:36:05
#399884
Lembrando que essa rotina sua retorna somente a soma do ultimo vencimento encontrado no agrupamento para retornar todos faça o seguinte

Adicione um componente LISTBOX no FORM e coloque a função abaixo em um botão somente para teste depois se gostar implemente no projeto


Dim SQL As String, Total As Double
Dim DtSistemas As Date

DtSistemas = Format(Now, [Ô]dd/MM/yyyy[Ô])
Total = 0

SQL = [Ô]Select Count(Id_Dsp) As Vencdas, Sum(Vlr_Lanca) As Valor, Vlr_Lanca, Dt_Venct From Tb_Despdeb Where Stat_Desc =[ô]A Pagar[ô] Group by Vlr_Lanca, Id_Dsp, Dt_Venct[Ô]
Rst.Open SQL, Conexao, 3

List1.Clear
If Not Rst.EOF Then
    Do While Not Rst.EOF
        If CDate(Format(Rst!Dt_Venct, [Ô]dd/MM/yyyy[Ô])) < CDate(Format(DtSistemas, [Ô]dd/MM/yyyy[Ô])) Then
            List1.AddItem Format(Rst!Dt_Venct, [Ô]dd/MM/yyyy[Ô]) & vbTab & [Ô]R$[Ô] & Format(Rst!Vlr_Lanca, [Ô]#,##0.00[Ô])
            Total = Total + CDbl(Rst!Valor)
        End If
        Rst.MoveNext
    Loop
    
    List1.AddItem [Ô][Ô]
    List1.AddItem [Ô]Total de Despesas: [Ô] & [Ô]R$[Ô] & Format(Total, [Ô]#,##0.00[Ô])
End If

If Rst.State <> 0 Then Rst.Close: Set Rst = Nothing
Página 2 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar