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]Atualizar estoque

    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1117
    Registrado : 23/01/2018

    [Resolvido]Atualizar estoque Empty [Resolvido]Atualizar estoque

    Mensagem  crysostomo em 22/12/2019, 13:11

    Colegas Boa tarde.
    Tenho 2 formulários,(TbEstoque é tbVendas) um onde fica os itens e outro que excluiu o item,ou Seja,  o formulário de excluirnutem é acesso privilegiado.
    No estque ;3 DVDs
    Foi adicionado na 2 DVDs (o estoque tem 1)
    Ao excluir o item na venda esses 2 tem que voltar para o estoque somando com o que já tem.
    Não consigo pelo
    Código:
    If MsgBox("Deseja realente excluir esse item? ", vbYesNo + vbQuestion, "Aviso") = vbYes Then
    DoCmd.SetWarnings False
    DoCmd.RunCommand acCmdDeleteRecord
    CurrentDb.Execute "update tbEstoque set Quantidade= Quantidade + Quntidade "


    End If
    End Sub


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1117
    Registrado : 23/01/2018

    [Resolvido]Atualizar estoque Empty Re: [Resolvido]Atualizar estoque

    Mensagem  crysostomo em 26/12/2019, 13:23

    pra fechar o sistema preciso disso


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Jungli
    Jungli
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 677
    Registrado : 07/05/2010

    [Resolvido]Atualizar estoque Empty Re: [Resolvido]Atualizar estoque

    Mensagem  Jungli em 26/12/2019, 14:52

    Boa tarde,


    Supondo que você esteja selecionando o produto pela chave primária,

    tente assim:

    If MsgBox("Deseja realente excluir esse item? ", vbYesNo + vbQuestion, "Aviso") = vbYes Then
    DoCmd.SetWarnings False
    CurrentDb.Execute "UPDATE tbEstoque SET Quantidade=" & (Quantidade + Quntidade) & " WHERE CodigoDoProduto = " & SeuCodigoDoProduto & ";"
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdDeleteRecord
    End If

    Onde:

    Quantidade = seria o campo de quantidade do produto filtrado na tbEstoque
    Quntidade = seria o campo com a quantidade a ser devolvida ao estoque
    CodigoDoProduto = ID, Código, CodigoDoProduto, ou seja a chave primária do produto a ser estornado.

    Até mais.


    .................................................................................
    "Somos o que repetidamente fazemos.
    A excelência, portanto, não é um feito,
    mas um hábito."

    Aristóteles
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1117
    Registrado : 23/01/2018

    [Resolvido]Atualizar estoque Empty Re: [Resolvido]Atualizar estoque

    Mensagem  crysostomo em 26/12/2019, 15:18

    teria posto esse, vou revisar , pq não deu erro de sintaxe, mas não funciona


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    alozs
    alozs
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 208
    Registrado : 06/02/2018

    [Resolvido]Atualizar estoque Empty Re: [Resolvido]Atualizar estoque

    Mensagem  alozs em 26/12/2019, 16:45

    não se esqueça de verificar o tipo dos campos, as vezes está como texto e no código tratando como numérico e vice versa..
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1117
    Registrado : 23/01/2018

    [Resolvido]Atualizar estoque Empty Re: [Resolvido]Atualizar estoque

    Mensagem  crysostomo em 27/12/2019, 09:36

    resolvido, estava buscando a chave primária de outra tabela com a chave de outra formulário que estava dando certo na formulário em outro from.
    da para acreditar, também um monte de código que fiz, me embolei tudo.


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Jungli
    Jungli
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 677
    Registrado : 07/05/2010

    [Resolvido]Atualizar estoque Empty Re: [Resolvido]Atualizar estoque

    Mensagem  Jungli em 28/12/2019, 17:35

    Beleza, para não se perder, você pode fazer comentários em seus códigos

    ' Valida a exclusão
    If MsgBox("Deseja realente excluir esse item? ", vbYesNo + vbQuestion, "Aviso") = vbYes Then
    ' Desativa os avisos do sistema
    DoCmd.SetWarnings False
    ' Atualiza a tabela .....
    CurrentDb.Execute "UPDATE tbEstoque SET Quantidade=" & (Quantidade + Quntidade) & " WHERE CodigoDoProduto = " & SeuCodigoDoProduto & ";"
    ' Seleciona e deleta o registro atual
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdDeleteRecord

    End If

    Até a próxima...


    .................................................................................
    "Somos o que repetidamente fazemos.
    A excelência, portanto, não é um feito,
    mas um hábito."

    Aristóteles

    Conteúdo patrocinado

    [Resolvido]Atualizar estoque Empty Re: [Resolvido]Atualizar estoque

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/2/2020, 18:35