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

    [Resolvido]função delete com sql

    avatar
    vspsena
    Novato
    Novato

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 13/10/2010

    [Resolvido]função delete com sql Empty [Resolvido]função delete com sql

    Mensagem  vspsena 5/9/2019, 15:37

    bom dia galera
    me ajudem aqui nessaa duvida , que ja to batendo cabeça a horas
    quero deletar um regsitro
    so quero deletar pelo vba
    ai estou usando o comando sql
    so que são tres criterios
    alguem pode ajudar?


    CurrentDb.Execute " DELETE * FROM Produto_moviEstoque WHERE emit_doc_cpf_cnpj=" & Me.Cnpj And Numero_documento = " & Me.NumNF and Serie_documento = " & Me.Serie


    os tres campos sao numero
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1552
    Registrado : 13/12/2016

    [Resolvido]função delete com sql Empty Re: [Resolvido]função delete com sql

    Mensagem  Alexandre Fim 5/9/2019, 16:12

    Ola vspsena,

    Estava faltando o &" no final dos campos.
    Sempre que for usar código VBA e sua instrução for extensa, procure quebrar em linhas, ou concatenando texto, conforme abaixo:

    Código:


    Dim sql As String

    sql = "DELETE * FROM Produto_moviEstoque "
    sql = sql & " WHERE emit_doc_cpf_cnpj=" & Me.Cnpj & "  "
    sql = sql & " AND Numero_documento = " & Me.NumNF & ""
    sql = sql & " AND Serie_documento = " & Me.Serie & ""

    CurrentDb.Execute sql



    Copie e cole o código e execute-o na sua aplicação.

    Espero ter ajudado.

    Abraços



    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    avatar
    vspsena
    Novato
    Novato

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 13/10/2010

    [Resolvido]função delete com sql Empty Re: [Resolvido]função delete com sql

    Mensagem  vspsena 5/9/2019, 18:08

    obrigado amigo
    vc me tirou de um sufoco agora
    obrigado mesmo
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1552
    Registrado : 13/12/2016

    [Resolvido]função delete com sql Empty Re: [Resolvido]função delete com sql

    Mensagem  Alexandre Fim 5/9/2019, 19:00

    Valeu vspsena cheers cheers
    O fórum agradece.

    Abraços




    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

      Data/hora atual: 24/7/2021, 08:20