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
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.

Open v3

 


 

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: