Percorrer Registros

[Guest --Rodrigo --]

Bom dia!!!

Ontem postei minha duvida sobre DlookUp, bom consegui resolver esse problema só que entrei em outro, fiz a função DlookUp para uma combobox que após atualizar os controles não acoplados mostrem os determinados dados referente ao código, e na combobox eu puxo o código do produto por consulta no campo (CódProduto), bem, enfim aparece uma lista de todos os códigos cadastrados, eu selecionei o 1° código e os dados apareceram corretamente, mas... quando seleciono do 2º em diante não aparece nada será que alguém pode me explicar o motivo

Bem esse é o código que utilizei.

Private Sub Combobox_AfterUpdate()

Me.CódigoCategoria = DLookup("[CódigoCategoria]", "tblProdutos", "[CódigoCategoria]=" & Me.Combobox)

Me.Categória = DLookup("[Categória]", "TblProdutos", "[CódigoCategoria]=" & Me.Combobox)

Me.CódProduto = DLookup("[CódProduto]", "TblProdutos", "[CódigoCategoria]=" & Me.Combobox)

Me.NomeProdruto = DLookup("[NomeProdruto]", "tblProdutos", "[CódigoCategoria]=" & Me.Combobox)

Me.Descrição = DLookup("[Descrição]", "tblprodutos", "[CódigoCategoria]=" & Me.Combobox)

Me.Unidade = DLookup("[unidade]", "TblProdutos", "[CódigoCategoria]=" & Me.Combobox)

Me.Quantidade = DLookup("[Quantidade]", "TblProdutos", "[CódigoCategoria]=" & Me.Combobox)

Me.PreçoUnitário = DLookup("[PreçoUnitário]", "TblProdutos", "[CódigoCategoria]=" & Me.Combobox)

Me.Combobox.Requery

End Sub

[MrMALJ]

O código parece correto, só não vejo necessidade para aquele requery no final, acho que se você retirar isso deva resolver seu problema!

[Guest --Rodrigo --]

Já tirei a última linha de código mas continuou a mesma coisa.

Afinal a função Dlookup é só para consulta?