[Resolvido]Colocar numa caixa de texto desvinculada uma informação relativa a um valor de outra caixa vinculada.

Boa tarde,
Tenho uma caixa de Texto num formulário com o valor do IMC.
Gostaria que, conforme o valor que fosse calculado para o IMC, aparecesse a informação numa caixa de texto desvinculada consuante a tabela em anexo:




Como seria o código?

Obrigada!

Terá de usar o Select Case;

Exemplo em cima do joelho;

Código:

Select Case IMC
    Case Is < 16
        Me.SuaCaixaTexto.Value = "Magreza grave"
    Case 16 To 17
        Me.SuaCaixaTexto.Value = "Magreza moderada"
    Case 17 To 18.5
        Me.SuaCaixaTexto.Value = "Magreza leve"
    Case 18.5 To 25
        Me.SuaCaixaTexto.Value = "Saudável"
    Case Else
        Me.SuaCaixaTexto.Value = "Desconhecido"
End Select

Obrigada JPaulo,

Vou testar a ver se funciona.
Depois dou o feedback

JPaulo
Qual o controlo que uso?
Eu queria que aparecesse automaticamente quando aparecesse o valor na caixa do IMC...
Assim só aparece quando clico em cima da caixa de txt...

Faça o teste em primeiro lugar no currente do seu formulario:

Código:

Private Sub Form_Current()
Select Case IMC
    Case Is < 16
        Me.SuaCaixaTexto.Value = "Magreza grave"
    Case 16 To 17
        Me.SuaCaixaTexto.Value = "Magreza moderada"
    Case 17 To 18.5
        Me.SuaCaixaTexto.Value = "Magreza leve"
    Case 18.5 To 25
        Me.SuaCaixaTexto.Value = "Saudável"
    Case Else
        Me.SuaCaixaTexto.Value = "Desconhecido"
End Select
Me.SuaCaixaTexto.Requery
End Sub

Ele assim funciona mas só quando eu coloco o cursor na caixa de texto do IMC...

Código:

Private Sub Txt_IMC_GotFocus()

Select Case Txt_IMC
    Case Is < 16
        Me.Txt_classificacao_IMC.Value = "Magreza grave"
    Case 16 To 17
        Me.Txt_classificacao_IMC.Value = "Magreza moderada"
    Case 17 To 18.5
        Me.Txt_classificacao_IMC.Value = "Magreza leve"
    Case 18.5 To 25
        Me.Txt_classificacao_IMC.Value = "Saudável"
    Case Else
        Me.Txt_classificacao_IMC.Value = "Desconhecido"
End Select

End Sub


E eu queria que aparecesse automaticamente quando altera este valor...

Tem de fazer como na mensagem Nº5.

E repare que no final do Select Case tem lá Me.SuaCaixaTexto.Requery

Não está a funcionar... é que as caixas de texto estão num subform... será por isso?

Ou será por causa de estar no inicio

Private Sub Txt_IMC_GotFocus() ?

Coloquei o Me.Txt_classificacao_IMC.Requery e não está a dar.
Só mesmo quando coloco o cursor no campo do IMC é que Altera...

No Private Sub Form_Current() deveria de dar, tal como lhe passei com o Requery no final.

Pode testar ainda:

Código:

Private Sub IMC_AfterUpdate()
    Me.Txt_classificacao_IMC.Requery
End Sub

Se preferir anexar o seu BD aqui, fica mais facil ajudar.

JPaulo,
Não estou a conseguir.
Envio então a BD para me ajudar.
Já agora se não for pedir muito, pode ver também a fórmula da Clearence?
Obrigada

Abra diretamente o formulario "Frm_Doentes" e vá ao separador Nº4;

Se abrir direto o formulario "Frm_Parametros_Analiticos", vai dar erro.

Download

Utilize antes esta versão, sem consulta, todos os calculos são feitos diretamente no formulario "Frm_Doentes" separador (guia) Nº4;

Download2

JPaulo,
A classificação do IMC não está a funcionar.
De resto está tudo certo!

Pode só tentar fazer esta alteração também?

Ficava muito grata!

Neste ultimo exemplo ?

Faça novamente o download.

Nesta ultima versão não está a funcionar...

Diga-me em qual campo não está a funcionar.

Abrir os dois forms.

Quando calculamos o IMC era suposto onde está escrito "Magreza leve" alterar quando o valor de IMC fosse maior que 18,5 para Saudável e assim sucessivamente... tente lá calcular o IMC com o Peso 110 Kg, que Não altera a classificação...
Percebeu?

Entendi;

Teste por favor e retorne.

Download3

Agora sim JPaulo,
Parece-me estar tudo a funcionar!

Muito Obrigada pelo vosso apoio, principalmente a si e ao Cleverson Manaus que foram os meus grandes mestres e me ajudaram a concretizar esta BD.

Por agora penso estar pronta a utilizar, mas nunca se sabe do que me irei lembrar para acrescentar... É o que nos faz ter este bichinho do access!

Fico feliz.

Obrigada pelo retorno o forum agradece.