[Resolvido]AfterUpdate()

Olá colegas do Grupo!

Estou com dificuldades para encontrar o erro apresentado na Compilação no AfterUpdate, pois está informando Qualificador Inválido na sintaxe

txtPesqCli.visible = False

Verifiquei a ortografia e a declaração no escopo e está correto.
Creio que eu não devo estar enxergando este erro.
Vou colocar abaixo código e gostaria de uma ajuda.
Há... já procurei nos assuntos relacionados e não encontrei.

Desde já obrigado.




Private Sub txtPesqCli_AfterUpdate()
   
   Set dbs = CurrentDb
   strSQL = "SELECT tbl_Clientes.ccNomCli, tbl_Clientes.ccCGC, tbl_Clientes.ccCPF, tbl_Clientes.ccInsEst, tbl_Clientes.ccEndereco, tbl_Clientes.ccBairro, tbl_Clientes.ccNumero,
   tbl_Clientes.ccCep, tbl_Clientes.ccCidade, tbl_Clientes.ccEstado, tbl_Clientes.ccTelefone, tbl_Clientes.ccAtivo, tbl_Clientes.CODCLI, tbl_Clientes.ccBloqueio,
   tbl_Clientes.ccTipCli"
   strSQL = strSQL & " From tbl_Clientes"
   strSQL = strSQL & " WHERE tbl_Clientes.ccAtivo = True And tbl_Clientes.CODCLI <> 1"
   strSQL = strSQL & " AND tbl_Clientes.ccNomCli Like " & "'" & txtPesqCli & "*'"
   strSQL = strSQL & " ORDER BY tbl_Clientes.ccNomCli;"
   Set rst = dbs.OpenRecordset(strSQL)
   txtCLIENTE.RowSource = strSQL
   txtCLIENTE.visible = True
   txtCLIENTE.SetFocus
   txtCLIENTE.Dropdown
   txtPesqCli.visible = False
   
End Sub

Boa tarde
Isso acontece porque está a executar o código nesse controlo
Se está nesse controlo, não pode esconder um controlo enquanto está a ser usado

Nossa Alexandre, rsrsrs.

É verdade.

Muito obrigado.