MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Relatório com subtotal por pagina

    darlansandro
    darlansandro
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 03/05/2014

    [Resolvido]Relatório com subtotal por pagina Empty [Resolvido]Relatório com subtotal por pagina

    Mensagem  darlansandro Qua 8 Out 2014 - 13:31

    Boa tarde,

    Estou tentando criar um relatório de estoque o qual possui um campo chamado "total". Preciso somar este campo por página no relatório, ou seja, cada pagina existirá um subtotal. Já tentei varias formas mais não conseguir. Alguem tem alguma sugestão ou exemplo.

    Grato desde já,
    LiveBrain
    LiveBrain
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

    [Resolvido]Relatório com subtotal por pagina Empty Re: [Resolvido]Relatório com subtotal por pagina

    Mensagem  LiveBrain Qua 8 Out 2014 - 15:41

    Opa Darlan, eu faria da seguinte forma

    no VBA do seu relatório após a linha de Option Compare Database vc coloca
    Código:
    Dim intCount as Integer

    depois na ação "Ao Imprimir" do Detalhe do Relatório você coloca
    Código:
    intCount = intCount + 1

    na ação "Na Página" você coloca
    Código:
    intCount = 0



    e para finalizar no rodapé da sua página, você insere uma Caixa de Texto e a renomeia (Ex. txtContar), na Ação Ao Imprimir do rodapé da pagina voce coloca

    Código:
    txtContar=intCount



    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"
    darlansandro
    darlansandro
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 03/05/2014

    [Resolvido]Relatório com subtotal por pagina Empty Ainda não deu certo

    Mensagem  darlansandro Qui 9 Out 2014 - 4:45

    Obrigado Live pela ajuda. Conforme você orientou-me eu corrigir, entretanto ainda não deu certo. Estou postando o banco aqui. Bem se houver disponibilidade de sua parte, gostaria de um auxilio. Nele consta o código que você indicou.

    Código:

    Option Compare Database
    Dim intCount As Integer


    Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
    intCount = intCount + 1
    End Sub

    Private Sub RodapeDaPagina_Format(Cancel As Integer, FormatCount As Integer)
    intCount = txttotal
    txtSubtotal = intCount
    End Sub


    Grato,
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7189
    Registrado : 15/03/2013

    [Resolvido]Relatório com subtotal por pagina Empty Re: [Resolvido]Relatório com subtotal por pagina

    Mensagem  ahteixeira Qui 9 Out 2014 - 5:48

    Olá a todos,
    Normalmente costumo fazer da seguinte forma, criando uma caixa de texto nova com a origem de dados igual ao campo pretendido e no separador dados coloco soma parcial. Normalmente este campo fica escondido na linha de detalhe.

    [Resolvido]Relatório com subtotal por pagina 2wqs60z

    Na caixa de texto do rodapé é só dizer que é igual ao campo escondido.

    Link do teste: https://meocloud.pt/link/d9bf6509-9238-4cfc-929b-6dcbef460015/inventario.zip/

    Abraço
    darlansandro
    darlansandro
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 03/05/2014

    [Resolvido]Relatório com subtotal por pagina Empty Resolvido

    Mensagem  darlansandro Qui 9 Out 2014 - 5:57

    Obrigado ahteixeira, conseguir resolver e aprender. A solução foi perfeita.

      Data/hora atual: Sab 17 Abr 2021 - 12:27