bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Criando fórmulas direto no formulário

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

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: