MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Empacado no sql

    Compartilhe

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    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)

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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.



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

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    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.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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 ?


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

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    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.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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 ?


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

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Empacado no sql

    Mensagem  formiga10x em Qua 18 Dez 2013, 16:19

    Isso ai

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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


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

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    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!

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Empacado no sql

    Mensagem  JPaulo em Qua 18 Dez 2013, 16:55

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    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: Qui 08 Dez 2016, 00:09