Como faço a função DLookup em um subformulário.

Olá pessoal, bom dia!

Tenho um formulário Registrar_Pedidos e dentro desse form eu tenho um subformulário com o nome de "Sub_Consulta_Pedidos". criei um evento no campo código que após atualizar e mostre para mim todos dados do produto que é relacionado ao código eu fiz de um jeito, mas não funcionou...
Alguém poderia me explicar como poderia fazer isso??
Desde já agradeço a todos

Código:

Private Sub Código_AfterUpdate()
If Código = DLookup("Código", "Produto", "Código='" & Me!Código & "'") Then
Dim varBuscaEAN, varBuscaProduto, varBuscaCusto, varBuscaModelo, varBuscaFabricante, varBuscaPeso As Variant

varBuscaEAN = DLookup("EAN", "Produto", "Código='" & Me!Código & "'")
varBuscaProduto = DLookup("Produto", "Produto", "Código='" & Me!Código & "'")
varBuscaCusto = DLookup("Custo", "Produto", "Código='" & Me!Código & "'")
varBuscaModelo = DLookup("Modelo", "Produto", "Código='" & Me!Código & "'")
varBuscaFabricante = DLookup("Fabricante", "Produto", "Código='" & Me!Código & "'")

Quantidade = 1
Me.EAN.Value = varBuscaEAN
Me.Produto.Value = varBuscaProduto
Me.Custo.Value = varBuscaCusto
Me.Modelo.Value = varBuscaModelo
Me.Fabricante.Value = varBuscaFabricante
End If
End Sub



Se está a correr essas instruções dentro do subform, não pode usar o Me.Campo
Tem de se referencia de outra forma;

Código:

Forms!SeuFormulario!SeuSubFormulario.Form!CampoNoSubform

Algo assim:

Código:

If Código = DLookup("Código", "Produto", "Código='" & Forms!Registrar_Pedidos!Sub_Consulta_Pedidos.Form!Código & "'") Then

Olá JPaulo, boa tarde!

Está apresentando erro...
Tipos incompatíveis na expressão de critério.

Código:

If Código = DLookup("Código", "Produtos", "Código='" & Forms!Registrar_Pedidos!Sub_Consulta_Pedidos.Form!Código & "'") Then

Só testando mesmo.

Se quiser anexar aqui parte do seu banco, estamos ae.

Olá JPaulo...

Segue em o link do meu bd.

1drv.ms/u/s!AnlxzVyaVHf4pH1iqqkCmsIUWJIK


Obrigado pela ajuda!!!

Como "Código é numerico, não pode ter aspas simples;

Código:

If Val(Me.Código.Value) = Val(Nz(DLookup("Código", "Produtos", "Código=" & Forms!Registrar_Pedidos!Sub_Consulta_Pedidos.Form!Código & ""), 0)) Then

Oi JPaulo, bom dia!

Agradeço sua explicação e código, mas ficou mais uma duvida no ar.
Nesse caso como faço para que ao jogar o número do código ele carregue todas informações que acompanho o Código. Exemplo:

Ean
Produto
Cor
Modelo
Fabricante
Valor

esses são campos que quero que venha junto ao digitar o código...
Se puder me ajudar, vou agradecer muito!!!

Então...

É como você tem, mas tem de tirar as aspas simples dos criterios nos DLookups.

Olá JPaulo, boa tarde! Desculpa a minha ignorância mesmo, estou me dedicando bastante para aprender com vocês.

Não funcionou aqui no banco.
Vou mandar pra você e se puder faz a alteração e coloca como comentado para eu entender direitinho.

nesse caso quero fazer com o Formulário Registrar_Orçamentos e Descrição_Orçamentos.

Obrigado!

dropbox.com/s/oy09zmq523g8p2m/ALSystem%20-%20Gerenciador%20Financeiro%20-%20testes-002.accdb?dl=1