[Resolvido]Preencher campos de um formulário tendo uma caixa de combinação como base.

Olá a todos!

Estou recorrendo ao Fórum para me tirarem uma dúvida a respeito de preenchimento automático de campos de um formulário, tendo como base uma caixa de combinação.

Tenho uma tabela chamada TabCliente com os seguintes campos e colunas nesta ordem:
Cliente_ID => Primeira coluna = Numeração Automática (Chave primária);
CPF_CNPJ => Segunda coluna = Texto Curto.
Nome_Completo => Terceira coluna = Texto Curto.
TelefoneFixo => Quarta coluna = Texto Curto.
Celular => Quinta coluna = Texto Curto.
Whatsapp => Sexta coluna = Texto Curto.

E tenho um formulário chamado Frm_CadastroServico com os seguintes campos:
cboPropComprador => Caixa de combinação que recebe os dados de uma consulta SQL (SELECT TabCliente.Nome_Completo, TabCliente.CPF_CNPJ FROM TabCliente ORDER BY TabCliente.Nome_Completo;) e exibe apenas o Nome_Completo nela.
txtRequerente => Caixa de texto.
txtTelefoneFixo => Caixa de texto.
txtCelular => Caixa de texto.
txtWhatsapp => Caixa de texto.

No evento Após atualizar do txtRequerente, eu coloquei este código:

Código:

Me.txtTelefoneFixo = DLookup("TelefoneFixo", "TabCliente", "TelefoneFixo=" & Me!cboPropComprador.Column(4) & "'")
Me.txtCelular = DLookup("Celular", "TabCliente", "Celular=" & Me!cboPropComprador.Column(5) & "'")
Me.txtWhatsapp = DLookup("Whatsapp", "TabCliente", "Whatsapp=" & Me!cboPropComprador.Column(6) & "'")


Quando eu o executo, aparece a mensagem "Erro em tempo de execução 3075. Erro de sintaxe na cadeia na expressão de consulta 'TelefoneFixo='".

Já revirei alguns fóruns, inclusive dei uma olhada no repositório deste fórum, tentei várias expressões e nenhuma deu certo.

Alguém aí sabe o que eu estou fazendo de errado?

Ola amigo,para ajudar mais rápido poste pra gente ver.

Olá,

Inclua os campos marcados no select abaixo:

SELECT TabCliente.Nome_Completo, TabCliente.CPF_CNPJ, TabCliente.TelefoneFixo,TabCliente.Celular,TabCliente.Whatsapp FROM TabCliente ORDER BY TabCliente.Nome_Completo.

OBS: Não se esqueça de aumentar o nro de colunas do combobox também, referente aos campos adicionados no select.

Em seguida, mude para o código abaixo:

Código:



Me.txtTelefoneFixo = Me!cboPropComprador.Column(2)
Me.txtCelular = Me!cboPropComprador.Column(3)
Me.txtWhatsapp = Me!cboPropComprador.Column(4)



É isso

Espero ter ajudado

Att,

Alexandre Fim

Olá, amigos!

Foi o que o amigo Alexandre postou aí: eu não estava incluindo os demais campos na consulta SQL!

Segue a solução completa para quem estiver passando por este problema:

1. Reorganizei a tabela, colocando o campo CPF_CNPJ depois do campo Nome_Completo;

2. Incluí todos os campos da tabela que faltavam na consulta SQL, que ficou assim:
SELECT TabCliente.Cliente_ID, TabCliente.Nome_Completo, TabCliente.CPF_CNPJ, TabCliente.TelefoneFixo, TabCliente.Celular, TabCliente.Whatsapp FROM TabCliente ORDER BY TabCliente.Nome_Completo;

3. Logo após isso, eu coloquei nas propriedades da caixa de combinação cboPropComprador a seguinte configuração:
Número de colunas: 6
Largura das colunas: 0cm;7cm;6cm;0cm;0cm;0cm

4. No evento Após atualizar da caixa de texto txtRequerente, eu coloquei este código que Alexandre mencionou:
Me.txtTelefoneFixo = Me.cboPropComprador.Column(3)
Me.txtCelular = Me.cboPropComprador.Column(4)
Me.txtWhatsapp = Me.cboPropComprador.Column(5)

E o resultado foi SHOW!

Obrigado, de coração, pela boa vontade!

Tópico resolvido!

Valeu Thel !!!
O fórum agradece.
Sucesso !!!