[Resolvido]Verificação de Disponibilidade de Estoque

Olá amigos,

          Estou desta vez aqui para pedir ajuda, pois estou fazendo um bd de pedidos de produtos porém para verificar a quantidade em estoque na hora do pedido estou colocando o  código abaixo no evento Ao Sair do Campo Quantidade do Sub Formulário Detalhes do Pedido, porém na linha strquantidade = Val(Me.CodigoProduto.Column(1)) eu gostaria de que a variável recebesse o valor contido no meu campo QuantidadeInicial que é da tabela Produto. pois assim estou dando o valor em estoque atual para a variavel. se alguem poder me ajudar agradeço.

Private Sub Quantidade_Exit(Cancel As Integer)
On Error Resume Next
Dim strquantidade As Integer
strquantidade = Val(Me.CodigoProduto.Column(1))
'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 seu pedido " & Me.CodigoProduto.Column(1) & "", vbCritical
Me.Quantidade = ""
Cancel = True
Exit Sub
Else
DoCmd.RunSQL ("update produto set QuantidadeInicial= (QuantidadeInicial-(Formulários![FPedidos]![SubFormularioDetalhePedido]![Quantidade])) where Produto.CodigoProduto=(Formulários![FPedidos]![SubFormularioDetalhePedido]![CodigoProduto]);")
End If
End Sub

utilize o Dlookup para isto.. algo assim:

Private Sub Quantidade_Exit(Cancel As Integer)
On Error Resume Next
Dim strquantidade As Integer
strquantidade = DlooKup("SeuCampoValor","SuaTabelaPedido","CampoCodigoProduto = " & Me.CodigoProduto.Column(ColunaOndeVaiCodigoProduto) & "")
'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 seu pedido " & Me.CodigoProduto.Column(1) & "", vbCritical
Me.Quantidade = ""
Cancel = True
Exit Sub
Else
DoCmd.RunSQL ("update produto set QuantidadeInicial= (QuantidadeInicial-(Formulários![FPedidos]![SubFormularioDetalhePedido]![Quantidade])) where Produto.CodigoProduto=(Formulários![FPedidos]![SubFormularioDetalhePedido]![CodigoProduto]);")
End If
End Sub

Cumprimentos.

Tópico movido à sala correta.


Moderação

Obrigado sempre pela respeitosa atenção amigo, vou testar e dou retorno com certeza.

Aguardamos o retorno

Bom trabalho.

Amigo, modifiquei do jeito que você falou mais infelizmente quando tento fazer o pedido ele diz que o estoque está insuficiente mesto tendo em estoque.

Private Sub Quantidade_Exit(Cancel As Integer)
On Error Resume Next
Dim strquantidade As Integer
strquantidade = DLookup("QuantidadeInicial - este campo deve vir da tabela produto", "Produto - aqui seria a tabela produto", "CodigoProduto = " & Me.CodigoProduto.Column(1) & "")
'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 seu pedido " & Me.CodigoProduto.Column(1) & "", vbCritical
Me.Quantidade = ""
Cancel = True
Exit Sub
Else
DoCmd.RunSQL ("update produto set QuantidadeInicial= (QuantidadeInicial-(Formulários![FPedidos]![SubFormularioDetalhePedido]![Quantidade])) where Produto.CodigoProduto=(Formulários![FPedidos]![SubFormularioDetalhePedido]![CodigoProduto]);")
End If
End Sub

Se poder me ajudar agradeço.

Poste um exemplo com os objetos envolvidos.

Cumprimentos.

Uma dica... Expressões de tratamentos de erros do tipo Resume Next devem ser utilizadas com cautela, pois simplemente ignora o erro e não indica onde estar a errar...

Veja este tópico...
http://maximoaccess.forumeiros.com/t3051-tratamento-de-erros-no-m-access?highlight=tratamento+de+erros

Cumprimentos.

Muito obrigado amigo sua dica para a lista de tratamento de erros foi excelente, pesquisei mais dentro do fórum e consegui resolver com esse código aqui:

Private Sub Quantidade_Exit(Cancel As Integer)
Dim I As Integer
I = DLookup("[QuantidadeInicial]", "[Produto]", "[CodigoProduto]=" & Me.CodigoProduto.Column(0) & "")
If I <= 0 Or (I - Me.Quantidade.Value) <= 0 Then
MsgBox "Não há quantidade suficiente em estoque para efetivar este pedido!", vbInformation, "Estoque baixo"
Me.Quantidade = ""
Exit Sub
Else
DoCmd.SetWarnings False
DoCmd.SetWarnings True 'É aconselhavel ativar os avisos novamente
End If
End Sub

logo depois eu faço a atualização do estoque a partir da marcação de um botão, agradeço mais uma vez o tempo empenhado em me ajudar e digo que estou a disposição.

Fico feliz pela solução... isto mostra que está se esforçando em pesquisar e não esperando soluções prontas.
 
O Fórum agradece o Retorno.