[Resolvido]Calcular IMC

Pessoal, gostaria de uma ajuda. Pesquisei muito aqui e não achei. Gostaria de calcular o IMC dentro de um formulário. Assim que os textbox Peso e altura estiverem preenchidos, ele mostraria o resultado na Textbox IMC. Estou colocando meu pequeno projeto em anexo para vocês verem.


Desde já agradeço

Boa tarde.
Seja bem vindo ao fórum.

Veja bem, modifiquei os campos: Peso, Altura e IMC para o formato Texto na tabela Anamnese.

No form ao perder foco do campo peso e Altura coloquei os códigos da função que criei para efetuar o cálculo e formatar o resultado.

Também inclui algumas mensagens de acordo com o Grau de IMC.

No aguardo.

Putz, muito bom!

O que quer dizer essa linha?

IMC = Format([Calc_IMC], "#,##0.00;(#,##0.00")

Esta é a formatação do campo, para que não fique com vários casas decimais.


- Primeiro eu efetuo o cálculo com uma variável:

Calc_IMC = [Peso] / [Altura] ^ 2


- Em seguida devolvo o cálculo para o campo IMC já formatado com as devidas casas decimais.

IMC = Format([Calc_IMC], "#,##0.00;(#,##0.00")

Você viu as mensagens de acordo com o grau do IMC?

Elas podem ser modificadas de acordo com seu gosto.

Ué, não vi nada disso no código. Vc implementou?

Baixa de novo então.
Você deve ter baixado o anterior, logo em seguida eu postei esse.
No aguardo.

Ficou Top!!
Muito obrigado pela paciência.

Vou tentar incrementar mais coisas.

Abraço.

Então se não há mais dúvidas neste tópico.
Só falta fechar ele.
Abraço

Achei interessante este exemplo e resolvi usá-lo no meu sistema, porém, resolvi criar um MÓDULO, o qual estou com dificuldade para fazer funcionar:


Public Function fncCalcIMC()

Calc_IMC = [PESO] / [ALTURA] ^ 2

IMC = Format([Calc_IMC], "#,##0.00;(#,##0.00")

End Function


Minha dúvida é:

Lá no formulário, nas propriedades da TXTIMC, EM FONTE DE CONTROLE, como devo escrever?

Numa situação parecida, em que eu tenho um módulo de cálculo da idade, NA FONTE DE CONTROLE da TXTIDADE fica assim: =fncIdadeCurta([DATA_NASC]). Porém, no caso da fncCalcIMC ela possui 2 campos para referenciar: [PESO] e [ALTURA] e é justamente aí que não estou sabendo referenciar.

Já tentei = fncCalcIMC ([PESO];[ALTURA]) mas não dá certo.

Alguém tem uma luz?