[Resolvido]Colocar SubFormulario invisivel em função do valor de um campo em outro subformulario.

Boa noite.
Nome Formulario Fml_Individual tem dois subformularios:
1) SubFml_ProblIndividuais, que é um formulario continuo, e tem um campo tipo texto chamado "ProblemCronIndividual".
2)SubFml_ControleMetabCalculado.

Gostaria que, se um dos valores do campo "ProblemCronIndividual" fosse "Diabetes", o SubFml_ControleMetabCalculado ficasse VISÍVEL, caso não tenha "Diabetes" entre os valores do Campo, que ele ficasse INVISIVEL .

Coloquei o SubFml como Visivel=Nao nas propriedades e Inseri o seguinte cõdigo no evento no atual e depois em ao abrir.

If [Form]![SubFml_ProblIndividuais]![ProblemCronIndividual] = "Diabetes" Then
SubFml_ControleMetabCalculado.Visible = True
End If


Mas não ficou visivel. Alguém tem alguma ideia de como posso fazer isso?

Obrigado.

Walter

Poderia postar aqui seu aplicativo para nossa verificação?

Tensde fazera referência completa, primeiro o form principal, depois o subform e depois o campo em todo o código tipo algo como:

If [Formulários]![Fml_Individual]![SubFml_ProblIndividuais]![ProblemCronIndividual] = "Diabetes" Then
[Formulários]![Fml_Individual]![SubFml_ControleMetabCalculado].Visible = True
Else
End If

Bom dia, Marcelo Davi.
Estou enviando uma parte do BD para sua análise. Tem várias mensagens de erro pois tirei muitas coisas que não tem a ver com o problema apresentado.

Abra o Formulario "Fml_CadastroFamilias", nele procure por "Abilio....." No SubFml_Membros da Familia, clique duas vezes na esposa dele, Antonia, vai abrir outro Form com os dados individuais dessa pessoa (Fml_Individual). Como ela tem Diabetes, entre outras doenças (Veja no SubForm em baixo), lá no alto em controle metabolico o subformulario deveria estar visivel, dentro da caixa...

Um abraço,

Walter

link: https://www.dropbox.com/s/a12bcq3r9poah2b/CadastroPSF-Walter.mdb?dl=0

------------------------
Amigo Toyebom.

Tentei colocando as referencias completas conforme sua sugestão, mas o BD continua ignorando o codigo. Não dá mensagem de erro, mas não funciona.
Um abraço.

Walter

Olá, observe se é o que pretende.
O código foi posto no evento atual
do formulário fml_individual.

Baixe aqui.

Olá, Marcelo.
É quase isso que pretendo, mas esse recurso que você apresentou vai servir para outros implementos que pretendo fazer.

Vou colocar o código que voce enviou aqui, para apreciação dos participantes do forum:

If DCount("ProblemCronIndividual", "Tbl_ProblemCronicIndiv", "[CódigoMembrosFamilia]=" & Me.CódigoMembrosFamilia) > 0 Then
Me.SubFml_ContoleMetabCalculado.Visible = True
Else
Me.SubFml_ContoleMetabCalculado.Visible = False
End If

Nesse caso específico o SubForm deverá ficar visivel apenas se, entre os problemas listados, tiver "Diabetes". Outros problemas não justificam calcular o Controle Metabolico. Ficou confuso ou deu pra entender?

Walter

Agora entendi...

na tabela de problemas crônicos, você tem três tipos de diabetes.
É para considerar todos eles? Ou apenas o registro 30, Diabetes?

Uma dúvida: O botão de calculo deverá acompanha o comportamento do subform?

Pode considerar apenas "Diabetes", vou excluir Diabetes tipo 1 e Tipo 2, pois estão englobados e não estou usando essas opções.

Quanto a segunda duvida, o botão também deverá ficar invisivel, assim como o Rótulo141 e a Caixa138. Estou pensando em colocar uma mensagem visivel tipoÇ "Paciente Não Diabético" ou coisa parecida, quando os elementos estiverem invisiveis...

Teste por favor o arquivo da mensagem 5 (atualizei com as observações que você informou)

Muito bem, Marcelo.
Ficou perfeito!

Agora vou implementa-lo no meu aplicativo.

Muito obrigado pela sua ajuda, novamente.

Como sempre voce foi ágil e eficaz.

Um grande abraço.

Walter

Ótimo que deu certo! Só não esqueça de clicar no resolvido!
Bom serviço.

Resolvido.