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

    Estoque Insuficiente

    Compartilhe

    samueldrun
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 21/09/2017

    Estoque Insuficiente

    Mensagem  samueldrun em Seg Set 25, 2017 12:19 pm

    Boa tarde galera, estou aqui precisando de ajuda para efetuar esse código abaixo, eu tenho 2 tabelas uma Tab_Estoque, e outra Tab_saida e nesse formulário de saída eu gostaria que ao clicar no botão salvar ele analisasse se o Campo estoque tem a quantidade solicitada pelo campo quantidade e se estiver correto subtrair no estoque, essa parte esta certa o único problema é que não consigo adaptar esse código para informar quando não tiver a quantidade solicitada podem me ajudar ?


    Private Sub Salvar_Click()
    If Me.txtPRODUTO.Column(3) <= Estoque Then
    MsgBox "Não há quantidade suficiente em estoque para efetivar este pedido!", vbInformation, "Estoque baixo"
    Else
    DoCmd.RunSQL "UPDATE Tab_Estoque Set [Tab_Estoque].[Estoque] = [Tab_Estoque].[Estoque]- " & Me.Quantidade & ""
    DoCmd.SetWarnings True
    Me.Lista_Autorizacao.Requery
    Me.Refresh
    End If
    End Sub

    maryprego
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Angola
    Mensagens : 74
    Registrado : 16/07/2017

    Re: Estoque Insuficiente

    Mensagem  maryprego em Seg Set 25, 2017 1:10 pm

    Olá samueldrun,

    venha este exemplo se ajuda, na mensagem nº 1 e 6.
    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Qui Maio 24, 2018 6:55 am