MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]Ajuda em sql

    avatar
    joão2017
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda em sql Empty [Resolvido]Ajuda em sql

    Mensagem  joão2017 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
    CassioFabre
    CassioFabre
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda em sql Empty Re: [Resolvido]Ajuda em sql

    Mensagem  CassioFabre 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.
    avatar
    joão2017
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda em sql Empty Re: [Resolvido]Ajuda em sql

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

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

    Conteúdo patrocinado


    [Resolvido]Ajuda em sql Empty Re: [Resolvido]Ajuda em sql

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 08:54