Usando Access

Movimento Bancário - Saldo, linha a linha, em um formulário

Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 2x no Cartão de Crédito, através do Paypal. 

Veja como comprar e saiba mais sobre o material oferecido,  clicando aqui.

Front-end desacoplado

Muitos dos programadores em Access têm sido instruídos a desenvolver seus aplicativos desacoplados da base de dados, ou seja, sem fazer uso das tabelas vinculadas, com a alegação de que estará ganhando no desempenho do aplicativo ao se trabalhar em rede. 

Considero trabalhar com o aplicativos desacoplados, para a maioria dos projetos, uma decisão equivocada que está sendo tomada, principalmente se você é novato na programação com Access. 

Entenda que o Access foi desenvolvido para se trabalhar com tabelas vinculadas e isso será, sem dúvida nenhuma, o seu maior trunfo, quando estiver competindo no mercado de trabalho com programadores de outras plataformas.  Tudo no Access se consegue desenvolver pela metade ou até mesmo pela quarta parte do tempo, em relação aos nossos rivais de outras plataformas. 

Ao tomar a decisão de não usar as tabelas vinculadas, você perde a vantagem que tinha, que era a do fator produtividade. Assim, como o seu tempo de programação irá crescer substancialmente, terá que formar preços mais altos e indicar prazos mais longos para conclusão do projeto.

Desempenho baixo do Access em Rede

Muitos Aplicativos feitos em Access, de fato, rodam com baixíssimo desempenho, deixando seus criadores sem dormir direito.  Afirmo que na maioria esmagadora das vezes, a culpa recai sobre os seus próprios criadores, que fazem uso de uma programação equivocada.   Se soubessem que a regra de ouro  é acessar às tabelas, somente o necessário, já dariam um salto quântico nos seus projetos.

Um exemplo clássico, ao desrespeito a regra de ouro citada acima. 

Acesse um fórum de Access qualquer e peça uma ajuda para montar uma programação que lhe forneça o saldo linha a linha de um movimento bancário.  É certo que lhe oferecerão a seguinte consulta:

SELECT IdMovimento, DataMovimento, Credito, Debito, 

DSum("[Credito] - [Debito]","tblMovimento","idMovimento <= " & [idMovimento]) AS Saldo
FROM [tblMovimento];

Sabe o slogan "Se beber, não dirija!"? O Slogan para esta consulta é: "Se programar, não use esta consulta!".  Além desta função ter uma pegadinha, faltando uma informação de data, no critério de filtragem.

A função Dsum() faz uma viagem até a tabela e realiza a soma do crédito menos o débito de todos os registros existentes menores ou iguais ao número exclusivo idMovimento.  Só que esta viagem é executada para cada registro que a consulta retorna.  Se a consulta retornar 1000 registros, serão realizadas 1000 viagens à tabela para o Dsum() trazer os cálculos.  Tente imaginar o tráfego na rede que irá gerar esta consulta, forçando 1000 viagens adicionais à tabela .  Fala sério! Isto vai totalmente contra as regras do bom senso de programação quando estamos programando em Access.

O Maestro

Preocupado com esta situação, resolvi inserir no aplicativo exemplo Maestro, uma técnica de programação, usando tabelas temporárias criadas em tempo de execução, que visa reduzir a necessidade de viagens às tabelas.

Veja aqui as novidades do Maestro.

Ofereço também 9 dicas para melhorar o desempenho do seu aplicativo em rede.  Observe que chamei a atenção neste artigo sobre o uso errado da função DLookup(), que desrespeita a regra de ouro aqui apresentada.

Veja aqui as 9 dicas sobre desempenho.

Movimento Bancário - Saldo, linha a linha, em um formulário

Estou disponibilizando um aplicativo exemplo de controle de movimento bancário para demonstrar uma forma bem eficiente de apresentar o saldo, linha a linha.  Uso a técnica de criar tabela temporária, com o objetivo não só de montar o saldo, linha a linha, como também de realizar filtragens sobre a tabela temporária local e não sobre a tabela de origem. 

O relatório usa, também, como origem a tabela temporária, desafogando ainda mais a necessidade de acessos à tabela no back-end.

Saldo anterior

Esta é outra situação desastrosa, no tocante ao desempenho, pois na prática vejo muitos programadores somando os campos (crédito - débito) desde a primeira linha de registro. 

Será que os programadores que trabalham para os bancos fazem desta forma; ou seja, programam para pegar o dia do primeiro movimento de uma conta corrente e ir somando até os dias atuais?  Então, se o correntista tiver uma conta há 20 anos, a rotina criada somará  todas as linhas do  movimento de sua conta.  Isso tem lógica, meu amigo programador ?   Esta questão, se não bem tratada no Access, é um desastre anunciado para o seu aplicativo.

E outro problema que poderia ocorrer é alguém inadvertidamente alterar um valor de registro bem antigo, o que acarretaria em um saldo acumulado errôneo.

Neste projeto que forneço é usada uma tabela para armazenar o saldo acumulado até um determinado período.  Assim, a rotina criada pega este saldo acumulado da tabela e o soma ao saldo calculado de um período mais recente, obtendo o saldo atual bem mais rápido.

Leia com atenção os comentários, da função que regula o acúmulo do saldo na tabela tblConfig:

Private Sub fncAcumularSaldo()
Dim DataLimite As Date
Dim strFiltro As String
Dim SaldoAcumulado As Double
Dim DataMaxSaldoAcumulado As Date
'-------------------------------------------------------------------------
'Data limite para acumular o saldo. Estou aqui estipulando que acumule o 

'saldo a partir do centésimo dia, em relação ao último lançamento
'-------------------------------------------------------------------------
DataLimite = DMax("DataMovimento", "tmp_tblMovimento") - 100
'-------------------------------------------------------------------------
'Calcula o saldo até o centésimo dia,apenas dos campos que não receberam 

'o status de "fechado"
'-------------------------------------------------------------------------
strFiltro = "Fechado = 0 And cdbl([dataMovimento]) <= " & CDbl(DataLimite)
SaldoAcumulado = Nz(DSum("[valorCredito]-[valorDebito]", "tblMovimento", strFiltro), 0)
'--------------------------------------------------------------------
'Se não tiver saldo acumulado, para ser armazenado na tabela auxiliar 

'tblConfig, encerra.
'--------------------------------------------------------------------
If SaldoAcumulado = 0 Then Exit Sub

DataMaxSaldoAcumulado = DMax("dataMovimento", "tblMovimento", strFiltro)
'----------------------------------------------------------------------------
'Toda transação que envolver mais de uma tabela sendo atualizada, devemos 

'colocar dentro da estrutura Begin <==> Commit
'Se não utilizar esta estrutura e uma das duas atualizações falhar, as contas 

'ficarão desequilibradas.
'A realização dessas alterações, dentro da estrutura begin <==> Commit, 

'garante que todas as alterações ocorram, ou nenhuma delas.
'-----------------------------------------------------------------------------
On Error GoTo trataerro
BeginTrans
  CurrentDb.Execute "UPDATE tblConfig SET DataSaldo ='" & DataMaxSaldoAcumulado & _

  "', Saldocaixa = Saldocaixa + val('" & SaldoAcumulado & "');"
  CurrentDb.Execute "UPDATE tblMovimento SET fechado = -1 WHERE " & strFiltro & ";"
CommitTrans

sair:
Exit Sub
trataerro:
Rollback
Resume sair
End Sub				

Arquivo Exemplo

Segue o arquivo exemplo para você baixar: 

Descompacte os arquivos na pasta "c:\MovimentoConta" para não perder os vínculos das tabelas

MovimentoConta.zip

Erros cometidos na prática, que comprometem o desempenho

Leia os diversos tópicos abaixo, aonde tento chamar a atenção dos participantes sobre as falhas cometidas e que prejudicam o desempenho.  Para isso, será necessário se registrar no fórum.

Enumerar registros de uma consulta
Saldo de Conta Corrente
Contagem em relatório
continuação da Contagem em relatório

Bom estudo!

Os dez artigos mais visitados

MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access

Vídeo - Controle personalizado de Acesso de Usuários

Vídeo - Aprenda sobre filtragens

Vídeo - Segurança máxima, usando o OPEN

Uma ajuda para quem está começando um negócio ou um projeto

Desabilitando a faixa(ribbon) superior do Access

Vídeo - Programação de relatórios - Parte 1

Integrando o Access com Servidor MySQL - Introdução

Como carregar o seu menu sem que ele vá para lista de suplementos

Adquira o kit UsandoAccess e aprenda em alta velocidade

| Home | Vídeos | Tutoriais | Dicas | Ribbons | Suporte | Downloads | Contato | Artigo |