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

    Calculos em formulario

    avatar
    souzadenilson
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

    Calculos em formulario Empty Calculos em formulario

    Mensagem  souzadenilson Sex Maio 14, 2021 12:42 am

    Boa noite.

    Tem como esse modulo abaixo ser realizado diretamente de uma consulta, no lugar da tabela.


    Sub Calculo_MediaSemana()
       Forms![Frm_Pagamentos].Txt_Media = ((Forms![Frm_Pagamentos].Txt_TotalSemana) / (Forms![Frm_Pagamentos].Txt_PagoSemana))
       Forms![Frm_Pagamentos].Txt_AbaixoMedia = DCount("id_valor", "tab_pagamento", "[id_valor] < (Forms![Frm_Pagamentos].Txt_media) And [id_valor] > 0.01")
       Forms![Frm_Pagamentos].Txt_PercAbaMedia = (Forms![Frm_Pagamentos].Txt_AbaixoMedia) / (Forms![Frm_Pagamentos].Txt_PagoSemana)
       Forms![Frm_Pagamentos].Txt_TotalAbaMedia = DSum("id_valor", "tab_pagamento", "[id_valor] < (Forms![Frm_Pagamentos].Txt_media) And [id_valor] > 0.01")
       Forms![Frm_Pagamentos].Txt_NaMedia = DCount("id_valor", "tab_pagamento", "[id_valor] = (Forms![Frm_Pagamentos].Txt_media) And [id_valor] > 0.01")
       Forms![Frm_Pagamentos].Txt_PercNaMedia = (Forms![Frm_Pagamentos].Txt_NaMedia) / (Forms![Frm_Pagamentos].Txt_PagoSemana)
       Forms![Frm_Pagamentos].Txt_TotalNaMedia = DSum("id_valor", "tab_pagamento", "[id_valor] = (Forms![Frm_Pagamentos].Txt_media) And [id_valor] > 0.01")
       Forms![Frm_Pagamentos].txt_AcimaMedia = DCount("id_valor", "tab_pagamento", "[id_valor] > (Forms![Frm_Pagamentos].Txt_media) And [id_valor] > 0.01")
       Forms![Frm_Pagamentos].Txt_PercAciMedia = (Forms![Frm_Pagamentos].txt_AcimaMedia) / (Forms![Frm_Pagamentos].Txt_PagoSemana)
       Forms![Frm_Pagamentos].Txt_TotalAciMedia = DSum("id_valor", "tab_pagamento", "[id_valor] > (Forms![Frm_Pagamentos].Txt_media) And [id_valor] > 0.01")
    End Sub
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3054
    Registrado : 22/11/2016

    Calculos em formulario Empty Re: Calculos em formulario

    Mensagem  DamascenoJr. Sex Maio 14, 2021 10:40 pm

    Poderia explicar um pouco mais?

    Só vi uso de formulários até então...


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    Herivelto gosta desta mensagem

    lindomar.silva
    lindomar.silva
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 119
    Registrado : 27/08/2010

    Calculos em formulario Empty Re: Calculos em formulario

    Mensagem  lindomar.silva Sex Maio 21, 2021 9:27 pm

    Souzadenilson,

    Poderia disponibilizar a parte envolvida do seu BD para facilitar a compreensão?

    Abraço!

      Data/hora atual: Sab Set 18, 2021 3:56 pm