[Resolvido]somar sub grupo em Relatorio

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.

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


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

Bom dia
Veja

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

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") & "#"

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

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

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