MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Ajuda em sql

    Compartilhe

    joão2017
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 16/09/2017

    [Resolvido]Ajuda em sql

    Mensagem  joão2017 em 16/2/2018, 17:45

    Boa tarde! Gostaria de uma ajuda nessa sql.

    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Set db = CurrentDb

    com essa linha funciona direitinho
    Set rst = db.OpenRecordset("SELECT tab_DetalheDoPedido.CódigoDoPedido, tab_DetalheDoPedido.CódigoDoProduto, tab_DetalheDoPedido.CódigoDaOrdem, tab_DetalheDoPedido.Linha, tab_DetalheDoPedido.Referência, tab_DetalheDoPedido.Unidade, tab_DetalheDoPedido.Quantidade, tab_DetalheDoPedido.PreçoDeCusto, tab_DetalheDoPedido.PreçoDeVenda, tab_DetalheDoPedido.DescontoConcedidoReais, tab_DetalheDoPedido.DescontoConcedidoPorcentagem, tab_DetalheDoPedido.DescontoRecebido, tab_DetalheDoPedido.DescontoMáximo FROM tab_DetalheDoPedido WHERE (((tab_DetalheDoPedido.CódigoDoPedido)=74532) AND ((tab_DetalheDoPedido.CódigoDoProduto)=2993));")


    mudando o código do pedido 74532 para a variavel strCódigoDoPedido e o código do produto 2993 para txtCódigoDoProduto como a seguir,da erro.


    Set rst = db.OpenRecordset("SELECT tab_DetalheDoPedido.CódigoDoPedido, tab_DetalheDoPedido.CódigoDoProduto, tab_DetalheDoPedido.CódigoDaOrdem, tab_DetalheDoPedido.Linha, tab_DetalheDoPedido.Referência, tab_DetalheDoPedido.Unidade, tab_DetalheDoPedido.Quantidade, tab_DetalheDoPedido.PreçoDeCusto, tab_DetalheDoPedido.PreçoDeVenda, tab_DetalheDoPedido.DescontoConcedidoReais, tab_DetalheDoPedido.DescontoConcedidoPorcentagem, tab_DetalheDoPedido.DescontoRecebido, tab_DetalheDoPedido.DescontoMáximo FROM tab_DetalheDoPedido WHERE (((tab_DetalheDoPedido.CódigoDoPedido)=" & strstrCódigoDoPedido) And (tab_DetalheDoPedido.CódigoDoProduto) = " & me.txtCódigoDoProduto)"

    rst.Delete
    rst.Close
    db.Close
    Set rst = Nothing


    alguma idéia?

    Obrigado
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 18/01/2013

    Re: [Resolvido]Ajuda em sql

    Mensagem  CassioFabre em 16/2/2018, 18:53

    Boa tarde,

    Voce está esquecendo de fechar a chamada da variável. Sempre que o código continuar depois de uma variável, voce deve fechá-la:
    Código:
    " & variavel & "
    .

    Tente o seguinte:
    Set rst = db.OpenRecordset("SELECT tab_DetalheDoPedido.CódigoDoPedido, tab_DetalheDoPedido.CódigoDoProduto, tab_DetalheDoPedido.CódigoDaOrdem, tab_DetalheDoPedido.Linha, tab_DetalheDoPedido.Referência, tab_DetalheDoPedido.Unidade, tab_DetalheDoPedido.Quantidade, tab_DetalheDoPedido.PreçoDeCusto, tab_DetalheDoPedido.PreçoDeVenda, tab_DetalheDoPedido.DescontoConcedidoReais, tab_DetalheDoPedido.DescontoConcedidoPorcentagem, tab_DetalheDoPedido.DescontoRecebido, tab_DetalheDoPedido.DescontoMáximo FROM tab_DetalheDoPedido WHERE (((tab_DetalheDoPedido.CódigoDoPedido)=" & strstrCódigoDoPedido & ") And (tab_DetalheDoPedido.CódigoDoProduto) = " & me.txtCódigoDoProduto & ")"

    Abraço.

    joão2017
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 16/09/2017

    Re: [Resolvido]Ajuda em sql

    Mensagem  joão2017 em 17/2/2018, 08:34

    Bom dia! Deu certinho! Nem sei como agradecer, quase um mês sofrendo rsrs.
    Muito obrigado.

      Data/hora atual: 21/11/2018, 02:20