Usando Access

Criando fórmulas direto no 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é 10x no Cartão de Crédito. 

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

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

Vídeo - SysControle - Controle de Usuarios

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

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