[Resolvido]Como criar um controle de saldo automático como extrato de banco

Amigos,

Procurei neste Fórum e em outros, mas não encontrei algo que pudesse responder a minha dúvida.

Preciso fazer um controle de gastos igual ao que vemos nos extratos de banco, de tal forma que o relatório pudesse ficar igual ao que segue:

EXEMPLO:

Data: 01/01/2014
Saldo até esta data: R$ 1.000,00

Data            Discriminação da operação          Saída           Entrada            Saldo
02/01/14      Compra de materiais                     50,00             0,00             950,00
03/01/14      Pagamento de fatura                  100,00              0,00             850,00
04/01/14      Recebimentos diversos                   0,00           500,00           1350,00

Saldo Atual: 1350,00


Alguém poderia me dar uma dica de como fazer para o relatório sair desta forma?

Eu já tenho a tabela com os dados. Eu consigo fazer com que os dados saiam no relatório, mas não consigo gerar um código que faça a coluna de saldo funcionar.

Obrigado.

Sander

Caro Avelino,

Obrigado pelas dicas. Foram muito úteis.
Eu consegui adaptar o exemplo do Relatório rtlMovimentos no meu relatório. Porém, só falta um detalhe para que funcione perfeitamente.

A coluna do Saldo precisa incluir na soma o saldo inicial. Veja abaixo:

EXEMPLO:

Data: 01/01/2014
Saldo até esta data: R$ 1.000,00

Data            Discriminação da operação          Saída           Entrada            Saldo
02/01/14      Compra de materiais                     50,00             0,00             950,00
03/01/14      Pagamento de fatura                  100,00              0,00             850,00

Veja que no primeiro lançamento ele pega o saldo inicial de 1000 menos o valor da saída, ficando 950 e assim sucessivamente. Eu tentei alguns códigos para testar mas não deu certo. Poderia me dar mais essa dica?

Obrigado.

Abraço.

Sander

Caro Avelino,

Eu demorei a responder porque estava tentando seguir a dica que me passou e fazer funcionar do jeito que desejo. Confesso que estou com dificuldade de fazer isso.

EXEMPLO:

Data: 01/01/2014
Saldo até esta data: R$ 1.000,00

Data Discriminação da operação Saída Entrada Saldo
02/01/14 Compra de materiais 50,00 0,00 950,00
03/01/14 Pagamento de fatura 100,00 0,00 850,00

Na primeira linha, referente ao dia 02/01, o saldo será o Saldo Anterior (R$ 1000,00) - a Saída (50,00) = 950,00
Na segunda linha, referente ao dia 03/01. o saldo já será os 950,00 - 100, totalizando 850,00. E assim sucessivamente.
A minha dificuldade é incluir o Saldo Anterior que está em um campo no cabeçalho no cálculo do primeiro lançamento e, partindo daí calcular o saldo das outras linhas.

Desculpe pela insistência. Não sei se me fiz entender, mas acho que é isso.

Valeu.

Sander

Avelino,

Fiz conforme indicou, mas não aparece nada no campo SALDO da área Detalhes.

Por favor, dê uma olhada no código:

Option Compare Database
Option Explicit


Private Sub CabeçalhoDoRelatório_Print(Cancel As Integer, PrintCount As Integer)
Dim Var1 As Double
Var1 = Me!SaldoAnterior
End Sub


Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
Var1 = Var1 + (Me!txtEntrada - Me!txtSaída)
Me!SALDO = Var1 + (Me!txtEntrada - Me!txtSaída)
End Sub


Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
DoCmd.OpenForm "FrmElementosPeríodo2", acNormal, , , , acDialog, [DataInicial]
RtlDatas.Caption = "Período: de " & DataInicial & " a " & DataFinal

Me("RtlSaldoInicial").Caption = Format(Nz(DSum("txtEntrada", "TabGeral", "txtData<#" & Format(DataInicial, "mm-dd-yyyy") & "#"), 0) - Nz(DSum("txtSaída", "TabGeral", "txtData<#" & Format(DataInicial, "mm-dd-yyyy") & "#"), 0), "#,##0.00")
If Me("RtlSaldoInicial").Caption > 0 Then
Me("RtlSaldoInicial").ForeColor = RGB(0, 0, 250)
ElseIf Me("RtlSaldoInicial").Caption < 0 Then
Me("RtlSaldoInicial").ForeColor = RGB(250, 0, 0)
End If

RecordSource = "SELECT * FROM TabGeral WHERE txtOrigem='CONTRATO' and txtData between #" & Format(DataInicial, "mm-dd-yyyy") & "# and #" & Format(DataFinal, "mm-dd-yyyy") & "# ORDER BY txtData,NumRecibo;"

End Sub

Avelino,

Fiz conforme orientou, mas quando salvo, fecho o relatório e abro novamente para testar, aparece uma mensagem de erro:

Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
Var1 = Var1 + (Me!txtEntrada - Me!txtSaída)
Me!txtSaldo = Var1
End Sub

Aparece a mensagem:
Erro em tempo de execução '2448'
Você não pode atribuir um valor a este objeto.

Ele está se referindo à linha Me!txtSaldo=Var1

Avelino,

Eu consegui resolver. O problema foi que o campo txtSaldo estava acoplado à tabela. Eu desacoplei e daí funcionou beleza.

Agradeço muito sua ajuda. Foi muito valiosa.

Abração.

Sander