[Resolvido]Campo não habilitado no controle guia não funciona

Bom dia

Criei um cadastro onde quando aciono botão novo, este habilita a caixa de lista.
Ao clicar nessa ela habilitaria alguns campos, entre eles um controle guia.
Tudo funciona, menos o campo Guia, este não se habilita.
Troquei para os campos que ficarão dentro desse controle e... nada também.

Abaixo o código.


Private Sub ComandoNovo_Click()
'DefinirAtivacaoSubForm
If MsgBox(" Deseja cadastrar um novo exame físico?", vbOKCancel + vbDefaultButton1 + vbInformation, "!!!!!AVISO!!!!!") = vbOK Then
DoCmd.GoToRecord , , acNewRec
'Habilita controles IdExameFisico e lista1
With Me
.IdExameFisico.Enabled = True
.Lista1.Enabled = True
'*** aparece essa mensagem no topo do formulário
.Caption = "Exame Médico Sendo Efetuado"
End With
' Else ' caso não queira cadastrar, ação cancelada
MsgBox " Ação cancelada, funcionário não cadastrado", vbInformation, " !!!!!AVISO!!!!!"
End If
End Sub

Private Sub List1_Click()
'Habilita controles
With Me
.CtlGuia1.Enabled = True
.ComandoSNC.Enabled = True
.ComandoOmbroD.Enabled = True
.ComandoOmbroE.Enabled = True
.ComandoCotoveloD.Enabled = True
.ComandoCotoveloE.Enabled = True
.ComandoAntropometria.Enabled = True
.ComandoMaoD.Enabled = True
.ComandoMaoE.Enabled = True
.ComandoQuadrilD.Enabled = True
.ComandoQuadrilE.Enabled = True
.ComandoCid10.Enabled = True
.ComandoJoelhoD.Enabled = True
.ComandoJoelhoE.Enabled = True
.ComandoTornozeloD.Enabled = True
.ComandoTornozeloE.Enabled = True
.ComandoArcosCostais.Enabled = True
.ComandoFuncao.Enabled = True
.ComandoColuna.Enabled = True
.ComandoLaboratorio.Enabled = True
.ComandoFarmaco.Enabled = True
.ComandoSalvar.Enabled = True
.Data.Enabled = True

'*** aparece essa mensagem no topo do formulário
.Caption = "Exame Médico Sendo Efetuado"
End With
' Else ' caso não queira cadastrar, ação cancelada
MsgBox " Ação cancelada, Periciado (a) não cadastrado (a)", vbInformation, " !!!!!AVISO!!!!!"
' End If
End Sub



Como resolvo isso.....

Obrigado

A instrução está correta e deveria de habilitar ".CtlGuia1.Enabled = True"

Tem a certeza do nome desse controle guia ?

Boa tarde J Paulo.
Verifiquei e vejo que sim. Fiz uma pequena cópia.
Talvez possa descobrir.
Obrigado.

Dando um up.

No exemplo que disponibilizou, a linha para habilitar o controle guia esta "desativado". Ativei, cliquei em novo e o controle guia ficou editável.

Bom dia Cafpr

Em seu comentário, a linha que se refere encontra-se no evento do Botão novo.

A ideia é que este evento ocorra quando clicar na Lista.
Nela, o evento encontra-se ativado.
E uma vez acionado os controles funcionam, menos a guia.

Veja a codificação:

Private Sub List1_Click()
'Habilita controles
With Me
  .CtlGuia1.Enabled = True
  .ComandoSNC.Enabled = True
  .ComandoOmbroD.Enabled = True
  .ComandoOmbroE.Enabled = True
  .ComandoCotoveloD.Enabled = True
  .ComandoCotoveloE.Enabled = True
  .ComandoAntropometria.Enabled = True
  .ComandoMaoD.Enabled = True
  .ComandoMaoE.Enabled = True
  .ComandoQuadrilD.Enabled = True
  .ComandoQuadrilE.Enabled = True
  .ComandoCid10.Enabled = True
  .ComandoJoelhoD.Enabled = True
  .ComandoJoelhoE.Enabled = True
  .ComandoTornozeloD.Enabled = True
  .ComandoTornozeloE.Enabled = True
  .ComandoArcosCostais.Enabled = True
  .ComandoFuncao.Enabled = True
  .ComandoColuna.Enabled = True
  .ComandoLaboratorio.Enabled = True
  .ComandoFarmaco.Enabled = True
  .ComandoSalvar.Enabled = True
  .Data.Enabled = True
   '*** aparece essa mensagem no topo do formulário
   .Caption = "Exame Médico Sendo Efetuado"
End With
'   Else ' caso não queira cadastrar, ação cancelada
MsgBox " Ação cancelada, Periciado (a) não cadastrado (a)", vbInformation, " !!!!!AVISO!!!!!"
 '  End If
End Sub



É isso que precisaria corrigir.

Dando um up

A caixa de listagem (List1) esta desabilitado. Então habilite e quando carregar o form clicando nela habilitara para edição a guia.

Muito obrigado.
Resolvido.