[Resolvido]Calculo Média

Boa noite
Inclui no formulário de Recebimento a média recebida no meses do ano e realiza uma previsão de fechamento do ano.
Porém eu DAvg não consegui.
Alguém de vocês já fez este tipo de calculo no seu projeto e conseguiu sucesso neste tipo de calculo

Bom dia Denilson,

Poderia ser mais claro na sua questão? Você diz que incluiu no formulário (quando abro o mesmo visualizo o valor em dinheiro, acumulado, media, previsao e na lateral meses com valores e um total).

O que não conseguiu definir e, qual sua ideia?

Boa noite.
A ideia é pegar os meses que contém valor somar e dividir pela quantidade de meses que possui valor (Descobrir a média). e na previsão pega a média e multiplica por 12.
Exemplo. Se tiver 5 meses com valor soma e divide por 5

Ola (sugestão)
Acho que antes de prosseguir você deveria repensar a forma que você obtém os resultados

Me.Txt_Fev = Format(DSum("id_valor", "tab_acumulado", "[Id_mespago] = 'fevereiro-2020' And [id_valor] > 0.01"), "R$ 0.00")
Me.Txt_Mar = Format(DSum("id_valor", "tab_acumulado", "[Id_mespago] = 'mar?o-2020' And [id_valor] > 0.01"), "R$ 0.00")
Me.Txt_Abr = Format(DSum("id_valor", "tab_acumulado", "[Id_mespago] = 'abril-2020' And [id_valor] > 0.01"), "R$ 0.00")
Me.Txt_Mai = Format(DSum("id_valor", "tab_acumulado", "[Id_mespago] = 'maio-2020' And [id_valor] > 0.01"), "R$ 0.00")


Você esta deixando os meses fixos no VBA e para o ano que vem como você fará ?

eu trabalharia com uma consulta para obter estes resultados ou você tem uma consulta que alimenta a Tab_Acumulado

Veja buscando dados da consulta.

Boa noite.
Perfeito, funcionou como desejado.
Obrigado

Valeu pelo retorno.


Obs. Para este formulário ficar mais rápido substitua estes campo que busca os valores na consulta por uma list box.

Boa noite,
Como foi o passo a passo de criar esta consulta

Boa noite.
Como você conseguiu colocar esta coluna contem ( de 1 a 12 )  na consulta que você criou
Tentei implementar no projeto oficial e não funcionou

Usei a função partdata que faz a captura do mês ou do dia ou do ano tentou copiar e colar.

poste ai o seu projeto com esta consulta que você fez que não funciona para vermos aonde esta o erro.

Boa noite.
Tentei decifrar como você fez e não obtive sucesso.
Este projeto em anexo é o oficial que estou utilizando.

Observe que na sua tabela "Tab_Acumulado" contem 110 registro lançados como "Junho" o correto seria "Junho-2020"


Abra uma consulta no modo sql e cole este código e execute para arrumas estes meses.
ou se quiser pode ir um a um.

UPDATE Tab_Acumulado SET Tab_Acumulado.Id_MesPago = "Junho-2020"
WHERE (((Tab_Acumulado.Id_MesPago)="Junho"));



Por isso que esta dando erro tipos incompatíveis.



Ate mais

Vou colocar somente o mês, pois criei uma macro que transfere os registro entre tabelas e limpa a tabela original dos dados, e para ano que vem irei implementar a macro para transferir para uma planilha externa.

Fiz de acordo com o que você sugeriu e não funcionou

Boa noite.
Fui com calma e consegui com que funcionasse, porém não estou conseguindo descobrir como fazer para deixar somente o nome do mês.
Retirei o ano e estava dando erro, inseri o ano e está funcionando

Veja ai criei um função importe ela para o seu banco de dados não esqueça de alterar na consulta também.


Mas é o seguinte você vai ter que escolher trabalhar com "Janeiro 2020" ou "Janeiro"

As duas opções não da. (fiz uma alteração no código que permite trabalhar dos 2 jeito junto, mês ou mês-ano) na consulta é preciso retirar o campo como nome do mês para agrupar e fazer a soma corretamente, ficando somente o numero do mês e a soma)

função

Public Function NumeroMes(strCampo As String) As String
'Scandinavo 21/07/20 Forum maximos access
'Define qual o n?mero do mes

Select Case strCampo

Case "Janeiro"
NumeroMes = 1
Case "Fevereiro"
NumeroMes = 2
Case "Mar?o"
NumeroMes = 3
Case "Abril"
NumeroMes = 4
Case "Maio"
NumeroMes = 5
Case "Junho"
NumeroMes = 6
Case "Julho"
NumeroMes = 7
Case "Agosto"
NumeroMes = 8
Case "Setembro"
NumeroMes = 9
Case "Outubro"
NumeroMes = 10
Case "Novembro"
NumeroMes = 11
Case "Dezembro"
NumeroMes = 12

Case Else
'NumeroMes = 0
'caso tenha la?amentos no formato mes-ano "junho-2020"
NumeroMes = Format(strCampo, "M")

end select

Boa noite, Ficou perfeito