[Resolvido]Soma de uma Coluna

Option Compare Database
Dim dblFinanceiro As Double
Dim dblHoraAcumEfetTotal As Double
Dim dblHoraAcumEfetAusen As Double
Dim dblHoraAcumEfetPrese As Double

Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
dblFinanceiro = dblFinanceiro + Me!Financeiro
dblHoraAcumEfetTotal = dblHoraAcumEfetTotal + Me!Texto40
dblHoraAcumEfetAusen = dblHoraAcumEfetAusen + Me!Texto38
dblHoraAcumEfetPrese = dblHoraAcumEfetPrese + Me!Texto39
End Sub

Private Sub RodapéDoRelatório_Print(Cancel As Integer, PrintCount As Integer)
Me!TotalFinanceiro = dblFinanceiro
Me!Texto29 = dblHoraAcumEfetTotal
Me!Texto30 = dblHoraAcumEfetAusen
Me!Texto31 = dblHoraAcumEfetPrese
dblHoraAcumEfetTotal = 0
dblHoraAcumEfetAusen = 0
dblHoraAcumEfetPrese = 0
End Sub


Passe a propriedade FORMATO dos campos de NÚMERO GERAL para FIXO

Para se aprimorar na programação em relatório, veja este meu artigo:

Vídeo - Programação de relatórios - Parte 1

Sucesso!