Usando Access

Criando fórmulas direto no formulário

Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).

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

Trabalhando com Registros - DAO e ADO

Adquira o kit UsandoAccess e aprenda em alta velocidade

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

Integrando o Access com Servidor MySQL - Introdução

Desabilitando a faixa(ribbon) superior do Access

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