Calculos em formulario

souzadenilson 14/5/2021, 01:42

souzadenilson: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 222
Registrado : 02/05/2012

Mensagem nº1

Calculos em formulario

Mensagem souzadenilson 14/5/2021, 01:42

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.** 14/5/2021, 23:40

DamascenoJr.

DamascenoJr.: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 3845
Registrado : 22/11/2016

Mensagem nº2

Re: Calculos em formulario

Mensagem DamascenoJr. 14/5/2021, 23:40

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