[Resolvido]Erro #Nome? ao tentar calcular o IMC

Boa tarde a todos!
Sou novo no forum e quero pedir desculpas se estou postando no lugar ou tópico errado. Estou com essa dúvida

Tenho uma tabela chamada TBL_IMC onde tenho os seguintes campos:

Altura Número Duplo Numero Geral 2 casas decimais
Peso Número Duplo Numero Geral 2 casas decimais
IMC Número Duplo Numero Geral 2 casas decimais

No campo IMC quero criar a seguinte expressão:

= Peso / (Altura*Altura)

Eis que me retorna o erro #Nome?

Alguém pode me ajudar?

Fico no aguardo.

Atenciosamente,
Anderson

Olá, verifica se os nomes dos controles são esses mesmos que citastes. Se possível anexa os objetos fica mais fácil para descobrir qual o problema.

Boa tarde, Beto.  Vou postar agora o arquivo.
Lembrando: O problema está acontecendo na TBL_IMC.
Fico no aguardo. E obrigado a todos pela ajuda.

Muda o evento antes de atualizar (BeforeUpdate) do campo IMC para após atualizar (AfterUpdate), é que se dizes para o código ser executado antes vai dar o erro, pois o campo ainda não existe dado no campo IMC.

Boa noite
Sera isto ?

Gente, muito obrigado pela ajuda!
De coração! Fico muito grato pela atenção e ajuda apresentada aqui por vocês!
Não tenho muita experiência com o ACCESS, mas precisando de alguma coisa, podem pedir ajuda que farei o máximo para pelo menos tentar ajudá-los.

Não querendo abusar, mas já abusando, tenho um outro problema, e não sei se pode ser feito neste, ou se tenho que abrir um outro tópico. Vamos lá:

Vocês virão que existe um campo texto chamado descrição do IMC. Neste quero colocar alguns textos já personalizados de acordo com a situação do campo IMC.

No excel seria como a função se. No access como devo proceder? Peguei um exemplo aqui mesmo, e gostaria de saber se pode ser aplicado à minha necessidade: Segue abaixo o exemplo que encontrei:

Me.IMC = Me.Peso / (Me.Estatura * Me.Estatura)
Select Case Me.IMC
Case Is < 18.5
MsgBox ("Você está abaixo do peso ideal")
Case Is (>= 18.5 to <= 24.9)
MsgBox ("Parabéns — você está em seu peso normal!")
Case Is >= 25 <= 29.9
MsgBox ("Você está acima de seu peso (sobrepeso)")
Case Is >= 30 <= 34.9
MsgBox ("Obesidade grau I")
Case Is >= 35 <= 39.9
MsgBox ("Obesidade grau II")
Case Is >= 40
MsgBox ("Obesidade grau III")
End Select

Fico no aguardo.
Atenciosamente,
Anderson

no mesmo evento que eu indiquei anteriormente, coloca:

Select Case IMC
Case Is < 18.5
MsgBox ("Você está abaixo do peso ideal")
Case Is = 18.5, Is <= 24.9
MsgBox ("Parabéns — você está em seu peso normal!")
Case Is = 25, Is <= 29.9
MsgBox ("Você está acima de seu peso (sobrepeso)")
Case Is = 30, Is <= 34.9
MsgBox ("Obesidade grau I")
Case Is = 35, Is <= 39.9
MsgBox ("Obesidade grau II")
Case Is >= 40
MsgBox ("Obesidade grau III")
End Select

Boa noite a todos!
Fiz o que o Beto sugeriu e não deu!
Fiz algo de errado?

Olha como ficou:

Private Sub Descrição_do_IMC_AfterUpdate()

Select Case Me.IMC
Case Is < 18.5
MsgBox ("Você está abaixo do peso ideal")
Case Is = 18.5, Is <= 24.9
MsgBox ("Parabéns — você está em seu peso normal!")
Case Is = 25, Is <= 29.9
MsgBox ("Você está acima de seu peso (sobrepeso)")
Case Is = 30, Is <= 34.9
MsgBox ("Obesidade grau I")
Case Is = 35, Is <= 39.9
MsgBox ("Obesidade grau II")
Case Is >= 40
MsgBox ("Obesidade grau III")
End Select

End Sub

Amigo, fizeste pela minha sugestão desde minha primeira resposta? Caso afirmativo o código fica assim:
Private Sub IMC_AfterUpdate()
Me.IMC = Round(Me.Peso / (Me.Altura * Me.Altura), 2)
Select Case IMC
Case Is < 18.5
MsgBox ("Você está abaixo do peso ideal")
Case Is = 18.5, Is <= 24.9
MsgBox ("Parabéns — você está em seu peso normal!")
Case Is = 25, Is <= 29.9
MsgBox ("Você está acima de seu peso (sobrepeso)")
Case Is = 30, Is <= 34.9
MsgBox ("Obesidade grau I")
Case Is = 35, Is <= 39.9
MsgBox ("Obesidade grau II")
Case Is >= 40
MsgBox ("Obesidade grau III")
End Select
End Sub

Observa que na primeira linha faço o arredondamento das casa decimais do campo IMC para 2.

Beto, boa noite!
Realmente não está dando certo!

Não sei se expliquei da maneira correta. Na verdade quero que o texto apareça num outro campo (Caixa de texto) chamado Descrição do IMC

Amigo, realmente não fostes claro, queres que essas msgs apareçam no campo "Descrição do IMC" e não como MsgBox? Caso afirmativo troca o código anterior por este:

Private Sub IMC_AfterUpdate()
Me.IMC = Round(Me.Peso / (Me.Altura * Me.Altura), 2) 'Format(Peso / (Altura * Altura), "#.00")
Select Case IMC
Case Is < 18.5
Me.Descrição_do_IMC = "Você está abaixo do peso ideal"
Case Is = 18.5, Is <= 24.9
Me.Descrição_do_IMC = "Parabéns — você está em seu peso normal!"
Case Is = 25, Is <= 29.9
Me.Descrição_do_IMC = "Você está acima de seu peso (sobrepeso)"
Case Is = 30, Is <= 34.9
Me.Descrição_do_IMC = "Obesidade grau I"
Case Is = 35, Is <= 39.9
Me.Descrição_do_IMC = "Obesidade grau II"
Case Is >= 40
Me.Descrição_do_IMC = "Obesidade grau III"
End Select
End Sub

Bom dia a todos!
Infelizmente ainda não consegui resolver o problema.
Já tentei de várias maneiras e ainda sim continua em branco o campo Descrição do IMC. O que mais posso fazer?
Vou passar o arquivo novamente...
Fico no aguardo.
Atenciosamente,
Anderson

Olá Silva,
Teste ai.
Usei o código do Beto, no evento Após Atualizar do campo Peso, tendo em vista que o usuário não passa pelo campo IMC, ele é preenchido automaticamente.
Mudei também o nome do campo para DescricaoIMC na tabela e no Form.

Bom dia rdrck, muito obrigado! Funcionou blz! Era isso que estava precisando.
E obrigado mais uma vez a todos que me acolheram e vem me ajudando nesta nova jornada para mim que é o access.
Abraços a todos!

Que bom que funcionou.
Só não esqueça de clicar no [Resolvido] pra não deixar o tópico em aberto.
Sucesso.
Valeu.

Obrigado a todos mais uma vez!
Abraços

Se não queimar um pouco os neurônios fica difícil amigão, aliás não era preciso fazer muito esforço, era só copiar e colar o código, do mesmo jeito que o colega fez no exemplo que ele postou, o código é mesmo que passei, ele só mudou o evento e o nome do campo a receber as msgs.

Ok Beto! Obrigado pela dica, me lembrarei dela.
No mais, agradeço mais uma vez a ajuda que me foi dada por você!
Obrigado.