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


3 participantes

    [Resolvido]Calculo Média

    avatar
    souzadenilson
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  souzadenilson 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 22 vez(es)
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  tauron 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
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  souzadenilson 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
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  scandinavo 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
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  scandinavo 5/7/2020, 13:52

    Veja buscando dados da consulta.
    avatar
    souzadenilson
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  souzadenilson 6/7/2020, 00:56

    Boa noite.
    Perfeito, funcionou como desejado.
    Obrigado

    souzadenilson gosta desta mensagem

    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  souzadenilson 7/7/2020, 00:33

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  scandinavo 8/7/2020, 14:37

    [Resolvido]Calculo Média Bab10
    avatar
    souzadenilson
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  souzadenilson 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
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  souzadenilson 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 8 vez(es)
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  souzadenilson 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
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  souzadenilson 16/7/2020, 02:50

    Fiz de acordo com o que você sugeriu e não funcionou
    avatar
    souzadenilson
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  souzadenilson 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
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  scandinavo 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


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

    souzadenilson gosta desta mensagem

    avatar
    souzadenilson
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  souzadenilson 22/7/2020, 00:42

    Boa noite, Ficou perfeito

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 21:38