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


2 participantes

    [Resolvido]somar sub grupo em Relatorio

    avatar
    FABIANONT
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 11/05/2022

    [Resolvido]somar sub grupo em Relatorio Empty [Resolvido]somar sub grupo em Relatorio

    Mensagem  FABIANONT 11/5/2022, 13:29

    Bom dia a todos sou novo aqui no grupo
    preciso de uma ajuda de voces estou montando um relatorio de produção per capta. preciso fazer 2 calculos na sub divisões do grupo.

    O relatorio divide os tipos de produtos que fabrico ex: capa2, diversos, sola.
    depois em baixo tenho uma lista de operadores das maquinas que cada um produziu, só que a separação desta lista tambem é resultado de uma soma de varios lançamento de produções individuais.

    Em fim preciso contar quantos operadores trabalharam com aquele tipo de produto. E depois realizar a divisão do total produzido pela quantidade de operadores que trabalharam com aquele produto.

    Tentei a função contar(*) mas ela conta todos registros e não somente cada funcionario que aparece na lista.
    segue imagem do relatorio

    imagem subgrupo2 la voce vai notar que ela está contando no grUpo sola  32 registros, mas na verdade só tem 5 operadores na lista.

    [Resolvido]somar sub grupo em Relatorio Subgru10
    Anexos
    [Resolvido]somar sub grupo em Relatorio Attachmentbaseprodatual.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (35 Kb) Baixado 6 vez(es)


    Última edição por FABIANONT em 13/5/2022, 12:03, editado 2 vez(es) (Motivo da edição : acrescentar a base da dados)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8440
    Registrado : 05/11/2009

    [Resolvido]somar sub grupo em Relatorio Empty Re: [Resolvido]somar sub grupo em Relatorio

    Mensagem  Alexandre Neves 15/5/2022, 18:54

    Boa tarde e bem-vindo ao fórum
    1 - Nomeie de forma normalizada. Existem várias abordagens aqui no fórum
    2 - Elimine o filtro da sua consulta
    3 - Elimine a caixa de texto onde quer mostrar a quantidade de funcionários
    4 - Coloque um rótulo onde quer mostrar a quantidade de funcionários e denomine-o RtlNFuncionarios
    5 - Aceda ao módulo VBA do relatório, elimine todo o código que exista no módulo e coloque o seguinte código
    Código:
    Option Compare Database
    Option Explicit

    Private Rst As DAO.Recordset, RstConta As DAO.Recordset, strFiltro As String

    Private Sub CabeçalhoDoGrupo0_Format(Cancel As Integer, FormatCount As Integer)
        Dim Rst As DAO.Recordset
        Set RstConta = CurrentDb.OpenRecordset("SELECT Count(*) as Conta FROM (SELECT DISTINCT NomePrenseiro FROM Producao WHERE " & strFiltro & " and SCOD='" & Me.Texto325 & "')")
        RtlNFuncionarios.Caption = RstConta("Conta")
    End Sub

    Private Sub Report_Open(Cancel As Integer)
        strFiltro = "Data>=#" & Format(InputBox("DIGITE A DATA INICIAL"), "dd-mm-yyyy") & "# and Data<=#" & Format(InputBox("DIGITE A DATA FINAL"), "dd-mm-yyyy") & "#"
        Me.Filter = strFiltro
        Set Rst = CurrentDb.OpenRecordset("Consultaprod")
        Rst.Filter = strFiltro
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    FABIANONT gosta desta mensagem

    avatar
    FABIANONT
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 11/05/2022

    [Resolvido]somar sub grupo em Relatorio Empty ainda cometi algum erro...

    Mensagem  FABIANONT 16/5/2022, 11:34

    Tentei seguir suas instruções mas algo deu errado...
    ele não retorna com a informação.
    devo ter excluído algo que não deveria.(coisa de iniciante...)
    ainda não domino a criação de módulo VBA do relatório. To estudando ainda

    teria como você ajustar o relatório conforme suas instruções para tentar entender onde eu errei?

    Desde já muito obrigado pelo retorno
    Anexos
    [Resolvido]somar sub grupo em Relatorio Attachmenterros.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (58 Kb) Baixado 1 vez(es)


    Última edição por FABIANONT em 16/5/2022, 12:04, editado 1 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8440
    Registrado : 05/11/2009

    [Resolvido]somar sub grupo em Relatorio Empty Re: [Resolvido]somar sub grupo em Relatorio

    Mensagem  Alexandre Neves 16/5/2022, 12:01

    Bom dia
    Veja
    Anexos
    [Resolvido]somar sub grupo em Relatorio Attachmentbaseprod.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (114 Kb) Baixado 19 vez(es)


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    FABIANONT gosta desta mensagem

    avatar
    FABIANONT
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 11/05/2022

    [Resolvido]somar sub grupo em Relatorio Empty Re: [Resolvido]somar sub grupo em Relatorio

    Mensagem  FABIANONT 16/5/2022, 12:16

    Meu amigo aqui não deu certo os calculos .

    teste o intervalo de 02/05/22 a 02/05/22 não fez o calculo correto

    Depois fiz o teste do intervalo 02/05/22 a 05/02/22 tambem não fez o calculo me retornou com calculo zero

    mas vou estudar aqui o seu modulo

    se conseguir corrigir.

    agradeço
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8440
    Registrado : 05/11/2009

    [Resolvido]somar sub grupo em Relatorio Empty Re: [Resolvido]somar sub grupo em Relatorio

    Mensagem  Alexandre Neves 16/5/2022, 16:11

    Boa tarde
    É um problema com a formatação de datas (americano/europeu)
    No código onde está
    strFiltro = "Data>=#" & Format(InputBox("DIGITE A DATA INICIAL"), "dd-mm-yyyy") & "# and Data<=#" & Format(InputBox("DIGITE A DATA FINAL"), "dd-mm-yyyy") & "#"
    coloque
    strFiltro = "Data>=#" & Format(InputBox("DIGITE A DATA INICIAL"), "mm-dd-yyyy") & "# and Data<=#" & Format(InputBox("DIGITE A DATA FINAL"), "mm-dd-yyyy") & "#"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    FABIANONT gosta desta mensagem

    avatar
    FABIANONT
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 11/05/2022

    [Resolvido]somar sub grupo em Relatorio Empty Re: [Resolvido]somar sub grupo em Relatorio

    Mensagem  FABIANONT 16/5/2022, 17:09

    Desde já agradeço sua atenção fiz a mudança que sugeriu e funcionou certinho.

    Só esqueci de mencionar que a contagem deve ser tambem dividida pelo turno.
    tentei copiar sua expressão feita para contar, não funcionou
    segue abaixo a expressão que usei mas acho que faltou algum termo

    Option Compare Database
    Option Explicit

    Private Rst As DAO.Recordset, RstConta As DAO.Recordset, strFiltro As String

    Private Sub CabeçalhoDoGrupo0_Format(Cancel As Integer, FormatCount As Integer)
    Dim Rst As DAO.Recordset
    Set RstConta = CurrentDb.OpenRecordset("SELECT Count(*) as Conta FROM (SELECT DISTINCT NomePrenseiro FROM Producao WHERE " & strFiltro & " and TURNO='" & Me.Texto383 & "')")
    RtlNFuncionarios.Caption = RstConta("Conta")
    Set RstConta = CurrentDb.OpenRecordset("SELECT Count(*) as Conta FROM (SELECT DISTINCT NomePrenseiro FROM Producao WHERE " & strFiltro & " and SCOD='" & Me.Texto325 & "')")
    RtlNFuncionarios.Caption = RstConta("Conta")
    End Sub

    Private Sub Report_Open(Cancel As Integer)
    strFiltro = "Data>=#" & Format(InputBox("DIGITE A DATA INICIAL"), "mm-dd-yyyy") & "# and Data<=#" & Format(InputBox("DIGITE A DATA FINAL"), "mm-dd-yyyy") & "#"
    Me.Filter = strFiltro
    Set Rst = CurrentDb.OpenRecordset("Consultaprod")
    Rst.Filter = strFiltro
    End Sub

    se puder corrigir onde errei apara ele calcular quantos funcionario trabalharam por turno e por nome de cada turno

    grato pela aula
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8440
    Registrado : 05/11/2009

    [Resolvido]somar sub grupo em Relatorio Empty Re: [Resolvido]somar sub grupo em Relatorio

    Mensagem  Alexandre Neves 18/5/2022, 08:49

    Bom dia
    Coloque

    Private Sub CabeçalhoDoGrupo0_Format(Cancel As Integer, FormatCount As Integer)
    Dim Rst As DAO.Recordset
    Set RstConta = CurrentDb.OpenRecordset("SELECT Count(*) as Conta FROM (SELECT DISTINCT NomePrenseiro FROM Producao WHERE " & strFiltro & " and TURNO='" & Me.Texto383 & "' and SCOD='" & Me.Texto325 & "')")
    RtlNFuncionarios.Caption = RstConta("Conta")
    End Sub

    Comece a nomear de forma normalizada, veja que o código se tornava mais inteligível
    Private Sub CabeçalhoDoGrupo0_Format(Cancel As Integer, FormatCount As Integer)
    Dim Rst As DAO.Recordset
    Set RstConta = CurrentDb.OpenRecordset("SELECT Count(*) as Conta FROM (SELECT DISTINCT NomePrenseiro FROM Producao WHERE " & strFiltro & " and TURNO='" & Me.TxtTurno & "' and SCOD='" & Me.TxtSCOD & "')")
    RtlNFuncionarios.Caption = RstConta("Conta")
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    FABIANONT
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 11/05/2022

    [Resolvido]somar sub grupo em Relatorio Empty resolvido !!

    Mensagem  FABIANONT 18/5/2022, 11:56

    Muito obrigado pela informação
    Mas principalmente com relação as dicas sobre como renomear os campos de forma padrão.

    Muito obrigado já estou aprendendo bastante aqui

    grade abraço

    Conteúdo patrocinado


    [Resolvido]somar sub grupo em Relatorio Empty Re: [Resolvido]somar sub grupo em Relatorio

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 5/3/2024, 02:54