MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

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

    [Resolvido]Atualizar estoque Empty [Resolvido]Atualizar estoque

    Mensagem  crysostomo em 22/12/2019, 16: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 : 1449
    Registrado : 23/01/2018

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

    Mensagem  crysostomo em 26/12/2019, 16: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 : 676
    Registrado : 07/05/2010

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

    Mensagem  Jungli em 26/12/2019, 17: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 : 1449
    Registrado : 23/01/2018

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

    Mensagem  crysostomo em 26/12/2019, 18: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 : 284
    Registrado : 07/02/2018

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

    Mensagem  alozs em 26/12/2019, 19: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 : 1449
    Registrado : 23/01/2018

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

    Mensagem  crysostomo em 27/12/2019, 12: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 : 676
    Registrado : 07/05/2010

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

    Mensagem  Jungli em 28/12/2019, 20: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

      Data/hora atual: 25/11/2020, 02:57