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


2 participantes

    [Resolvido]Baixa de estoque

    avatar
    Jairo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 117
    Registrado : 09/05/2013

    [Resolvido]Baixa de estoque Empty Baixa de estoque

    Mensagem  Jairo 19/7/2013, 14:39

    Bom Dia Galera, eu adoro access e sou novo ne home Page.. estou com problema em um comando e queria um apoio.
    o código abaixo ele baixa o estoque quando solicito e se a quantidade for maior que a disponibilidade ele me informa o que tem disponível porem está baixando e deixando saldo 0. queria que efe informasse porem não saia do campo até ser ajustado a quantidade correta a ser baixado, e se for zero desconsiderar a solicitação.

    Private Sub Quantidade_Exit(Cancel As Integer)
    On Error Resume Next
    Dim strQuantidade As String
    'busca na tabela a quantidade de estoque existente
    strQuantidade = Val(DLookup("[Quantidade]", "Produto", "[CodigoProduto] = " & Me.CodigoProduto & ""))
    'se o estoque estiver a zero ou inferior a zero ou ainda se a quantidade de saida for maior que a do estoque, aborta...
    If Val(strQuantidade) = 0 Or Val(strQuantidade) < 0 Or Me.Quantidade.Value > Val(strQuantidade) Then
    MsgBox "Estoque insuficiente para o produto Total disponivel => " & Me.CodigoProduto.Column(4) & "", vbCritical
    Me.Quantidade = ""
    Me.Undo
    Exit Sub
    Else
    'se tudo estiver bem, retira a quantidade da tabela
    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE Produto Set [Produto].[Quantidade] = [Produto].[Quantidade] - '" & Me.Quantidade & "' WHERE [Produto].[CodigoProduto] = " & Me.CodigoProduto & ""
    DoCmd.SetWarnings True
    End If
    End Sub

    grato,
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

    [Resolvido]Baixa de estoque Empty Re: [Resolvido]Baixa de estoque

    Mensagem  Cláudio Más 21/7/2013, 16:38

    Substitua Me.Undo por Cancel = True
    avatar
    Jairo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 117
    Registrado : 09/05/2013

    [Resolvido]Baixa de estoque Empty Re: [Resolvido]Baixa de estoque

    Mensagem  Jairo 23/9/2013, 23:44

    Obrido!

    Deu certo o código em substitução

    abraços

    Conteúdo patrocinado


    [Resolvido]Baixa de estoque Empty Re: [Resolvido]Baixa de estoque

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 01:51