MaximoAccess

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

Obrigado

Administração do MaximoAccess

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]Calculo Média

    avatar
    souzadenilson
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 02/05/2012

    [Resolvido]Calculo Média Empty [Resolvido]Calculo Média

    Mensagem  souzadenilson em 28/6/2020, 00:08

    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
    Anexos
    [Resolvido]Calculo Média AttachmentArquivo Teste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (377 Kb) Baixado 18 vez(es)
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1245
    Registrado : 07/12/2011

    [Resolvido]Calculo Média Empty Re: [Resolvido]Calculo Média

    Mensagem  tauron em 1/7/2020, 09:38

    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?
    avatar
    souzadenilson
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 02/05/2012

    [Resolvido]Calculo Média Empty Re: [Resolvido]Calculo Média

    Mensagem  souzadenilson em 2/7/2020, 01:36

    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
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 822
    Registrado : 11/11/2009

    [Resolvido]Calculo Média Empty Re: [Resolvido]Calculo Média

    Mensagem  scandinavo em 4/7/2020, 15:08

    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
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 822
    Registrado : 11/11/2009

    [Resolvido]Calculo Média Empty Re: [Resolvido]Calculo Média

    Mensagem  scandinavo em 5/7/2020, 13:52

    Veja buscando dados da consulta.
    Anexos
    [Resolvido]Calculo Média AttachmentArquivo Teste2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (328 Kb) Baixado 14 vez(es)
    avatar
    souzadenilson
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 02/05/2012

    [Resolvido]Calculo Média Empty Re: [Resolvido]Calculo Média

    Mensagem  souzadenilson em 6/7/2020, 00:56

    Boa noite.
    Perfeito, funcionou como desejado.
    Obrigado

    souzadenilson gosta desta mensagem

    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 822
    Registrado : 11/11/2009

    [Resolvido]Calculo Média Empty Re: [Resolvido]Calculo Média

    Mensagem  scandinavo em 6/7/2020, 12:36

    What a Face 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.
    avatar
    souzadenilson
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 02/05/2012

    [Resolvido]Calculo Média Empty Re: [Resolvido]Calculo Média

    Mensagem  souzadenilson em 7/7/2020, 00:33

    Boa noite,
    Como foi o passo a passo de criar esta consulta
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 822
    Registrado : 11/11/2009

    [Resolvido]Calculo Média Empty Re: [Resolvido]Calculo Média

    Mensagem  scandinavo em 8/7/2020, 14:37

    [Resolvido]Calculo Média Bab10
    avatar
    souzadenilson
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 02/05/2012

    [Resolvido]Calculo Média Empty Re: [Resolvido]Calculo Média

    Mensagem  souzadenilson em 11/7/2020, 03:50

    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
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 822
    Registrado : 11/11/2009

    [Resolvido]Calculo Média Empty Re: [Resolvido]Calculo Média

    Mensagem  scandinavo em 13/7/2020, 12:45

    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.
    avatar
    souzadenilson
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 02/05/2012

    [Resolvido]Calculo Média Empty Re: [Resolvido]Calculo Média

    Mensagem  souzadenilson em 15/7/2020, 04:40

    Boa noite.
    Tentei decifrar como você fez e não obtive sucesso.
    Este projeto em anexo é o oficial que estou utilizando.
    Anexos
    [Resolvido]Calculo Média AttachmentProjeto Comunidade Santa Rita.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (744 Kb) Baixado 6 vez(es)
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 822
    Registrado : 11/11/2009

    [Resolvido]Calculo Média Empty Re: [Resolvido]Calculo Média

    Mensagem  scandinavo em 15/7/2020, 14:57

    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
    avatar
    souzadenilson
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 02/05/2012

    [Resolvido]Calculo Média Empty Re: [Resolvido]Calculo Média

    Mensagem  souzadenilson em 16/7/2020, 00:19

    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.
    avatar
    souzadenilson
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 02/05/2012

    [Resolvido]Calculo Média Empty Re: [Resolvido]Calculo Média

    Mensagem  souzadenilson em 16/7/2020, 02:50

    Fiz de acordo com o que você sugeriu e não funcionou
    avatar
    souzadenilson
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 02/05/2012

    [Resolvido]Calculo Média Empty Re: [Resolvido]Calculo Média

    Mensagem  souzadenilson em 19/7/2020, 01:52

    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
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 822
    Registrado : 11/11/2009

    [Resolvido]Calculo Média Empty Re: [Resolvido]Calculo Média

    Mensagem  scandinavo em 21/7/2020, 13:08

    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
    Anexos
    [Resolvido]Calculo Média AttachmentArquivo Teste 3.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (361 Kb) Baixado 6 vez(es)


    Última edição por scandinavo em 22/7/2020, 14:19, editado 2 vez(es) (Razão : Alteração no codigo)

    souzadenilson gosta desta mensagem

    avatar
    souzadenilson
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 02/05/2012

    [Resolvido]Calculo Média Empty Re: [Resolvido]Calculo Média

    Mensagem  souzadenilson em 22/7/2020, 00:42

    Boa noite, Ficou perfeito

      Data/hora atual: 2/12/2020, 03:14