[Resolvido]Vlookup em caixa de combinação em formulario

Boa tarde,

Estou iniciando no access agora. Já consultei este link:https://www.maximoaccess.com/t1533-funcao-dlookup-explicacao.


Mas não sei onde estou errando. Bom tenho um formulário de cadastro de movimentação de estoque e tenho duas caixas de combinação, do produto e locação do produto, que trazem informações da tabela de cadastro de produtos. Então desejo que quando o usuário alterar a caixa de combinação com o produto a caixa de combinação da locação seja alterado para a locação correspondente do produto na tabela de cadastro do produto.

e tentei assim:

Private Sub TxtProdutos_Change()
Dim pesq As String
Dim txt As String
pesq = DLookup("Locação", "Produto", "NProduto= '" & txt & "'")
Me.TxtLoc.Value = pesq
End Sub

e assim


Private Sub TxtProdutos_Change()
Dim pesq As String
pesq = DLookup("Locação", "Produto", "NProduto= '" & Me.TxtProdutos.Value & "'")
Me.TxtLoc.Value = pesq
End Sub

Boa noite Moisés,

MoiDVAec escreveu:Private Sub TxtProdutos_Change()
Dim pesq As String
Dim txt As String
pesq = DLookup("Locação", "Produto", "NProduto= '" & txt & "'")
Me.TxtLoc.Value = pesq
End Sub

Nesse caso não funcionou por que você não definiu a variável txt, apenas declarou-a.

Obs.: Troquei o Evento Change (Ao alterar) por After Update(Depois da atualização), que funciona melhor neste caso.

Ficaria mais ou menos assim:

Código:

Private Sub TxtProdutos_AfterUpdate()
Dim pesq As String
Dim txtLocacao As Long
txtLocacao = Me.txtProdutos.Value
pesq = DLookup("Locação", "Produto", "NProduto= '" & txtLocacao & "'")
Me.TxtLoc.Value = pesq
End Sub

Outro ponto é que onde você colocou o campo "NProduto" deve ser colocado o campo "código do produto" (Codigo_Produto) da sua tabela de "produtos".

Cara muito obrigado pela dica!

No Excel eu saberia fazer mas no ACCESS não sei como fazer isso. Dá para puxa o código mesmo vindo o texto do produto?, na caixa de combinação? Usaria um sql com left join?

Na verdade, se seu campo é uma caixa de combinação, e você o configurou como uma consulta, ele terá 2 colunas (Uma do código, outra do Nome do produto). Uma com 0cm e outra com uma medida acima de 0cm (ex.: 3cm).
Quando você referencia essa caixa de combinação, ele irá puxar a primeira coluna dela, que é o código neste caso.

Cara boa! Vou fazer os ajustes e te falo mas desde já muito obrigado!

De uma olhada aqui. Tem um exemplo na mensagem 9.

https://www.maximoaccess.com/t25209-combox-para-inserir-o-criterio-de-consulta

Muito obrigado a todos ajudou de todas as formas!

Obrigado!