[Resolvido]VBA Verificar quantidade em estoque antes de fazer a venda.

Olá pessoal, criei um controle de estoque e venda. Porem falta um comando que seria: o cliente pede 2 HD EXTERNO, porem no estoque so tem 1. SE eu colocar qualquer numero acima do que tem no estoque ele me manda uma MSGBOX dizendo que nao há quantidade suficiente no estoque.


alguem???

Amigo,

Tente adaptar o código abaixo a sua necessidade:

Código:

dim xEstoque as Vairant
xEstoque = DLookup("SeuCampo", "SuaTabela", "CodProdutoTabela=" & CodProdutoForm)
'Agora você cria o critério
if SeuCampoForm > xEstoque then
      MsgBox"Quantidade informada é maior que a quantidade no estoque",vbInformation,"Estoque Insuficiente" :exit Sub
else
      'Realiza o procedimento da venda ...
end if

Opa Uilson, dá erro no comando Dlookup, nao consegui corrigir. to mandando um exemplo do App.

O comando esta no Botao "EFETUAR FATURA".

Amigo,

O conceito estava meio errado. Veja agora .. O evento que compara o valor digitado no pedido com o valor do estoque agora está no subform.

Teste aí...


Abraços,

era isso que eu queria. Obrigado cara. voce e fera. rss

Mas um probleminha nao entendi o comando pois nao sou bom com VBA, meu conhecimento e quase 0 rss.
se tiver como me enviar um .DOC explicando alguns comandos ou qualquer coisa que possa me ajudar em VBA agradeço.

...