MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Dúvida em módulo para cálculo do IMC

    avatar
    ORLANDOCBM
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 01/08/2019

    Dúvida em módulo para cálculo do IMC Empty Dúvida em módulo para cálculo do IMC

    Mensagem  ORLANDOCBM em 24/10/2019, 22:13

    Pessoal, saudações,

    No meu formulário de cadastro de clientes tenho a cx de texto TXTPESO, que tem como fonte de controle o campo [PESO], e a TXTALTURA, que tem como fonte de controle o campo [ALTURA], e uma cx de texto NÃO ASSOCIADA, denominada (TXTIMC) que mostrará o valor do IMC baseado no seguinte módulo que criei:

    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 como ela possui 2 campos para referenciar ([PESO] e [ALTURA]) é justamente aí que não estou sabendo referenciar.

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

    Alguém tem uma luz?
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 298
    Registrado : 25/02/2016

    Dúvida em módulo para cálculo do IMC Empty Re: Dúvida em módulo para cálculo do IMC

    Mensagem  FranklinJSP em 25/10/2019, 03:47

    Boa noite!

    Em anexo exemplo

    Saludos
    Anexos
    Dúvida em módulo para cálculo do IMC AttachmentIMC (FranklinJSP).zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (642 Kb) Baixado 4 vez(es)


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"

      Data/hora atual: 21/11/2019, 22:45