[Resolvido]Usar Select Case para buscar informação em uma tabela.

Boa noite, amigos.
Estou com dificuldade para fazer o código abaixo. Preciso que alguém me ajude.

Select Case Idade
   Case Is < 60
       Me.RótNãoIdoso.Visible = True
   Case Is < 80
      Select Case ([Tabela]![Tbl_AvaliaIdoso]![IdosoFrágil]) ' Nao está funcionando
          Case "Sim"
            Me.RótIdosoFrágil.Visible = True
          Case Else
       Me.Rótidoso.Visible = True
       End Select
   Case Else
       Me.RótIdosoFrágil.Visible = True
End Select

Trata-se do seguinte:
O VBA deve ler o campo "Idade", se a idade for menor que 60, o RótNãoIdoso deve ficar visível.
Caso seja 60 ou mais, ver se é Menor que 80 anos. Se for menor que 80 anos, deve ir na Tabela "Tbl_AvaliaIdoso" e ver o campo "IdosoFrágil", seo mesmo for "Sim", então o rótulo "RótIdosoFrágil" deve ficar visível. Caso Contrário o rótulo "Rótidoso" deverá ficar visível. Se "idade" for 80 ou mais, então "RótIdosoFrágil" deve ficar visível.
Resumindo:
80 anos ou mais ---- sempre idoso frágil
60 a 79 anos ------- idoso, mas só é frágil se na Tabela tiver "Sim"
Menos de 60 anos: Não é idoso.
(Não sei se é possivel fazer referencia a um campo numa Tabela, dentro desse código, conforme está em vermelho...)

Ficou claro?

Obrigado,

Walter

Não falta por ai uns If e Then

Boa noite Toyebom.
Obrigado por responder.
Quando se usa Select Case não precisa usar If e Then, eu acho!

Walter

Boa tarde,

Basta utilizar a Dlookup
Select Case Idade
Case Is < 60
Me.RótNãoIdoso.Visible = True
Case Is < 80
Select Case dlookup("IdosoFrágil","Tbl_AvaliaIdoso","CondiçãoDeProcuraDeRegisto")
Case "Sim"
Me.RótIdosoFrágil.Visible = True
Case Else
Me.Rótidoso.Visible = True
End Select
Case Else
Me.RótIdosoFrágil.Visible = True
End Select

Bom dia, Alexandre.
Obrigado por responder à minha dúvida.

Fiz o código, mas está dando erro de sintaxe.

Private Sub Form_Open(Cancel As Integer)
Select Case Idade
   Case Is < 60
       Me.RótNãoIdoso.Visible = True
   Case Is < 80
       Select Case DLookup("IdosoFrágil", "Tbl_AvaliaIdoso", "[CódigoMembrosFamilia]='" & Me!CódigoMembrosFamilia)
           Case "Sim"
               Me.RótIdosoFrágil.Visible = True
           Case Else
               Me.Rótidoso.Visible = True
       End Select
   Case Else
       Me.RótIdosoFrágil.Visible = True
End Select


Outras duas questões nesse código:
CódigoMembrosFamilia  é o campo de chave secundária na Tbl_AvaliaIdoso

1º - Como faço para esse código buscar a última avaliação do Idoso em questão? Ou seja, o mesmo Idoso pode ser avaliado em vários dias diferentes e eu queria que o código buscasse a avaliação "mais recente". Como seria isso?
2º - Caso não tenha sido feita avaliação desse idoso, entre 60 e 79 anos, deverá ficar visível o "RótIdoso".

Obrigado,

Walter

Grande Mestre Alexandre.. Meus respeitos..


Se CódigoMembrosFamilia = texto
DLookup("IdosoFrágil", "Tbl_AvaliaIdoso", "[CódigoMembrosFamilia]='" & Me!CódigoMembrosFamilia & "'')


Se CódigoMembrosFamilia = Numero
DLookup("IdosoFrágil", "Tbl_AvaliaIdoso", "[CódigoMembrosFamilia]=" & Me!CódigoMembrosFamilia & "")




Cumprimentos.

Muito obrigado, Alexandre e Harysohn.
Estou testando o código ainda, mas parece que deu certo.
Troquei o DLookup por DLast para buscar o último registro, pois o idoso pode, e deverá ser, avaliado várias vezes.

O código ficou assim:

Private Sub Form_Open(Cancel As Integer)
Select Case Idade
   Case Is < 60 'Se a Idade for menor que 60 anos
       Me.RótNãoIdoso.Visible = True 'Torna o Rótulo Não-Idoso visível
   Case Is < 80 'Se a Idade for menor que 80 anos
       Select Case DLast("IdosoFrágil", "Tbl_AvaliaIdoso", "[CódigoMembrosFamilia]=" & Me!CódigoMembrosFamilia & "") 'Busque o último registro na Tbl_AvaliaIdoso
          Case "Sim" 'Se IdosoFrágil for "sim"
            Me.RótIdosoFrágil.Visible = True 'Torne o Rotulo Idoso Frágil visível
          Case "Não" 'Se for "não"
            Me.Rótidoso.Visible = True 'Torne o Rotulo Idoso Visivel
          Case Else ' Se não for "Sim" nem "Não"
            Me.Rótidoso.Visible = True ' Torne o Rótulo Idoso visivel
        End Select
   Case Else ' Se a idade for 80 ou mais
       Me.RótIdosoFrágil.Visible = True ' Torne o Rótulo Idoso Fragil visível
End Select

Obrigado.

Walter

Aguardamos..

Cumprimentos.

Resolveste?

Cumprimentos.

Resolvido, Harysohn.

O código estava perfeito, mas tive problema com o formulario, que estava dando um erro ao abrir, mas já solucionei...
Muito obrigado.

Um abraço

Walter

O Fórum  agradece o Retorno.