... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$145,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

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

Usando Access - Fórmulas em formulário

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!


 

 


1 comentário(s)

Cloves   22/03/2017 08:31:54

Parabéns Avelino ..... Sensacional!!!


Envie seu comentário: