[Resolvido]Ajuda Relatorio Somar por Página

Tenho um relatório que chega a ter 30 paginas e soma no final valores, mas gostaria de somar por folha e no final a soma geral, alguém pode me indicar o meio mais fácil ou um exemplo de como fazer isso.

Olá

Caso não consiga, veja este meu tutorial, que possui um exemplo.

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

Bom estudo!

Avelino muito obrigado bons exemplos mas nao para me atender, preciso q some por folha relatorio de varias folhos com valores para serem somados por folha e no final soma total que ja funciona mas por folha nao.

Amigão já que nem uma das opções anteriores conseguiram lhe esclarecer as duvidas, então disponibilise essa parte do seu banco de dados para melhor podermos ajudar.

O Relatório "rltMovimento", apresentado no exemplo, faz exatamente isso.

Tenho uma curiosidade: Assistiu a vídeo-aula ? Se assistir talvez tenha uma grande chance de resolver a questão.

Mesmo assim se, não resolver, volte e forneça um exemplo, conforme lhe foi solicitado

Aguardamos

Amigo Avelino vc deve esta confundindo porque o relatório que me falo não e o que preciso.
Pois bem companheiros aq esta meu banco http://www.4shared.com/rar/dRaucTI9/file.html?
Precisa apenas criar uma pasta no C:\reabilitar e colocar os dois la dentro e ta ok
Pagina de Login foi aproveitada de um companheiro que estava fazendo um programa de contabilidade me parece, e adorei e usei ela neste sisteminha.

Usu: saymon senha: 151741 e o redatorio que preciso e o fatura Fisioterapia Desejo que some pagina, a referencia de qual data vcs vao usar esta na tabela fisioHorario as datas ai contidas sao a referencia para buscar ok

Espero que tenham entendido e que me respondam com rapidez.

Muito Obrigado a todos

Pois bem companheiros aq esta meu banco https://dl-web.dropbox.com/get/Reabilitar.rar?w=b037c61b
Precisa apenas criar uma pasta no C:\reabilitar e colocar os dois la dentro e ta ok
Pagina de Login foi aproveitada de um companheiro que estava fazendo um programa de contabilidade me parece, e adorei e usei ela neste sisteminha.

Usu: saymon senha: 151741 e o redatorio que preciso e o fatura Fisioterapia Desejo que some pagina, a referencia de qual data vcs vao usar esta na tabela fisioHorario as datas ai contidas sao a referencia para buscar ok

Espero que tenham entendido e que me respondam com rapidez.

Muito Obrigado a todos

Jou este link também esta dando erro de nº (403)



tente mandar seu arquivo pelo speedyshare, ele é bem facil de usar.

http://www.speedyshare.com/

Eita novela viu falta que faz megauploud

http://speedy.sh/eCcss/Reabilitar.rar

Jou, tudo isso para tentar lhe ajudar.

Uso access 2010.

Dos relatórios os que não abre no meu pc devido não aparecer informação no formulário de pesquisa são:

faturateste fonte não encontrada ou seja esta faltando uma tabela ou consulta para fazer o vinculo.

Relatorio_Fatura e Relatorio_Fatura_Ortopedia

Segui uma imagem para você colocar o código no rodapé da página, creio que vai dar certo.

Colega João afonso muito obrigado por tentar viu cara uso o office 2003, essa tentativa sua foi feita porem nao soma por pagina so na ultima ele traz o resultado preciso por pagina.

mas valeu a importância que me deu

Olá

Vou lhe oferecer uma solução, que está no código abaixo. A explicação está na minha vídeo-aula proposta.

Código:

Option Compare Database
Option Explicit
Dim TotalPagina As Double

Private Sub CabeçalhoDaPágina_Print(Cancel As Integer, PrintCount As Integer)
TotalPagina = 0
If Me.Page = 1 Then Me!Texto191 = 0
End Sub

Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
TotalPagina = TotalPagina + Me!Texto173
End Sub

Private Sub Report_Activate()
    DoCmd.Maximize
    If DCount("*", Me.RecordSource) = 0 Then
    MsgBox "Não há dados para este relatório. Cancelando o relatório...", vbCritical, ""
    DoCmd.Close acReport, "Relatorio_Fatura"
    End If
End Sub
Private Sub Report_Open(Cancel As Integer)
    DoCmd.OpenForm "Dialogo_Fatura", , , , , acDialog, "Relatorio_Fatura"
    DoCmd.Maximize
End Sub

Private Sub RodapéDaPágina_Print(Cancel As Integer, PrintCount As Integer)
'Me!Texto191 = Nz(Me!Texto191, 0) + TotalPagina 'Ative esta linha se quiser acumular os valores a cada página
Me!Texto191 = TotalPagina 'Total de cada página sem somar a página anterior
End Sub

Bom estudo!

Norbs essa soma e pedia pelo cliente se isso esclarece sua pergunta.

Enviei o sistema para o senhores dar um olhada alguem nao conseguiu ver o que queria, sera que nao expliquei direito ou nao acessaram a opção certa de relatorio.

se minha explicação estiver vaga favor dizer que explico novamente.

Amigo Avelino pode me enviar este exemplo do qual me mandou o codigo.

Norbs e Avelino o codigo nao funcionou nao o relatorio começou a nem abrir paginas, e quando fui estudar o codigo nao vejo referencias como texto191 ou texto193.


poderia acoplar o codigo no meu exemplo que enviei

se possivel obrigado

Agradecer ao amigo Avelino o código dele depois de uma profunda analize deu certo muito obrigado.