[Resolvido]Erro de Compilador: Qualificador invalido

Olá pessoal.
Não estou conseguindo identificar por que está dando erro de compilação na linha txtPesqCli.visible = False.
Alguém poderia me ajudar.
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
--------------------------------------------------------------------------------------------------------------------------------

Se possível, anexe o formulário para testarmos.

Tente também importar os objetos para um novo arquivo, conferir referências etc.

Sintaxe incorreta. Verifique a linha abaixo:

Errado:
AND tbl_Clientes.ccNomCli Like " & "'" & txtPesqCli & "*'"

Correto:
AND tbl_Clientes.ccNomCli Like '*" & txtPesqCli & "*'"

DICA
Em suas instruções SQL, evite colocar tudo em uma só linha. Procure quebrar a string em varias linhas, pois fica melhor a  manutenção:

Código:



strSQL = "SELECT  
strSQL = strSQL & " tbl_clientes.ccnomcli,
strSQL = strSQL & " tbl_clientes.cccgc,
strSQL = strSQL & " tbl_clientes.cccpf,
strSQL = strSQL & " tbl_clientes.ccinsest,
strSQL = strSQL & " tbl_clientes.ccendereco,
strSQL = strSQL & " tbl_clientes.ccbairro,
strSQL = strSQL & " tbl_clientes.ccnumero,
strSQL = strSQL & " tbl_clientes.cccep,
strSQL = strSQL & " tbl_clientes.cccidade,
strSQL = strSQL & " tbl_clientes.ccestado,
strSQL = strSQL & " tbl_clientes.cctelefone,
strSQL = strSQL & " tbl_clientes.ccativo,
strSQL = strSQL & " tbl_clientes.codcli,
strSQL = strSQL & " tbl_clientes.ccbloqueio,
strSQL = strSQL & " tbl_clientes.cctipcli
strSQL = strSQL & " From tbl_Clientes
strSQL = strSQL & " WHERE    tbl_clientes.ccativo = true
strSQL = strSQL & " AND      tbl_clientes.codcli <> 1
strSQL = strSQL & " AND tbl_Clientes.ccNomCli Like '*" & txtpesqcli & "*'"
strSQL = strSQL & " ORDER BY tbl_clientes.ccnomcli;



[]'s

FIM

Olá Alexandre!

Obrigado em responder e desculpa pela organização e padronização das linhas.

Bom, fiz a correção e continua apresentando erro na compilação na mesma linha.

txtPesqCli.visible = False

Cara?

O campo "txtPesqCli" relamente existe?
A nomenclatura dele está correta?

Nas propriedades do campo, verifique se o texto "txtPesqCli" esta na propriedade "Legenda" ou na propriedade "Nome".

Fica dificil tentar te ajudar no escuro.
Conforme o @DamascenoJr mencionou, poste aqui uma cópia do seu banco de dados (somente os objetos envolvidos) para análise e solução.

[]'s

FIM

Boa tarde
Reveja o seu código. A instrução não será executada porque está a ser executado nesse objecto e não poderá ficar escondido e activo para a execução do código. Será isso

Exato. Agora notei também. Será esse exatamente o problema.

Olá colegas.

Quero agradecer vocês pela ajuda, pois realmente era o nome na propriedade do nome, pois estava com uma virgula que não tinha que estar lá.

Obrigado Alexandre Fim, Alexandre Neves e DamascenoJr.

Valeu abjinfo,
O fórum agradece.
Sucesso!!!