Access 2010 - Erro em tempo de execução 2471

Question

Boa tarde

Tenho uma caixa de combinação onde pelo nome do produto ele me traz outros dados para o subformulário de vendas. Mas infelizmente quando seleciono o produto me vem este erro:

Access 2010 - Erro em tempo de execução '2471':

A expressão que você inseriu como parâmetro da consulta gerou este erro: 'codigo'.

Código é este:

Private Sub cmbProdutosDetVendas_AfterUpdate()

Me.UnidadeMedida = DLookup("unidadeDescricao", "tblUnidMedida", "Codigo=" & Me.cmbProdutosDetVendas.Column(1) & "")
Me.VlrUnitario_DetVend = Me.cmbProdutosDetVendas.Column(2)
Me.VlrIcms = Me.cmbProdutosDetVendas.Column(3)
Me.VlrIpi = Me.cmbProdutosDetVendas.Column(4)
Me.Qtd_DetVend.SetFocus

End Sub

Alguém sabe o que quer dizer este erro?

Desde ja agradeço.

Answer 1

Boa tarde

Tenho uma caixa de combinação onde pelo nome do produto ele me traz outros dados para o subformulário de vendas. Mas infelizmente quando seleciono o produto me vem este erro:

Access 2010 - Erro em tempo de execução '2471':

A expressão que você inseriu como parâmetro da consulta gerou este erro: 'codigo'.

Código é este:

Private Sub cmbProdutosDetVendas_AfterUpdate()

Me.UnidadeMedida = DLookup("unidadeDescricao", "tblUnidMedida", "Codigo=" & Me.cmbProdutosDetVendas.Column(1) & "")
Me.VlrUnitario_DetVend = Me.cmbProdutosDetVendas.Column(2)
Me.VlrIcms = Me.cmbProdutosDetVendas.Column(3)
Me.VlrIpi = Me.cmbProdutosDetVendas.Column(4)
Me.Qtd_DetVend.SetFocus

End Sub

Alguém sabe o que quer dizer este erro?

Desde ja agradeço.

Puxa depois de cinco dias, ninguém respondeu.

Answer 2

Boa tarde,

Se o seu campo for um numero você usa ele dessa forma:

Me.UnidadeMedida = DLookup("unidadeDescricao", "tblUnidMedida" , "Codigo=" & Me.cmbProdutosDetVendas.Column(1) & "")

Se ele for uma String use:

Me.UnidadeMedida = DLookup("unidadeDescricao", "tblUnidMedida" , "Codigo='" & Me.cmbProdutosDetVendas.Column(1) & "'")

Att,

---

Giovani Cruzara – Microsoft Contingent Staff

Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita.

Msdn Community Support

Por favor, lembre-se de “Marcar como Resposta” as respostas que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

Answer 3

Boa tarde Giovani Cruzara.

Obrigado pelo retorno.

Troquei o código conforma resposta sua, mas infelizmente continua dando o mesmo erro.

Answer 4

Bom dia,

Pode me passar todo o código para eu analizar?

Att,

---

Giovani Cruzara – Microsoft Contingent Staff

Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita.

Msdn Community Support

Por favor, lembre-se de “Marcar como Resposta” as respostas que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

Answer 5

Bom dia Giovani Cruzara

Segue em anexo todo o código que fiz até agora neste subform de venda.

Option Compare Database
Option Explicit

Private Sub cmbProdutosDetVendas_AfterUpdate()

Me.UnidadeMedida = DLookup("unidadeDescricao", "tblUnidMedida", "Codigo='" & Me.cmbProdutosDetVendas.Column(1) & "'")
Me.VlrUnitario_DetVend = Me.cmbProdutosDetVendas.Column(2)
Me.VlrIcms = Me.cmbProdutosDetVendas.Column(3)
Me.VlrIpi = Me.cmbProdutosDetVendas.Column(4)
Me.Qtd_DetVend.SetFocus

End Sub

Private Sub Qtd_DetVend_AfterUpdate()
Me.VlrTotal_DetVend.Value = Me.Qtd_DetVend * Me.VlrUnitario_DetVend
Me.VlrTotIcms = Me.VlrIcms * Me.Qtd_DetVend
Me.VlrTotIpi = Me.VlrIpi * Me.Qtd_DetVend
End Sub

Answer 6

Bom dia,

Com certeza o erro esta nessa linha.

Me.UnidadeMedida = DLookup("unidadeDescricao", "tblUnidMedida", "Codigo='"& Me.cmbProdutosDetVendas.Column(1) & "'")

Eu achei esse KB, que mostra como utilizar a função DLookup() e exemplos de solução.

http://support.microsoft.com/kb/208786/pt-br

Acho que pode te ajudar.

---

Giovani Cruzara – Microsoft Contingent Staff

Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita.

Msdn Community Support

Por favor, lembre-se de “Marcar como Resposta” as respostas que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

Answer 7

Bom dia Samuel,

Você conseguiu resolver seu problema?

Att,

---

Giovani Cruzara – Microsoft Contingent Staff

Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita.

Msdn Community Support

Por favor, lembre-se de “Marcar como Resposta” as respostas que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

Answer 8

Bom dia Samuel,

Você conseguiu resolver seu problema?

Att,

---

Giovani Cruzara – Microsoft Contingent Staff

Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita.

Msdn Community Support

Por favor, lembre-se de “Marcar como Resposta” as respostas que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

Bom dia Giovani Cruzara

Me desculpe, mas na correria do dia a dia esqueci de responder.

Esta resolvido sim.

Muito obrigado, um abraço.

Answer 9

Bom dia Samuel,

Caso possa postar a solução aqui, ajudaria outros usuários com o mesmo problema.

Att,

---

Giovani Cruzara – Microsoft Contingent Staff

Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita.

Msdn Community Support

Por favor, lembre-se de “Marcar como Resposta” as respostas que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.