ComboBox em um formulário

Tenho:
uma Tabela
uma Consulta
e um Formulário.
No Formulário tenho um  ComboBox  criada a partir de um consulta e tem 03 colunas ( Nome / CPF / CNPJ ).
Gostaria de quando digite o nome e se o mesmo já consta la lista box os dados seja inserido nos campos de-
terminados. EX:
1- Nome no campo: Portador
2 - CPF no campo CPF
3 - E CNPJ no campo CNPJ
Segue Arquivo anexo!

Olá Pedro,

Seja bem-vindo ao forum.
vou baixar o exemplo que vc mandou, para análise e solução.

Att,

Alexandre Fim

Olá,

Fiz os ajustes necessários. Ficou assim:


No combobox, retirei a fonte de controle e ele virou um controle "Não Associado", e tmb renomeei para "cboPortador".

No evento "Após Atualizar" do combo, consta o seguinte código:

Código:



'-- Alexandre Fim - 29/05/2024
Private Sub cboPortador_AfterUpdate()

    '-- Carregar os campos conforme colunas do combobx
    Me.portador = cboPortador.Column(0)
    Me.CPFP = cboPortador.Column(1)
    Me.CNPJP = cboPortador.Column(2)

End Sub



Apenas transferi os dados das colunas do combo para os respectivos campos.

É isso

Segue versão

Att,

Alexandre Fim

Muito obrigado Alexandre, ficou muito bom!!! Isso mesmo que eu queria!  Espetacular!!!!

Agora, quando fui digitar uma Novo Registro e este Registro não se encontra na Lista ComboBox,
teria como já jogar o Novo Nome No Campo:
Portador e Cursor cai ira para a Caixa no Campo CPFP para ser digitado um novo registro?

Veja o arquivo