MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Calcular IMC

    Compartilhe

    alencarti
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 21/09/2016

    [Resolvido]Calcular IMC

    Mensagem  alencarti em Sex 23 Set 2016, 17:36

    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
    Anexos
    Clínica.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (158 Kb) Baixado 3 vez(es)


    Última edição por alencarti em Sab 24 Set 2016, 01:31, editado 1 vez(es)

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1327
    Registrado : 17/03/2011

    Re: [Resolvido]Calcular IMC

    Mensagem  Cláudio Machado em Sex 23 Set 2016, 20:26

    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.
    Anexos
    Clínica.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (47 Kb) Baixado 7 vez(es)


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.

    alencarti
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 21/09/2016

    Re: [Resolvido]Calcular IMC

    Mensagem  alencarti em Sex 23 Set 2016, 20:58

    Putz, muito bom!

    O que quer dizer essa linha?

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

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1327
    Registrado : 17/03/2011

    Re: [Resolvido]Calcular IMC

    Mensagem  Cláudio Machado em Sex 23 Set 2016, 21:03

    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.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.

    alencarti
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 21/09/2016

    Re: [Resolvido]Calcular IMC

    Mensagem  alencarti em Sex 23 Set 2016, 21:25

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

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1327
    Registrado : 17/03/2011

    Re: [Resolvido]Calcular IMC

    Mensagem  Cláudio Machado em Sex 23 Set 2016, 22:03

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


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.

    alencarti
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 21/09/2016

    Re: [Resolvido]Calcular IMC

    Mensagem  alencarti em Sex 23 Set 2016, 23:52

    Ficou Top!!
    Muito obrigado pela paciência.

    Vou tentar incrementar mais coisas.

    Abraço.

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1327
    Registrado : 17/03/2011

    Re: [Resolvido]Calcular IMC

    Mensagem  Cláudio Machado em Sab 24 Set 2016, 01:05

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


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.

      Data/hora atual: Sab 03 Dez 2016, 04:36