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

  • Pergunta

  • 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.

    quarta-feira, 2 de outubro de 2013 20:14

Respostas

  • 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.

    quarta-feira, 23 de outubro de 2013 11:19

Todas as Respostas

  • 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.
    segunda-feira, 7 de outubro de 2013 12:15
  • 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.


    • Editado Giovani Cr terça-feira, 8 de outubro de 2013 17:03
    terça-feira, 8 de outubro de 2013 17:01
  • Boa tarde Giovani Cruzara.

    Obrigado pelo retorno.

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

    terça-feira, 8 de outubro de 2013 20:11
  • 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.

    quinta-feira, 10 de outubro de 2013 11:37
  • 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
    

    quinta-feira, 10 de outubro de 2013 12:32
  • 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.


    • Editado Giovani Cr terça-feira, 15 de outubro de 2013 20:25
    • Sugerido como Resposta Giovani Cr quarta-feira, 16 de outubro de 2013 14:58
    terça-feira, 15 de outubro de 2013 12:04
  • 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.

    terça-feira, 22 de outubro de 2013 11:07
  • 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.

    quarta-feira, 23 de outubro de 2013 11:19
  • 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.

    quarta-feira, 23 de outubro de 2013 11:21