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]Empacado no sql

    Compartilhe
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 746
    Registrado : 11/09/2013

    [Resolvido]Empacado no sql

    Mensagem  formiga10x em Qua 18 Dez 2013, 12:39

    Bom dia pessoal.

    Estou com uma dificuldade para fazer a exclusão de produto que envolve duas tabelas a venda e detalhevenda.
    Pois bem. Gostaria que ao excluir o último registro da tabela detalhevenda excluísse também o registro relacionado na tabela venda.

    Dim VAZIO As String
     DoCmd.SetWarnings False
       
          CurrentDb.Execute "DELETE * FROM DetalheVenda WHERE codVenda = " & COD_V & " And CodProduto = " & COD_P & ""
           
           'Atualiza o estoque na tabela Produto
           CurrentDb.Execute "UPDATE Produto Set qtdEstoque = qtdEstoque + " & COD_REPOR & " WHERE CodProduto = " & COD_P & ""
    VAZIO = ("SELECT * FROM DetalheVenda WHERE CODDETALHE = """)

    If IsNull(VAZIO) Then
    CurrentDb.Execute "DELETE * FROM Venda WHERE codVenda = " & COD_V & ""

    Else

    end if

       
       
    End Sub
    Anexos
    rela.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (240 Kb) Baixado 13 vez(es)
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9250
    Registrado : 04/11/2009

    Re: [Resolvido]Empacado no sql

    Mensagem  JPaulo em Qua 18 Dez 2013, 15:15

    E bem empancado;

    Só necessita destas 4 linhas e por esta ordem;


    CurrentDb.Execute "UPDATE Produto Set qtdEstoque = qtdEstoque + " & Me.COD_REPOR.Value & " WHERE CodProduto = " & Me.COD_P.Value & ""
    CurrentDb.Execute "DELETE * FROM DetalheVenda WHERE codVenda = " & Me.COD_V.Value & " And CodProduto = " & Me.COD_P.Value & ""
    CurrentDb.Execute "DELETE * FROM Venda WHERE codVenda = " & Me.COD_V.Value & ""
    Me.Recalc

    Usando o CurrentDb.Execute não necessita do DoCmd.SetWarnings False.



    .................................................................................
    Contribua com o maximoaccess, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 746
    Registrado : 11/09/2013

    Re: [Resolvido]Empacado no sql

    Mensagem  formiga10x em Qua 18 Dez 2013, 15:56

    JPaulo antes desse código:

    CurrentDb.Execute "DELETE * FROM Venda WHERE codVenda = " & Me.COD_V.Value & ""

    Preciso fazer uma verificação na tabela DetalheVenda para saber se ainda existe alguma venda para esse codVenda do jeito que está este comando não faz a verificação e exclui de cara toda a venda pelo codVenda.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9250
    Registrado : 04/11/2009

    Re: [Resolvido]Empacado no sql

    Mensagem  JPaulo em Qua 18 Dez 2013, 16:10

    E não é essa a ideia ?

    O codVenda não deveria ser unico para cada venda ?


    .................................................................................
    Contribua com o maximoaccess, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 746
    Registrado : 11/09/2013

    Re: [Resolvido]Empacado no sql

    Mensagem  formiga10x em Qua 18 Dez 2013, 16:16

    O codVenda é o único para cada venda de muitos produtos por isso a dificuldade pois, na tabela venda está o codVenda onde fica o código da venda e na tabela DetalheVenda onde fica registrados os itens vendidos veja a foto que postei.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9250
    Registrado : 04/11/2009

    Re: [Resolvido]Empacado no sql

    Mensagem  JPaulo em Qua 18 Dez 2013, 16:18

    Entendi... Laughing 

    Então o amigo pretende excluír um item especifico e se a venda não contiver items, deleta a propria venda, é isso ?


    .................................................................................
    Contribua com o maximoaccess, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 746
    Registrado : 11/09/2013

    Re: [Resolvido]Empacado no sql

    Mensagem  formiga10x em Qua 18 Dez 2013, 16:19

    Isso ai
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9250
    Registrado : 04/11/2009

    Re: [Resolvido]Empacado no sql

    Mensagem  JPaulo em Qua 18 Dez 2013, 16:25

    Código:
    Dim x As Integer

    CurrentDb.Execute "UPDATE Produto Set qtdEstoque = qtdEstoque + " & Me.COD_REPOR.Value & " WHERE CodProduto = " & Me.COD_P.Value & ""
    CurrentDb.Execute "DELETE * FROM DetalheVenda WHERE codVenda = " & Me.COD_V.Value & " And CodProduto = " & Me.COD_P.Value & ""

    Me.Recalc

    x = Nz(DCount("*", "DetalheVenda", "codVenda = " & Me.COD_V.Value), 0)

    If x > 0 Then
      Exit Sub
      Else
    CurrentDb.Execute "DELETE * FROM Venda WHERE codVenda = " & Me.COD_V.Value & ""
    End If

    Me.Recalc


    .................................................................................
    Contribua com o maximoaccess, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 746
    Registrado : 11/09/2013

    Re: [Resolvido]Empacado no sql

    Mensagem  formiga10x em Qua 18 Dez 2013, 16:37

    Quem sabe, sabe Very Happy
    Varei a madrugada tentando e vc resolveu em minutos rs
    Muito obrigado e que Deus o abençoe sempre!
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9250
    Registrado : 04/11/2009

    Re: [Resolvido]Empacado no sql

    Mensagem  JPaulo em Qua 18 Dez 2013, 16:55

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Sex 23 Jun 2017, 11:19