[Resolvido]Busca sincronizada com outros campos

Boa tarde amigos Forenses.
 
Estou com dificuldade em sincronizar os campos: TxtPesqCliente (não acoplado ao formulário), LstCliente (Caixa de listagem) e outros três campos (TxtGerencia, TxtData, TxtCNPJ - todos não acoplados ao formulários).
 
Quando clico em qualquer empresa no campo LstCliente, existe um código no evento após atualizar (Me.TxtCNPJ = Me.LstClienteOperador.Column(3)) que retorna a informação automaticamente para seus respectivos campos (TxtGerencia, TxtData, TxtCNPJ).
 
O problema acontece quando uso o campo de pesquisa (TxtPesqCliente). Nesse campo está escrito um código em VBA no evento ao alterar

Código:

Me.LstClienteOperador.RowSource = "SELECT CodEmpresaRecup, ClienteRecuperado FROM EmpresasRecuperadas WHERE ClienteRecuperado LIKE '*" & Me.TxtPesqCliente.Text & "*'"

Código:

que funciona muito bem, porém perco a funcionalidade "Column", ou seja os campos (TxtGerencia, TxtData, TxtCNPJ) não são preenchidos automaticamente e só voltam a funcionar se eu fechar a tela e abrí-la novamente.
 
Grato pela ajuda e apoio de todos.

Boas Amigão..

Envie-nos um modelo do Bd para que possamos ver isto pra ti.

Cumprimentos.

Bom dia Harysohn.
 
Antecipo meu agradecimento pela atenção e disponibilização do seu tempo para ajudar-me. Retirei todas as informações e objetos que não são pertinentes ao tema, se você precisar de algum objeto, me avise por gentileza.
Segue o BD conforme solicitado.
Um forte abraço

Ok, estou com o teu BD, cite o passo a passo para que eu reproduza aqui, citando os objetos envolvidos.

Cumprimentos.

Boa tarde, Harysohn

Estou com dificuldade em sincronizar os campos: TxtPesqCliente (não acoplado ao formulário), LstCliente (Caixa de listagem) e outros três campos (TxtGerencia, TxtData, TxtCNPJ - todos não acoplados ao formulários).

Quando clico em qualquer empresa no campo LstCliente, existe um código no evento após atualizar (Me.TxtCNPJ = Me.LstClienteOperador.Column(3)) que retorna a informação automaticamente para seus respectivos campos (TxtGerencia, TxtData, TxtCNPJ).

O problema acontece quando uso o campo de pesquisa (TxtPesqCliente). Nesse campo está escrito um código em VBA no evento ao alterar Me.LstClienteOperador.RowSource = "SELECT CodEmpresaRecup, ClienteRecuperado FROM EmpresasRecuperadas WHERE ClienteRecuperado LIKE '*" & Me.TxtPesqCliente.Text & "*'" que funciona muito bem, porém perco a funcionalidade "Column", ou seja os campos (TxtGerencia, TxtData, TxtCNPJ) não são preenchidos automaticamente e só voltam a funcionar se eu fechar a tela e abrí-la novamente.

Grato pela ajuda.

Apenas dando um pitaco.....

Veja se é isso que deseja.

Silvio, boa tarde.
 
Era exatamente isso que eu queria. Estou verificando que os campos que você adicionou estão marcados com '******, não é isso? Se não for pedir demais, gostaria que me desse uma dica por que você usou o código Forms!Freceitarecuperada.Form!TxtCNPJ = Me.LstClienteOperador.Column(2) no lugar do código

Código:

Me.TxtCNPJ = Me.LstClienteOperador.column(2)

.
"Não quero apenas o peixe, quero aprender a pescar"
Muito obrigado pelo apoio!

Simples, campos desvinculados...optei por essa forma de introduzir as informações nas caixas desacopladas.

E onde houver '****** são as modificações feitas.

Bons estudos.

Valeu Silvio, muito obrigado.

Grande Silvio!!!
Obrigado pela Ajuda.. não pude passar por aqui hoje, Valeu.

Abraços.