Problema com Dlookup

Bom dia Pessoal,

Eu estou fazendo um banco de dados e estou enfrentando um problema com o dlookup, eu sei bem pouco de access, eu criei uma caixa de combinação no formulário (origem: tabela2) mas só consigo selecionar o valor da linha 1 da tabela1, quando seleciono as demais linhas, a linha que aparece é sempre a primeira linha da tabela1, tem algo faltando no código? Estou enviando o arquivo em anexo, a idéia é selecionar a linha que eu desejar e que no próximo registro, ele identifique que a linha já foi selecionada na tabela2 e mostre apenas os valores restantes da tabela.

Obrigado

Olá, seja bem vindo ao fórum! O anexo não veio. Mas você já fez uma pesquisa no fórum? Tem muita coisa já resolvida e bem explicada.

Na minha assinatura ↓abaixo↓ tem link para um vídeo com dicas de pesquisas mais eficientes.

Boa noite, acrescentei o arquivo em anexo, mas acho que o meu problema esta sendo no critério, eu li a respeito em outros tópicos mas não consegui aplicar no meu, por isso mostra sempre a primeira linha :/

Bom dia, Jaspion, bem-vindo ao fórum e ao Access
Faltou-lhe indicar o critério para procura no campo. Utilize:
Private Sub Campo1_Change()
Me.Campo2 = DLookup("campo2", "tabela1consulta", "Campo1=" & Me.Campo1)
End Sub

Nomeie campos e controlos de forma normalizada.
Procure aqui no fórum, que aprenderá muito sobre estas e outras dúvidas que terá

Olá pessoal, primeiro obrigado pela ajuda, mas vou precisar tirar mais uma dúvida, no exemplo eu tinha o campo1 como numeração automática, mas a minha intenção é utilizar como tipo texto, pois vou utilizar códigos que utilizam uma mistura de letras e números, posso de alguma forma utilizar o dlookup com texto ou tem algum outro comando que faz algo do tipo? Obrigado.

Boa tarde, Jaspion
Pode utilizar a função com texto, escreva dlookup e prima F1 para obter a ajuda na chamada da função

opa o código tipo texto saiu, só não entendi o critério apenas consegui aplicar "[Campo1]= '" & Me.txtCampo1 & "'") '

Me.txtCampo1 = DLookup("[Campo1]", "tabela1consulta", "[Campo1]= '" & Me.txtCampo1 & "'") '
Me.txtCampo2 = DLookup("[campo2]", "tabela1consulta", "[Campo1]= '" & Me.txtCampo1 & "'") '

Obrigado