[Resolvido]Erro em código para ocultar campos

Boa tarde pessoal,

aqui estou novamente solicitando a ajuda de vocês.

Bom, eu criei um relatório em que preciso que alguns campos fiquem ocultos, dependendo da informação de outros campos. Por exemplo, neste relatório possui o campo [admissional] que é marcado com um "X". Se esse campo estiver marcado, quero que o campo [FatorRH/GrupoSanguineo] fique visível, se o campo admissional estiver em branco, o campo [FatorRH/GrupoSanguineo] deve ficar invisível.
De acordo com a função do funcionário, alguns outros campos também deverão ficar ocultos, pois são exames especificos de determinada função.

pois bem, através do exemplo http://maximoaccess.forumeiros.com/t1860-resolvidoocultar-campo-em-relatorio tentei criar o código de acordo com minha necessidade, mas aparece uma mensagem de erro e o relatório não abre.
Coloquei o codigo em txt anexo, será que alguem pode me mostrar onde está o erro?

desde já agradeço.

Olá Marcela. Eu não entendi bem o acúmulo de linhas com IFs. O que você pretende é aninhar IFs ou separar em blocos? Talvez seja assim:

Código:

If Me.NomeFuncao = "AJUDANTE SOLDADOR / MONTADOR" Or Me.NomeFuncao = "OFICIAL DE SERVIÇOS GERAIS" Or Me.NomeFuncao = "PINTOR" Or Me.NomeFuncao = "SOLDADOR / MONTADOR" Then

  Me.ACHIPURICO.Visible = True
  Me.RACHIPURICO.Visible = True
  Me.ACMETILHIPURICO.Visible = True
  Me.RACMETILHIPURICO.Visible = True
  Me.ALAU.Visible = True
  Me.RALAU.Visible = True
  Me.CHUMBO.Visible = True
  Me.RCHUMBO.Visible = True
  Me.CREATININA.Visible = True
  Me.RCREATININA.Visible = True
  Me.GGT.Visible = True
  Me.RGGT.Visible = True
  Me.HEMOGRAMA.Visible = True
  Me.RHEMOGRAMA.Visible = True
  Me.MANGANES.Visible = True
  Me.RMANGANES.Visible = True
  Me.TGO.Visible = True
  Me.RTGO.Visible = True
  Me.TGP.Visible = True
  Me.RTGP.Visible = True
  Me.TRICLOROCOMPOSTO.Visible = True
  Me.RTRICLOROCOMPOSTO.Visible = True
  Me.ZINCO.Visible = True
  Me.RZINCO.Visible = True
 
Else

  Me.ACHIPURICO.Visible = False
  Me.RACHIPURICO.Visible = False
  Me.ACMETILHIPURICO.Visible = False
  Me.RACMETILHIPURICO.Visible = False
  Me.ALAU.Visible = False
  Me.RALAU.Visible = False
  Me.CHUMBO.Visible = False
  Me.RCHUMBO.Visible = False
  Me.CREATININA.Visible = False
  Me.RCREATININA.Visible = False
  Me.GGT.Visible = False
  Me.RGGT.Visible = False
  Me.HEMOGRAMA.Visible = False
  Me.RHEMOGRAMA.Visible = False
  Me.MANGANES.Visible = False
  Me.RMANGANES.Visible = False
  Me.TGO.Visible = False
  Me.RTGO.Visible = False
  Me.TGP.Visible = False
  Me.RTGP.Visible = False
  Me.TRICLOROCOMPOSTO.Visible = False
  Me.RTRICLOROCOMPOSTO.Visible = False
  Me.ZINCO.Visible = False
  Me.RZINCO.Visible = False

End If

Olá Criquio,

eu quero aninhar os Ifs mesmo, mas mesmo da maneira como você colocou aparece a mesma mensagem.

coloquei anexo talvez auxilie melhor.

Explique como deve funcionar para podermos entender melhor.

NomeFunção é o quê?

então.

NomeFuncao e um campo, preenchido através do cadastro principal do funcionário em que consta a função do mesmo.
Acontece que eu tenho em média 40 funções distintas na empresa, dessas 36 segue o mesmo padrao de ASO (que é o relatório em questão) em que constam apenas 4 exames.

Quando esse Aso é admissional, deve constar ainda um 5º exame (FatorRH/GrupoSanguíneo).

As outras quatro funções (ajudante soldador/montador, soldador/montador, oficial de serviços gerais e pintor) possui, além dos quatro exames básicos, mais 12 exames específicos.

Acontece que nesse relátório só pode constar os exames de cada função. Ou seja, um exame específico da função pintor não pode estar (mesmo que em branco) em no relatório de outras funções. Já os quatro exames básicom deve estar lá, mesmo que a data não esteja preenchida. Por isso já descartei ocultar os campos nulos.

Ola Criquio,

obrigada por sua ajuda. Consegui resolver.
coloquei o código em "Ao carregar" ao invés de ao abrir.
e estava faltando o "value" (Me.Admissional.Value =)
fiz essas correções é ficou tudo conforme precisava.

Obrigada mais uma vez!

Que bom que resolveu. O fórum agradece o retorno.