Autocompletar um campo a partir de dado em lista de seleção

Boa tarde

Estou criando um banco de dados e necessito de ajuda para preenchimento automático de campo.

Tenho uma tabela com os campos NOME e CPF/CNPJ (resultante de consulta)

Em outra tabela (acompanhamento de processos), criei um campo de seleção, onde seleciono o CPF/CNPJ (lista de seleção).

Gostaria que, ao selecionar o CPF/CNPJ no formulário, em outro campo houvesse a inserção automática do nome correspondente ao valor selecionado.

Alguém poderia me ajudar, em especial via criação de Macro, por gentileza?

Muito obrigado

Mario boa Tarde!!

Voce pode usar a função Dlookup, veja o exemplo;

Código:

Me.NOME= DLookup("NOME", "SuaTabela", "CPF/CNPJ=Forms!seuformulario!CPF/CNPJ")

att, Sidney

Obrigado Sidney

onde coloco essa linha?

abaixo o VBA do form:

Option Compare Database

Private Sub CPF_CNPJ_BeforeUpdate(Cancel As Integer)

End Sub

Private Sub excluirrregistro_Click()
On Error GoTo Err_excluirrregistro_Click


DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord

Exit_excluirrregistro_Click:
Exit Sub

Err_excluirrregistro_Click:
MsgBox Err.Description
Resume Exit_excluirrregistro_Click

End Sub
Private Sub atualizarformulario_Click()
On Error GoTo Err_atualizarformulario_Click


DoCmd.RunCommand acCmdRefresh

Exit_atualizarformulario_Click:
Exit Sub

Err_atualizarformulario_Click:
MsgBox Err.Description
Resume Exit_atualizarformulario_Click

End Sub
Private Sub localizaregistro_Click()
On Error GoTo Err_localizaregistro_Click


Screen.PreviousControl.SetFocus
DoCmd.RunCommand acCmdFind

Exit_localizaregistro_Click:
Exit Sub

Err_localizaregistro_Click:
MsgBox Err.Description
Resume Exit_localizaregistro_Click

End Sub
Private Sub imprimircadastronotificacao_Click()
On Error GoTo Err_imprimircadastronotificacao_Click

Dim stDocName As String
Dim MyForm As Form

stDocName = "Cadastro Notificação"
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acTable, stDocName, True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False

Exit_imprimircadastronotificacao_Click:
Exit Sub

Err_imprimircadastronotificacao_Click:
MsgBox Err.Description
Resume Exit_imprimircadastronotificacao_Click

End Sub
Private Sub fecharformularionotificacao_Click()
On Error GoTo Err_fecharformularionotificacao_Click


If Me.Dirty Then Me.Dirty = False
DoCmd.Close

Exit_fecharformularionotificacao_Click:
Exit Sub

Err_fecharformularionotificacao_Click:
MsgBox Err.Description
Resume Exit_fecharformularionotificacao_Click

End Sub
Private Sub Comando29_Click()
On Error GoTo Err_Comando29_Click


Screen.PreviousControl.SetFocus
DoCmd.RunCommand acCmdFind

Exit_Comando29_Click:
Exit Sub

Err_Comando29_Click:
MsgBox Err.Description
Resume Exit_Comando29_Click

End Sub
Private Sub Adicionar_Notificacao_Click()
On Error GoTo Err_Adicionar_Notificacao_Click


DoCmd.GoToRecord , , acNewRec

Exit_Adicionar_Notificacao_Click:
Exit Sub

Err_Adicionar_Notificacao_Click:
MsgBox Err.Description
Resume Exit_Adicionar_Notificacao_Click

End Sub
Private Sub Salvar_nova_notificacao_Click()
On Error GoTo Err_Salvar_nova_notificacao_Click


DoCmd.RunCommand acCmdSaveRecord

Exit_Salvar_nova_notificacao_Click:
Exit Sub

Err_Salvar_nova_notificacao_Click:
MsgBox Err.Description
Resume Exit_Salvar_nova_notificacao_Click

End Sub


Desculpe se estou sendo muito vago...

Para acrescentar ao tópico, exemplo com macro

Boa Noite!!

aproveitando o arquivo do parceiro IvanJr, segue exemplo via VBA.

att, Sidney

Se é uma lista de selecção no evento "Ao fazer click"

Me.seucamponoform=Me.minhalista.Column(0)
Me.seucampo1noform=Me.minhalista.Column(1)
e por aí afora

Exemplo:

Me.txtCliente=Me.lista01.Column(0)
Me.txtEndereço=Me.lista01.Column(1)

o primeiro campo começa sempre em 0

Também pode fazer:

With Me.Lista01

.txtCliente=Me.txtCliente
.txrtEndereço=Me.txtEndereço
End With

O código fica mais compreensível

Olá boa noite,
Eu estou iniciando no Access, café com leite. Por favor eu preciso no meu formulario usar algo semelhate a função ProcV do Excel. Ja vi alguns exemplos mas como eu disse SQL sainda esta muito confuso pra mim. Tempos atras um amigo meu me mostrou como fazer usando uma macro o que parecia ser a opção mais facil para atingir esse fim.
Eu preciso que ao mudar a informação no campo da caixa de combinação que os meu dados mudem no resto do formulario e tbm preciso que um campo seja preenchido automaticamente.

Eu tenho um campo que diz codigo de material. Já utilizei o Wizard pra criar uma caixa de combinação e buscar a informação na tabela "Produtos". Essa tabela contem duas colunas. Uma coluna é "Código do produto" mas não estou usando a númeração automatica e sim um código mair já pré defenido e a outra coluna tem "Descrição".
Primeira coisa que quero fazer é que ao digitar ou inserir esse código de produto utilizando a caixa de combinação que apresentara a lista de cóidogos, eu preciso que isso me traga preenchido o campo descrição do produto no formulario. e posteriormente quero ter uma outra caixa que nºao seja pra preenchimento mas sim para pesquisa, do genero caixa de combinação porem a cada vez que eu digitar la ou apenas mudar o código listado que isso traga a linha relacionada aquele código para os campos do formulario buscando a informatição ja previamente registrada.

Alguém pode me ajudar com isso.

Veja se este pequeno exemplo que lhe fiz é de alguma ajuda. Usa duas tabelas. Dois Forms. No form 2 tem uma combobox. Abra um novo registo e seleccione um cliente na combo. Veja que os outros campos são automaticamente preenchidos.

Explore o código SQL da combo nos dois eventos: Ao Entrar e ao fazer clique. Abraço

https://www.dropbox.com/s/qv1p1r6pnhntax1/Exemplo.mdb?dl=0

Resolveu?

voltei de ferias hj e comecarei a analisar as mensagens de auxilio
agradeço desde já a todos
abs