Sugestão para otimizar cálculos

=>Nois 16/6/2016, 00:59

=>Nois: Super Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 980
Registrado : 09/11/2012

Mensagem nº1

Sugestão para otimizar cálculos

Mensagem =>Nois 16/6/2016, 00:59

Boa noite!

estou montando este Sub abaixo, onde o mesmo irá fazer 72 calculos (1 para cada caixa de texto), gostaria de alguma sugestao para nao pesar o carregamento do formulário, pois o mesmo ira atualizar a cada 5 minutos puxando uma nova importação do banco de dados (Painel de monitoramento)

como mesmo irá fazer vários dcount acho que vai ficar pesado...

a partir dessa consulta: cns_TranspMonit_Calculo_Grafico

Sugestão para otimizar cálculos Jt3o7r

segue abaixo

Código:: Sub CalculaStatus() Dim AA, BA, CA, DA, EA, FA, GA, HA As String 'ESTADOS AA = "MG" BA = "SP" CA = "RJ" DA = "ES" EA = "AL" FA = "SE" GA = "PE" HA = "BA" Dim A, B, C, D, E, F, G, H, I As String 'STATUS DOS ESTADOS A = "Voz_ref" B = "Aguardando carregamento" C = "Aguardando descarga" D = "Em transito" E = "Disponivel" F = "Carregado" G = "Fluxo Interno" H = "Programado" I = "Manutencao" 'NZ(DCOUNT("Estado_atual_graf","cns_TranspMonit_Calculo_Grafico","[Status_Voz_graf] = A"),0) 'CAIXAS DE TEXTOS ONDE DEVEM RECEBER AS QUANTIDADES 'AA = "MG" txt_AA_A txt_AA_B txt_AA_C txt_AA_D txt_AA_E txt_AA_F txt_AA_G txt_AA_H 'BA = "SP" txt_BA_A txt_BA_B txt_BA_C txt_BA_D txt_BA_E txt_BA_F txt_BA_G txt_BA_H 'CA = "RJ" txt_CA_A txt_CA_B txt_CA_C txt_CA_D txt_CA_E txt_CA_F txt_CA_G txt_CA_H 'DA = "ES" txt_DA_A txt_DA_B txt_DA_C txt_DA_D txt_DA_E txt_DA_F txt_DA_G txt_DA_H 'EA = "AL" txt_EA_A txt_EA_B txt_EA_C txt_EA_D txt_EA_E txt_EA_F txt_EA_G txt_EA_H 'FA = "SE" txt_FA_A txt_FA_B txt_FA_C txt_FA_D txt_FA_E txt_FA_F txt_FA_G txt_FA_H 'GA = "PE" txt_GA_A txt_GA_B txt_GA_C txt_GA_D txt_GA_E txt_GA_F txt_GA_G txt_GA_H 'HA = "BA" txt_HA_A txt_HA_B txt_HA_C txt_HA_D txt_HA_E txt_HA_F txt_HA_G txt_HA_H End Sub

.................................................................................
Att. Nois

Se tudo não der certo... tente de novo drunken

**Avelino Sampaio** 18/6/2016, 10:36

Avelino Sampaio

Avelino Sampaio: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 3900
Registrado : 04/04/2010

Mensagem nº2

Re: Sugestão para otimizar cálculos

Mensagem Avelino Sampaio 18/6/2016, 10:36

Olá!

Minha sugestão é vc criar uma consulta AGRUPAMENTO que já realize a contagem. Algo assim:

SELECT Status_voz_graf, Estado_atual_graf, Count(Estado_atual_Graf) AS Total
FROM NomeDaTabela
GROUP BY Status_voz_graf, Estado_atual_graf
ORDER BY EstadoAtual_graf;

Depois é só percorrer o recordset da consulta, preenchendo os campos.

Sucesso!

.................................................................................
Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces
Clique AQUI e analise o custo beneficio do material oferecido.

MaximoAccess

MaximoAccess

MaximoAccess

Sugestão para otimizar cálculos

Sugestão para otimizar cálculos

Re: Sugestão para otimizar cálculos

Tópicos semelhantes

Tópicos semelhantes

Pesquisar

Resultados por: Mensagens Tópicos
Pesquisa avançada