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

    Estoque Insuficiente

    avatar
    samueldrun
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 22/09/2017

    Estoque Insuficiente Empty Estoque Insuficiente

    Mensagem  samueldrun 25/9/2017, 18:19

    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
    avatar
    maryprego
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Estoque Insuficiente Empty Re: Estoque Insuficiente

    Mensagem  maryprego 25/9/2017, 19:10

    Olá samueldrun,

    venha este exemplo se ajuda, na mensagem nº 1 e 6.
    https://www.maximoaccess.com/t30874-resolvidoerro-funcao-dlookup

      Data/hora atual: 7/12/2022, 14:20