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


    Controle de estoque

    avatar
    cicero de assis
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 02/04/2019

    Controle de estoque  Empty Controle de estoque

    Mensagem  cicero de assis em 17/1/2020, 19:29

    o código funciona perfeito ele apaga a venda normalmente, so que se for feito uma venda com vários item e depois apagar esta venda o código só retorna para o estoque o primeiro item da venda apagada.
    os outro item não retorna para o estoque.

    PRIMEIRA SENHA 1234
    SEGUNDA SENHA 931346


    SEGUE O LINK

    https://www.dropbox.com/s/hdq9mczbqw43iwp/Recibo%20de%20Cliente.accdb?dl=0
    cleverson_manaus
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 989
    Registrado : 23/09/2011

    Controle de estoque  Empty Re: Controle de estoque

    Mensagem  cleverson_manaus em 18/1/2020, 00:36



    Boa noite amigo,

    vc precisa liberar o código VBA bloqueado do seu programa.

    Abraços,


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    avatar
    cicero de assis
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 02/04/2019

    Controle de estoque  Empty Controle de estoque

    Mensagem  cicero de assis em 18/1/2020, 12:31

    bom dia meu amigo

    a senha do vba e 931346
    cleverson_manaus
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 989
    Registrado : 23/09/2011

    Controle de estoque  Empty Re: Controle de estoque

    Mensagem  cleverson_manaus em 23/1/2020, 14:28

    Desculpa amigo, mas sem sucesso as senhas .

    Abraços


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4564
    Registrado : 20/04/2011

    Controle de estoque  Empty Re: Controle de estoque

    Mensagem  Silvio em 23/1/2020, 16:36

    Boas....

    Aqui vai uma dica para retorno ao estoque.

    Coloque um botão em cada produto e nesse botão uma rotina de exclusão do item, e uma rotina de retorno para o estoque desse item.

    Pode parecer meio estranho, mas, sinceramente ajuda muito quando se trata de usuário.

    Algo parecido com isso..

    Código:
    Private Sub excluir_Click()
    'aqui deleto o produto, caso seja inserido errado ou excluído voltando a quantidade para o estoque.
    If MsgBox("Deseja mesmo excluir esse produto ?" & vbCrLf & _
              "Produto:" & Me.ProdutoOculta & "    /  " & "Qtd: " & Me.Qtd & vbCrLf & _
              "Essa quantidade    " & (Me.Qtd) & "    irá retornar para o estoque !", vbQuestion + vbYesNo, "Aviso") = vbNo Then
              Me.Undo
              Exit Sub
              Else
             
    DoCmd.SetWarnings False
    DoCmd.RunSQL "update TblEstoque set saldo=saldo+[Forms]![FrmVenda]![FrmSubVenda]![qtd]" _
    & " where TblEstoque.IdProduto=[Forms]![FrmVenda]![FrmSubVenda]![IDProduto]"
    DoCmd.SetWarnings True
    CurrentDb.Execute "DELETE * FROM TblSubVenda WHERE IdVenda=" & Me.IdVenda & ""
    Me.Requery
    End If

    End Sub


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    cleverson_manaus
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 989
    Registrado : 23/09/2011

    Controle de estoque  Empty Re: Controle de estoque

    Mensagem  cleverson_manaus em 23/1/2020, 18:01

    Boas grande Sílvio,

    Abraços


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!

    Conteúdo patrocinado

    Controle de estoque  Empty Re: Controle de estoque

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 3/4/2020, 07:22