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,
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,