[Resolvido]Dúvida comando Select Case

Amigos bom tarde,

Estou tentando utilizar a função select case do access para cálculo o IMC, mas na hora de calcular e me mostrar uma mensagem sobre o peso da pessoa, ele vai no segundo select e não compara o restante do código:


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

Obrigado.

Fala ae blz?

Não entendi! A instrução case irá testar o valor da expressão e se atender dá a mensagem!

Porque vc precisa testar as outras condições se o peso já se enquadrou em uma delas?

Não me expressei mal, no caso ele sempre para na primeira linha do select, sendo que o resultado não condiz com a primeira linha.

Por exemplo o resultado é 52, ele não vai até a linha que tem >40. Ele fica sempre na primeira linha.

Obrigado..

Olá

experimente:

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

Funfou certinho, valeu mestre Avelino. Adquiri o seu monta ribbons, cara muito bom, Parabéns!!!
Obrigado.

Ops! tem um pequeno errinho. acrescente o sinal de igual no primeiro caso:

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

Funfou certinho, valeu mestre Avelino. Adquiri o seu monta ribbons, cara muito bom, Parabéns!!!
Obrigado.