[Resolvido]Habilitar e Desabilitar campos

Caros, bom dia!

Estou tendo um problema ao tentar habilitar ou desabilitar alguns checkbutton em meu formulário.

O erro que ocorre é o seguinte: "Método ou membro de dados não encontrado"

Segue o código para validação:

Private Sub lst_Divergencia_AfterUpdate() ***O erro ocorre aqui no inicio***

   If Me.lst_Divergencia.Value = "Não" Then
       
       Me.chk_ComprovanteEnd.Enabled = False
       Me.chk_DadosCadastrais.Enable = False
       Me.chk_Elegibilidade.Enable = False
       Me.chk_Implantacao.Enable = False
       Me.chk_Intercambio.Enable = False
       Me.chk_ReducaoCarencia.Enable = False
       Me.chk_SemValEnd.Enable = False
       Me.chk_AtivoReducao.Enable = False
       Me.chk_Valor.Enable = False
       Me.chk_Email.Enable = False
       Me.chk_CategPlano.Enable = False
       Me.chk_PlanDental.Enable = False
       Me.chk_DeclaCarencia.Enable = False
       Me.chk_Entidade.Enable = False
       Me.chk_Vigencia.Enable = False
       Me.chk_DocComprob.Enable = False
       Me.chk_Fatura.Enable = False
       Me.chk_DadosDepen.Enable = False
       Me.chk_DadoRespFinan.Enable = False
       Me.chk_Telefone.Enable = False
       Me.chk_DadosBanc.Enable = False
       Me.chk_CancelPlan.Enable = False
   
   Else
           
   
       Me.chk_ComprovanteEnd.Enabled = True
       Me.chk_DadosCadastrais.Enable = True
       Me.chk_Elegibilidade.Enable = True
       Me.chk_Implantacao.Enable = True
       Me.chk_Intercambio.Enable = True
       Me.chk_ReducaoCarencia.Enable = True
       Me.chk_SemValEnd.Enable = True
       Me.chk_AtivoReducao.Enable = True
       Me.chk_Valor.Enable = True
       Me.chk_Email.Enable = True
       Me.chk_CategPlano.Enable = True
       Me.chk_PlanDental.Enable = True
       Me.chk_DeclaCarencia.Enable = True
       Me.chk_Entidade.Enable = True
       Me.chk_Vigencia.Enable = True
       Me.chk_DocComprob.Enable = True
       Me.chk_Fatura.Enable = True
       Me.chk_DadosDepen.Enable = True
       Me.chk_DadoRespFinan.Enable = True
       Me.chk_Telefone.Enable = True
       Me.chk_DadosBanc.Enable = True
       Me.chk_CancelPlan.Enable = False
       
   End If

End Sub


Alguém pode me dar uma luz do que pode estar ocorrendo?

Possivelmente é problema com nome dos Campos... Reveja os nomes dos campos principalmente esse da primeira linha... Veja se nao tem Caracter especial... Se possível renomeio-o...

Olá Fabio, boa tarde!

Primeiramente, obrigado pelo retorno, eu realizei o ajuste na nomeclatura de todos os campos, porém o erro ainda persiste, o código continua travando no incio.

Segue código com a nomeclatura ajustada para validação:

Private Sub cblDivergencia_AfterUpdate()

If Me.cblDivergencia.Value = "NÃO" Then

Me.chkComprovanteEnd.Enabled = False
Me.chkDadosCadastrais.Enable = False
Me.chkElegibilidade.Enable = False
Me.chkImplantacao.Enable = False
Me.chkIntercambio.Enable = False
Me.chkReducaoCarencia.Enable = False
Me.chkSemValEnd.Enable = False
Me.chkAtivoReducao.Enable = False
Me.chkValor.Enable = False
Me.chkEmail.Enable = False
Me.chkCategPlano.Enable = False
Me.chkPlanDental.Enable = False
Me.chkDeclaCarencia.Enable = False
Me.chkEntidade.Enable = False
Me.chkVigencia.Enable = False
Me.chkDocComprob.Enable = False
Me.chkFatura.Enable = False
Me.chkDadosDepen.Enable = False
Me.chkDadoRespFinan.Enable = False
Me.chkTelefone.Enable = False
Me.chkDadosBanc.Enable = False
Me.chkCancelPlan.Enable = False

Else


Me.chkComprovanteEnd.Enabled = True
Me.chkDadosCadastrais.Enable = True
Me.chkElegibilidade.Enable = True
Me.chkImplantacao.Enable = True
Me.chkIntercambio.Enable = True
Me.chkReducaoCarencia.Enable = True
Me.chkSemValEnd.Enable = True
Me.chkAtivoReducao.Enable = True
Me.chkValor.Enable = True
Me.chkEmail.Enable = True
Me.chkCategPlano.Enable = True
Me.chkPlanDental.Enable = True
Me.chkDeclaCarencia.Enable = True
Me.chkEntidade.Enable = True
Me.chkVigencia.Enable = True
Me.chkDocComprob.Enable = True
Me.chkFatura.Enable = True
Me.chkDadosDepen.Enable = True
Me.chkDadoRespFinan.Enable = True
Me.chkTelefone.Enable = True
Me.chkDadosBanc.Enable = True
Me.chkCancelPlan.Enable = False

End If

End Sub

Tem alguma outra ideia do que pode ser?

Olá Avelino, boa tarde!

O problema foi solucionado, realmente não havia me atentado na falta do "D" no final do EnableD, após realizar o ajuste o código funcionou normalmente.

Obrigado pelo auxilio!

Problema Resolvido! Obrigado!