Usando Access

... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$182,00
(podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.

Criando fórmulas direto no formulário

Antes de iniciar sua leitura, clique aqui e cadastre-se para receber comunicados sobre novos artigos.

Observe na imagem a seguir,  o armazenamento de diversas fórmulas, combinando os campos L, H e  M.

Uma regra na construção de fórmulas consiste em indicar cada campo dentro de colchetes [NomeDoCampo].  Os campos entre os colchetes são substituídos por seus respectivos valores.  Essa substituição é feita através da função Replace() do Microsoft Access.

Replace(Me!Formula, "[L]", Me!L) 'Substitui o [L] pelo valor do campo L
Replace(Me!Formula, "[H]", Me!H) 'Substitui o [H] pelo valor do campo H

Replace(Me!Formula, "[M]", Me!M) 'Substitui o [M] pelo valor do campo M

Como exemplo, temos a primeira fórmula:

[L]*2+4*[H]+2/[M]

Logo após aplicar as funções Replace(), obtemos o seguinte resultado:

15*2+4*8+2/3

Agora que todos os valores estão inseridos na fórmula é preciso dizer ao Access que realize o cálculo, e a função Eval() é a encarregada disso.  Veja a função completa abaixo:

Public Function fncCalcula()
Dim strFormula$
On Error Resume Next
Me!Resultado = Null

'------------------------------------------------------------------------------------

'Insere os valores dos campos L, H e M na fórmula, através do uso da função replace()

'------------------------------------------------------------------------------------
strFormula = Replace(Replace(Replace(Me!Formula, "[L]", Me!L), "[H]", Me!H), "[M]", Me!M)

'-----------------------------------------------------------------
'executa a fórmula com a função eval() e grava no campo Resultado

'-----------------------------------------------------------------

Me!Resultado = Eval(strFormula)

'Salva de imediato as alterações no registro
DoCmd.RunCommand acCmdSaveRecord
End Function

Baixe o arquivo:

Clique aqui e baixe o arquivo exemplo.

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 - Segurança máxima, usando o OPEN

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

Vídeo - Aprenda sobre filtragens

Adquira o kit UsandoAccess e aprenda em alta velocidade

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

Desabilitando a faixa(ribbon) superior do Access

Vídeo - Criando Ribbons parte 1  - Conhecendo a estrutura Xml

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

| Home | Vídeos | Tutoriais | Dicas | Blog | Downloads | Contato | Artigo |