Controle de Movimento [RESOLVIDO]

[avgsantos]

Boa noite, Equipe de Fórum

Tenho uma planilha para entrada e saida de estoque, é possivel quando eu selecionar somente na opção "saida" de estoque, se o valor da quantidade > estoque "A quantidade digitada é maior que o saldo em estoque! Verifique"" segue a imagem abaixo.



avgsantos

[srobles]

avgsantos,

No evento KeyDown do TextBox, coloque o que segue :

Código: Selecionar todos

    'Se a tecla pressionada for ENTER
    If KeyCode = vbKeyReturn Then
        'Se o TextBox tiver valor diferente de nulo ou maior / igual a 1
        If TextBox1 <> "" Or TextBox1 >=1 Then
            "Armazenamos os valores do TextBox e do Label
            Dim vEstoque, vSaida As Integer
            'Valor de estoque = Valor do Label
            vEstoque = Label1.Caption
            'Valor de saída = Valor do TextBox
            vSaida = TextBox1
            'Se o valor de saída for maior que o em estoque
            If vSaida > vEstoque Then
            	'Informamos sobre o erro
                MsgBox "A quantidade informada é maio que o saldo em estoque!", vbCritical, "Movimentação de estoque"
            Else
               'Senão, atualizamos o valor do Label com a subtração entre o estoque e a retirada
                Label1.Caption = (Label1.Caption - TextBox1)
                'Limpamos o TextBox
                TextBox1 = ""
                'Informamos sobre a operação
                MsgBox "Retirada de estoque efetuada com sucesso!", vbInformation, "Movimentação de estoque"
            End If
        Else
            'Senão, informamos que a quantidade deve ser informada
            MsgBox "Informe a quantidade a ser retirada do estoque.", vbExclamation, "Erro"
        End If
    End If

Abs

[avgsantos]

Boa tarde, srobles

Solução resolvida, valeu

avgsantos