[Resolvido]Somar Total no Relatório

So quero que no campo Texto24 apareça a somatória total do campo TotalReceber, já fiz de tudo, peguei varios exemplos aqui, mas nada deu certo, para quem puder ajudar estou enviando (eu acho) meu BD.

So quero que no campo Texto24 apareça a somatória total do campo TotalReceber, já fiz de tudo, peguei varios exemplos aqui, mas nada deu certo, para quem puder ajudar estou enviando (eu acho) meu BD.

O BD nao veio amigo...

Apos olcalizar o BD, deve clicar em enviar... ok?
Ou PostaDropBox, GoogleDrive...

O que acontece, quando o campo escala de trabalho (SimNao) eu coloco em não, o formulario nao abre , da erro, (Esta expressao foi digitada de forma errada ou é complexa demais para ser avaliada ... ), só que nao mostra o erro , se puder dar uma olhada no arquivo, agradeceria, vou tentar enviar agora, localizei o arquivo e vou clicar em enviar ... Esta no formato zip

Desculpa se eu demoro a responder as vezes, é que eu trabalho embarcado, entao fico alguns dias fora de casa ...

Amigo, seu problema é que na Primeira linha de registros, o total de Hora extra deu 33h que é superior a 24h.

Recomendo ver esse artigo aqui:
http://www.usandoaccess.com.br/tutoriais/calculo-horas-extras-e-soma-superior-a-24-horas.asp?id=1#inicio


Existem também diversos materiais aqui no fórum com esse assunto.
Aqui

Fabio, obrigado por sua atenção dispensada a me ajudar. Voce saberia me dizer como eu faço para acertar o meu Bd ? eu vi o link que voce passou, mas confesso, achei muito complicado, e meu conhecimento é bem pouco.
Abraços!

E só para salientar, no meu Bd as horas extras podem ser com datas diferentes também, tipo: DataEntrada:01/11/16 HorarioEntrada:07:00 DataSaida:03/11/16 HorarioSaida:08:00

Olha, trabalhar com Horas nao é tão simples amigo... Infelizmente!

Apesar do exemplo Parecer difícil, eu considero um dos mais fáceis e práticos, pois ja tem até relatório pronto...

Porque não parte desse exemplo que lhe mandei para fazer um teste?

Fabio, juro que tentei implementar, mas não consegui, pelo fato do meu Bd ser com datas diferentes também, eu já conhecia esse exemplo, já o tentei , assim como outros exemplos também, mas sem sucesso (Devido também ao meu pouco conhecimento, admito), aqui nesse fórum tambem ja tentei outros exemplos, para eu abrir um tópico aqui, é porque já tentei varias e varias vezes, demorei quase um mes (sem brincadeira rsrsrs) só tentando e pesquisando.
Mas mesmo assim agradeço sua atenção, tentarei outras vezes ....

Fui fazendo umas gambiarras aqui, e até conseguir que as horas extras ultrapassassem as 24 horas no relatório, mas por incrivel que pareça no campo TotalReceber, onde aparece o valor referente as horas extras ( extras x Valor da extra), quando ultrapassa as 24 horas de extras aparece como erro assim #tipo, sendo que esse campo esta como moeda, mas o que acho estranho é que quando o valor da extra está abaixo das 24 ele faz a conversão para valores normal, mas quando o valor da extra ultrapassa as 24 horas, ele não faz, sendo que no campo extra aparece normal o valor acima das 24 horas . Espero ter sido claro (rsrsr).
Fico no aguardo, se amanha eu nao responder é pq estou no serviço, então só quarta feira responderei.
Abraços!

Da uma Olhada nesse aqui:
https://www.dropbox.com/s/40pyyldc6j60wab/HorasExtras2_Backup.zip?dl=0

Atualizei o Arquivo la amigo.

https://www.dropbox.com/s/40pyyldc6j60wab/HorasExtras2_Backup.zip?dl=0

Apesar de ter ficado confuso quanto ao totais la...

Veja se é assim que queria

Obs: Se atente para a padronização dos dados... Lance as horas no formato: 00:00:00 e nao 00:0
Pois irá dar erro na Função...

Meu camarada, virei teu fâ, rsrsrs, . Apesar de parecer que tá tudo igual ao que estava antes (Só que agora funciona rsrsr). Sem querer abusar, teria como voce me da uma explicada como fez ? Mas só vou responder para finalizar aqui na quarta , quando voltar do serviço. Se puder dar uma explanada agradeceria muito (Mais do que já estou). De qualquer forma, muito obrigado.
Abraços!

Amigo, to com um probleminha aqui, tentei fazer uma adaptação no formulario, mas ta dando erro, teria como dar mais uma olhada para mim ?
Ta dando erro em tempo de execução 9
Subscrito fora do intervalo.
esse erro dá quando tento abrir o relatório.
Só falto isso para acertar o formulario, pq eu iria colocar as horas de almoço tb.
Desde já agradeço pelo que já fez.
Abraços!

FabioPaes escreveu:Obs: Se atente para a padronização dos dados... Lance as horas no formato: 00:00:00 e nao 00:0
Pois irá dar erro na Função...

Lembra que te pedi para Lançar as horas com os Segundos???? Mesmo que sendo zerados... Bom esse é o problema... Vc lançou hora sem os segundos amigo...






Quanto a Explicação do que foi feito:

Apenas apliquei a solução sugerida por mim, criado pelo Mestre Avelino Sampaio...

Acrescentei mais algumas coisa la no Calculo acumulado do Valor em R$... Tudo adaptado pra não ter que mudar muito o seu sistema...


Recomendo ler o Artigo do Avelino, e em seguida relê os comentários criados por mim nos Códigos... Assim entendera direitinho e poderá replicar pra outros relatórios que virão!

Mais uma vez obrigado, mas os campos destacados por voce estao como texto, e o codigo já joga eles nesse formato, o que eu nao entendi é como os seus dados estão no formato com segundos e os meus não, não passam pelo mesmo codigo ? Essa é minha dúvida, eu reparei que seus dados estao no formato correto, os meus dados não. Eu teria que mudar aonde ?

Olha so... O Campo em que estar como texto, ja utilizaremos horas maiores que 24. Ex 33h
Para nao perdermos dados, ocorre a extração dos dados com o método Split().
E nessa Extração, convertemos tupo para segundos, para obtermos um unico conjunto de Numeros e em seguida remontamos no formato hh:mm:ss.

Na hora da Extração, se eu mando extrair a hora nao da erro, pois todos tem a hora. Se mando extrair os Minutos, a mesma coisa... Mas quando mando extrair o Segundo da o erro ja que o Valor que tem la são apenas 33:30 (hh:mm).

Por isso, na hora dos lançamentos lance da forma correta: hh:mm:ss (00:00:00).



Obs: Os dados que lancei como exemplo foram lançados direto na Tabela... Nao passei pelo formulário ta...

Eu entendi o que voce disse, so que os campos TotalHora e HoraExtra do formulário, eu não lanço nada ali, pois é automático, assim que eu termino de colocar o Horario de saida, aparece automatico ali, pela função CalculaHoraTotal(hi As Date, hf As Date), eu já tentei usar o Format(), formatado para "hh:mm:ss", mas não deu certo , só assim naquele formato 0:0 ou 0:20. Eu só consigo colocar no formato 00:00:00 seu e inserir diretamente pela tabela, mas quero que seja pelo formulário.

Abraços!

Entao, vc tera que mudar um pouco sua funçao pois ela deixou muito vago... Remove zero a esquerda, come o zero dos Minutos...

O Format que ira funcionar deve ser rodado quando vc tem os valores separados, ex:

Format(horas,"00") assim se a variavel horas der por exemplo 1h ele ira apresentar assim:    01

Ok meu camarada, acho que consegui acertar aqui, vou fazer mais testes, para ver se não tem erro, só que só vou poder voltar a postar aqui na terça feira (15/11) para então poder finalizar ou não o tópico. De antemão agradeço sua atenção.
Abraços!

Aguardamos seu retorno!

Fábio, está quase perfeito, só um detalhezinho, na hora de visualizar o relatório, o campo totaReceber e ValorTotal só aparecem no modo de impressão, e eu queria que aparecesse no modo relatório, já que eu quero colocar um botão para salvar em pdf, e para isso tem que ser no modo relatório, já que no modo impressão não da para aparecer o botão. Tem como ?
Abraços!

Caro amigo, to com o seguinte problema aqui. Estou enviando o arquivo aqui, gostaria que quando voce abrisse ele e clicasse primeiro no relatório TabHorasExtras, abre esse relatório primeiro, vai dar um erro. Faz assim, clica nesse relatório antes de qualquer coisa, vai aparecer dois parametros, digita outubro em um e novembro no segundo. Vai aparecer um erro, depois abre o Terceiro relatório TabHorasExtras 3, digita marcelo no primeiro parametro, outubro no segundo e novembro no terceiro, vai abrir normal, depois voce tenta abrir o primeiro relatório de novo (TabHorasExtras) que vai abrir normal (informando os parametros outubro no primeiro e novembro no segundo). Outro erro que notei é que a função que voce passou esta nao esta calculando certo as horas negativas, por exemplo: Entrada(27/10/16) Inicio(07:02:00) Saída(28/10/16) Final (07:00:00) está dando um total de 23:58:00 horas. Até ai tudo bem, mas como eu trabalho em escala de 24:00 teria que dar na extra (Se assim pode se dizer de extra negativo rsrsr) -02:00:00, mas está dando -1:58:00, ou seja esta errado, esse é o primeiro registro, nos outros em que dá negativo as horas extras, também dão erro, mas por incrivel que pareça o total de horas extras está certo, gostaria de acertar isso, pois no hora de mostrar o relatório, as extras negativas estão erradas.
Abraços e no aguardo!

Na verdade acho que não é a função que voce passou e sim a função :

Public Function CalculaHoraTotal(hi As Date, hf As Date)
On Error Resume Next

intervalo = hf - hi

vdf = CDate(hf)
vdi = CDate(hi)
Interval = vdf - vdi

Horas = Int(CSng(Interval * 24))
Minutos = Int(CSng(Interval * 1440)) Mod 60
Segundos = Int(CSng(Interval * 86400)) Mod 60

CalculaHoraTotal = Format(Horas, "00") & ":" & Format(Minutos, "00") & ":" & Format(Segundos, "00")
End Function

no caso eu uso essa formula assim :
Me.TotalHora = Format(CalculaHoraTotal(DataEntrada + HorarioEntrada, DataSaida + HorarioSaida), "hh:mm:ss")
hora = Val(TotalHora) - escala2448
Me.HoraExtra = hora & ":" & minuto(1) & ":" & minuto(2)

a variavel escala2448 = 24 (minha escala)

essa parte do codigo esta em um select case.

o codigo completo ficaria assim:


Private Sub HorarioSaida_LostFocus()
Dim escala2448, escala2424, hora, minuto, segundo

escala2448 = 24
Me.TotalHora = Format(CalculaHoraTotal(DataEntrada + HorarioEntrada, DataSaida + HorarioSaida), "hh:mm:ss")
minuto = Split(TotalHora, ":")


If SimNao = "Sim" Then
Select Case Quadro29
Case 1
Me.TotalHora = Format(CalculaHoraTotal(DataEntrada + HorarioEntrada, DataSaida + HorarioSaida), "hh:mm:ss")
hora = Val(TotalHora) - escala2448
Me.HoraExtra = hora & ":" & minuto(1) & ":" & minuto(2)
Case 2
Me.TotalHora = Format(CalculaHoraTotal(DataEntrada + HorarioEntrada, DataSaida + HorarioSaida), "hh:mm:ss")
hora = Val(TotalHora) - Admin
Me.HoraExtra = hora & ":" & minuto(1) & ":" & minuto(2)
Case 3
If Format(DataEntrada, "ddd") = "sex" Then
escala2424 = 72
Me.TotalHora = Format(CalculaHoraTotal(DataEntrada + HorarioEntrada, DataSaida + HorarioSaida), "hh:mm:ss")
hora = Val(TotalHora) - escala2424
Me.HoraExtra = hora & ":" & minuto(1) & ":" & minuto(2)
Else
escala2424 = 48
Me.TotalHora = Format(CalculaHoraTotal(DataEntrada + HorarioEntrada, DataSaida + HorarioSaida), "hh:mm:ss")
hora = Val(TotalHora) - escala2424
Me.HoraExtra = hora & ":" & minuto(1) & ":" & minuto(2)
End If
End Select
Else
Me.HoraExtra = TotalHora
End If
'Me.TotalReceber = Format(CDate([HoraExtra]) * [ValorHoraExtra] * 24, "currency")
End Sub

Opa... Vamos por partes... 

Algum dos pontos das ultimas mensagens foram resolvidos ou nao?

Outra coisa: se eu entro serviço Terça as 07:02h e saio na quarta as 07:00h eu trabalhei 23h 58min. Que, para completar as 24h faltaram 2minutos e nao duas Horas. Ou seja, hora Extra devida pelo funcionario de 00:02:00h.

Com calma e no PC irei verificar os pontos nao resolvidos...

Então, se voce olhar o relatório vai ver que esta me dando de extra negativo -1:58:00 ao invés de -00:02:00( no primeiro registro, mas nos outros registros com extra negativo também da errado). Só que na soma total das horas extras está correto que é 15 minutos. O outro problema é que quando abre o primeiro relatório como disse anteriormente da problema, so quando abro o terceiro e que o primeiro abre normal, seguindo os passos : TabHorasExtras, abre esse relatório primeiro, vai dar um erro. Faz assim, clica nesse relatório antes de qualquer coisa, vai aparecer dois parametros, digita outubro em um e novembro no segundo. Vai aparecer um erro, depois abre o Terceiro relatório TabHorasExtras 3, digita marcelo no primeiro parametro, outubro no segundo e novembro no terceiro, vai abrir normal, depois voce tenta abrir o primeiro relatório de novo (TabHorasExtras) que vai abrir normal (informando os parametros outubro no primeiro e novembro no segundo).

Ok fico no aguardo e desde já agradecendo pela atenção. Mas como disse antes, acho que o problema das horas negativas esta no codigo que calcula as horas : calculaHoraTotal(hi As Date, hf As Date).
Public Function CalculaHoraTotal(hi As Date, hf As Date)
On Error Resume Next

intervalo = hf - hi

vdf = CDate(hf)
vdi = CDate(hi)
Interval = vdf - vdi

Horas = Int(CSng(Interval * 24))
Minutos = Int(CSng(Interval * 1440)) Mod 60
Segundos = Int(CSng(Interval * 86400)) Mod 60

CalculaHoraTotal = Format(Horas, "00") & ":" & Format(Minutos, "00") & ":" & Format(Segundos, "00")
End Function
--------------------------------------------------------------------------------------------------------------------------
Eu uso assim essa formula (por exemplo no evento ao perder foco do campo HorarioSaida)
Private Sub HorarioSaida_LostFocus()
Dim escala2448, escala2424, hora, minuto, segundo

escala2448 = 24
Me.TotalHora = Format(CalculaHoraTotal(DataEntrada + HorarioEntrada, DataSaida + HorarioSaida), "hh:mm:ss")
minuto = Split(TotalHora, ":")


If SimNao = "Sim" Then
Select Case Quadro29
Case 1
Me.TotalHora = Format(CalculaHoraTotal(DataEntrada + HorarioEntrada, DataSaida + HorarioSaida), "hh:mm:ss")
hora = Val(TotalHora) - escala2448
Me.HoraExtra = hora & ":" & minuto(1) & ":" & minuto(2)
Case 2
Me.TotalHora = Format(CalculaHoraTotal(DataEntrada + HorarioEntrada, DataSaida + HorarioSaida), "hh:mm:ss")
hora = Val(TotalHora) - Admin
Me.HoraExtra = hora & ":" & minuto(1) & ":" & minuto(2)
Case 3
If Format(DataEntrada, "ddd") = "sex" Then
escala2424 = 72
Me.TotalHora = Format(CalculaHoraTotal(DataEntrada + HorarioEntrada, DataSaida + HorarioSaida), "hh:mm:ss")
hora = Val(TotalHora) - escala2424
Me.HoraExtra = hora & ":" & minuto(1) & ":" & minuto(2)
Else
escala2424 = 48
Me.TotalHora = Format(CalculaHoraTotal(DataEntrada + HorarioEntrada, DataSaida + HorarioSaida), "hh:mm:ss")
hora = Val(TotalHora) - escala2424
Me.HoraExtra = hora & ":" & minuto(1) & ":" & minuto(2)
End If
End Select
Else
Me.HoraExtra = TotalHora
End If
'Me.TotalReceber = Format(CDate([HoraExtra]) * [ValorHoraExtra] * 24, "currency")
End Sub

-------------------------------------------------------------------------------------------------------------------------------------------

Espero ter sido claro.

Meu amigo, como lhe falei la no Início... Trabalhar com Horas e uma Lida, ainda mais quando pode ser maior que 24h.
No seu Caso não e diferente, e alem disso eu nao manjo muito dessa parte...


Mas vamos la...

Sobre Aparecer os Calculos apenas quando vc Imprime...

O Evento Ao imprimir so é executando quando o relatório e visualizado em modo de Impressão...

Eu Recomendo manter como está, e vc deve criar um formulário pequeno PopUp com 3 Combo box e 2 Botoes:
2 Combo Texto Chamadas( txtMesInicio e txtMesFim)
1 Combo Texto como o Nome do Funcionário

1 Botão para Visualizar o Relatório e outro para Gerar o PDF.

Pois acho muito incomodo ficar digitando esses Valores, alem de que o usuário pode errar ne...




Quanto ao Erro fiz exatamente como vc recomendou e nao obtive esse erro...
Pelo menos não vi nenhum... As Únicas coisas que ocorreram foram a pergunta pelos critérios...

Continua...

Quanto ao Item que me deu dor cabeça, as Horas Negativas...

Basicamente abandonei todos os Seus Módulos, e refiz do zero, não que seus módulos estivessem errados, mas sim porque demoraria um pouco eu entender como eles foram feitos...


O principal problema do totalizador de Horas Negativa era que ele exibia assim: -02:-10:00 Algo que fica meio feio... 
Outro problema que vc notou era que em uma diferença de 02min ele calculava 01:58:00, uma bela diferença...
Isso acontecia por causa do sinal de - que vim junto, ja que a Hora Trabalhada era MENOR do que a Carga Horária.


Para resolver isso eu tive que Pegar o total de Horas Trabalhadas (23:58:00) e converter em Minutos (1438min), e so aee subtrair da Carga Horaria (24:00:00), que também converti em Minutos(1440min).

Dessa Forma basta em seguida eu Remontar a Hora, ja que tenho ela em Minutos....

Tive que fazer uma Verificação, para saber se o funcionário Trabalho mais ou menos do que a Carga Horaria, se trabalhou menos, ao COlocar o Total da Hora Extra, eu tenho que colocar antes um sinal de "-" ja que a hora é Negativa.
Essa Foi a Forma mais fácil que achei para evitar essa diferença na Subtração... Pois, na matemática se eu tenho: -2-1 = -3 (Pois ele irá somar) e esse era o problema... Então simplificando, basta identificar quando e negativo, e apenas add o sinal de - antes da HorasExtra


Mudei também no relatório, todo aquele calculo para Somar as Horas acumuladas do Funcionário, eu MOVI para uma Função... Assim fica mais facil utilizar em outros relatórios, tendo apenas que Chamar a função e informar os parâmetros...

Lembre-se:

Toda Operação matemática que irá fazer com essas Horas, terá que:
- Converter tudo para Segundos (No nosso caso para minutos, ja que nao usa os segundos), realizar a Subtração, adição, divisão ou multiplicação;
- Remontar a Hora no formato normal (hh:mm:ss)


Essa é a forma mais facil...


https://www.dropbox.com/s/f9dr067s6awuyze/Horas%20Extras%20-%20Corrigido%20FabioPaes.rar?dl=0

Obrigado pelo esforço. Só uma coisa,o total a receber das minhas horas não estão negativas (relativo as horas negativas) o que está dando um total no valor errado. Repare nos registros meus (Marcelo) deu 00:15:00 de extras , e deu um total de R$21,67 . Sendo que o valor da minha hora é R$16,46, o valor do Total A Receber deveria ser R$4,12 (Acho que é isso). Mas notei que nos registros do seu nome Fabio Paes (São dois registros), o que tem valor negativo, esta dando certo. O Valor Total A Receber Está negativo, com isso a Soma esta certa. Já nos meus registros esta dando errado. Como faço para corrigir isso ? Já atualizei, mas nada ...

Fabio, eu consegui corrigir a questao dos meus registros, que o total a receber, os valores não estavam dando negativo da seguinte forma:
Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
'Mudei aqui, agora foi criada a Função, e toda vez que precisar SOMAR HORAS em novos relatorios
'Basta chamar dessa forma : fncSomaHora(TotaldeHoraAcumulada, TotalHoraExtra)
'Assim fica mais limpo o relatorio e nao precisa ficar digitando tudo novamente...
If Left(Me.HoraExtra, 1) = "-" Then
TotalHoraN = fncSomaHora(TotalHoraN, Me.HoraExtra)
Else
TotalHoraP = fncSomaHora(TotalHoraP, Me.HoraExtra)
End If

'Aqui ele fara o calculo do valor da hora extra * a total hora extra
ht1 = Split(Me.HoraExtra, ":")

Me.TotalReceber = (ht1(0) * 60 + ht1(1)) * (Me.ValorHoraExtra / 60)

'Aqui ele acumula o Valor, para mostrar no rodape do grupo o Total a pagar para o Funcionario
If Left(Me.HoraExtra, 1) = "-" Then
   Me.TotalReceber = Me.TotalReceber * (-1)
End If
Me.ValorPagar = Me.ValorPagar + Me.TotalReceber
End Sub

A parte que esta em negrito (O segundo IF Then Else) eu coloquei para corrigir e deu certo, copiei a funçao Left() que voce usou mais acima. Só que os seus registros inverteram também, seu eu apagar somente os seus registros fica tudo normal e posso usar normalmente ? O que eu não entendi é porque os seus registros estão dando diferente dos meus (Questão de positivo ou negativo).

Essa pequena parte do codigo resolveu em parte o meu problema:
If Left(Me.HoraExtra, 1) = "-" Then
   Me.TotalReceber = Me.TotalReceber * (-1)
End If

mas como disse, inverteu os valores dos seus registros.

Abraços e no aguardo!
Falta pouco para chegar lá rsrsr.

Pelo que vi, ocorre quando o total a pagar e pra ser negativo e o valor nao chega a nem 1Real.

Amanha eu vejo e te passo como adequar para aceitar de todas as formas... pois pode haver ambas as situaçoes...

Mas me fal, vc esta entendendo as mudanças que estao sendo feitas? Pq e importante sprender pra replicar...

Aqui amigo, veja se agora esta correto!

Ocorria um problema ali quando era Hora NEgativa menor do que 1hora. sempre o valor ficava +.

Resolvi inserindo manualmente o ( - ) no resultado...


Utilize o Código desse Relatório, pois estava havendo um erro nas somas das Horas, devido eu não ter removido o sinal de - da subtração...

Veja que fiz la o Formulário de visualização do relatorio e exportação PDF que recomendei anteriormente.

https://www.dropbox.com/s/nr4jhorjfa3lood/Horas%20Extras%20-%20Corrigido%20FabioPaes.rar?dl=0

Ok meu camarada, acho que agora ficou legal, Muito obrigado pela força, vou ver se faço alguns ajustes e vou finalizar o post. Caso de algum problema eu posso voltar aqui mesmo com o post finalizado ?

Abraços!

Obrigado pela força. Só uma duvida, posso voltar aqui se der algum problema, mesmo com o post finalizado ?

Amigo, pode reabrir o Topico qnd precisar, caso seja duvida relacionada!


Agora, veja as Melhorias que fiz, nesse exemplo baseado na sua necessidade e Arquivo.
https://www.maximoaccess.com/t28506-horas-extras-maior-que-24h-positivas-e-negativas-com-soma-e-subtracao-de-horas-valor-a-pagar-e-carga-horaria-de-trabalho#199098


Dei uma enxugada no Codigo, a fim de ficar menos repetitivo... Alem do Calculo ser feito em hh:mm:ss

Olha, o formulario esta me atendendo muito bem, mas gostaria de saber se tem como , por exemplo, na hora de gerar um relatório, eu quiser que liste todos os funcionarios ou um determindador funcionario, como ja faz, mas com todos os meses do ano, indicando no cabeçalho do funcionario o mes correspondente, (em uma text box). Eu dei um print screen , espero que de para entender, onde esta circulado é onde apareceria o mes correspondente.

Acho que agora da para ver melhor, onde esta circulado, é onde apareceria o mes. Tipo, listasse todos os funcionarios, ai apareceria todos os funcionarios, separados pelos respectivo mes,tipo: Marcelo - Janeiro e os dados em baixo, depois fulano - Janeiros e os dados, depois marcelo - fevereiro os dados embaixo e por ai vai....

E somudar o Agrupamento do relatorio, e ao inves de agrupar somente por Funcionsrio, Agrupe por Data formatando na Consulta Format([campodata];"mmmm").

Experimente.... Mas o segredo esta no Agrupamento...

Ok Fabio, eu até consegui aqui, mas (sempre tem um mas rsrs), as horas extras la são computadas assim: Começam a partir do dia 25 de cada mes e termina dia 25 do mes corrente. Exemplo: Horas dos Mes de Julho, começa no dia 25 de junho(Data de Entrada) e termina no dia 25 de Julho (Data de Saída). Entao ela começa dia 25, e termina no dia 25 do mes corrente das horas extras , mas o termino tem que ser na data de saida.
Espero ter sido claro.

Abraços!

Amigo, nesse Caso seu relatório terá que ser gerado Mês a Mês...

Naquele Modelo que postei anteriormente...

Terá que colocar uma condição If na combo onde busca os Meses... De forma que, se selecionar o Mes de JULHO o Filtro do Relatorio terá que ser entre 25/06/2016 e 25/07/2016. Se selecionar Janeiro será: 25/12/2015 a 25/01/2016.

Assim não terá erro!
Então, em uma Caixa de Texto vc coloca na hora da impressão o Mês referente ao Filtro...

Partindo dessa Logica de vc, não vejo como realizar um agrupamento mensal, ja que nao existe logica MENSAL...

Ok, vou ver aqui, mas de qualquer forma, mesmo que eu não consiga, o BD já esta me servindo muito bem.
Abraços e obrigado!

Fabio, eu tentei em ao invés de escolher o Mês na combobox (onde gera o relatório) colocar duas caixa de texto (mes inicial e mes final) e digitar ali os meses tipo: mes inicial 25/10/2016 e mes final 25/11/2016, mas não deu certo. Só deu certo da forma que eu fazia antes: clicava no botao para abrir o formulario e ali digitava por parametro as datas, gostaria que fosse da sua forma, pois como a textbox estaria formatado para data, ia aparecer o selecionador de datas e a pessoa nao ia precisar digitar, apenas escolher o mes e pronto.

Tentei por parametro, mas também nao esta dando certo não rsrsr, acho que vou voltar para o excel, por as horas extras aqui são contabilizadas a partir do dia 25 de cada mês, e quando gera o relatório pega os meses todos, se puder resolver somente este problema, ai fica 100 por cento, se não vou ter que voltar pro excel, no access fica mais profissional.
Abraços!

Assim que possível irei pensar em algo e testar...

Ok, valeu ...
Aguardo ansiosamente ...