MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


3 participantes

    Controle de estoque

    avatar
    cicero de assis
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Controle de estoque  Empty Controle de estoque

    Mensagem  cicero de assis 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
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    Controle de estoque  Empty Re: Controle de estoque

    Mensagem  cleverson_manaus 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
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Controle de estoque  Empty Controle de estoque

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

    bom dia meu amigo

    a senha do vba e 931346
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    Controle de estoque  Empty Re: Controle de estoque

    Mensagem  cleverson_manaus 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 : Respeito às Regras 100%

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

    Controle de estoque  Empty Re: Controle de estoque

    Mensagem  Silvio 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
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    Controle de estoque  Empty Re: Controle de estoque

    Mensagem  cleverson_manaus 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: 7/11/2024, 21:46