[Resolvido]Controle de Estoque

Ola amigos,

Tenho a seguinte situação um formulario de vendas através de uma consulta que que seleciona o Produto e Quantidade e envia para um Subformulario que registra os itens da venda, minha dúvida é como eu faço para que após digitar a Qtdade antes de enviar os dados para o Sub ele consultar se tem estoque disponivel na tabela Produtos e dar a baixa no produto e caso não tenha estoque ele travar a venda?

Obrigado

Aqui nesse tópico já tem o mesmo assunto resolvido.

http://maximoaccess.forumeiros.com/t18319-resolvidoajuda-com-controle-de-estoque

Ola Beto,

Visitei o link mencionado porem meu sisema esta criando no 2003 teria como converte-lo para que possar dar uma analisada?

Obrigado

Infelizmente estou sem o 2007 no momento, só amanhã estarei com essa versão instalada e no 2010 não tem como converter para o 2003, mas o código usado no protótipo está exposto em um dos meus post.

Olá Fabio, boa noite, com pedido de licença ao Amigão Beto vou dar um pitaco aqui.

No evento Antes de Atualizar de seu campo Quantidade insira o código abaixo:

Private Sub Quantidade_BeforeUpdate(Cancel As Integer)
Dim QtdEst As Integer ' Variável para armazenar a quantidade em estoque da mercadoria


   ' Aqui carrego a variável com a quantidade no estoque, veja que filtro utilizando o codigo do peoduto
   QtdEst = DLookup("Quantidade", "tblEstoque", "Produto =" & Me.Produto & "")
   
   ' Aqui verifico se o estoque está zerado para o produto
   If QtdEst = 0 Then
   MsgBox "Produto.... zerado no estoque !!!"
   Exit Sub
   End If


   ' Aqui verifico se a quantidade que vai ser baixada existe no estoque, se for maior emite mensagem
   If QtdEst < Str(Me.Quantidade) Then
   MsgBox "Estoque atual menor que a quantidade solicitada !!!   " & Chr(10) & Chr(10) & "Estoque atual para " & Me.Produto.Column(1) & " é igual a " & QtdEst, vbInformation, "  Atenção"
   Me.Quantidade.Undo
   Cancel = True
   
   
   DoCmd.SetWarnings False
   DoCmd.RunSQL "update tblestoque set Quantidade=Quantidade-Forms![frmPedidos]![frmDetalhesPedido].Form![Quantidade]" _
   & " where tblestoque.Produto=Forms![frmPedidos]![frmDetalhesPedido].form![Produto]"
   Me.Subtotal = Me.PUnit * Me.Quantidade
   DoCmd.SetWarnings True

   Else

   'Caso a quantidade do produto exista no estoque faz a atualização do campo na tabela estoque
   DoCmd.SetWarnings False
   DoCmd.RunSQL "update tblestoque set Quantidade=Quantidade-Forms![frmPedidos]![frmDetalhesPedido].Form![Quantidade]" _
   & " where tblestoque.Produto=Forms![frmPedidos]![frmDetalhesPedido].form![Produto]"
   Me.Subtotal = Me.PUnit * Me.Quantidade
   DoCmd.SetWarnings True
   
   End If
   
End Sub


Observe que se tudo estiver OK o próprio código pega o Preço Unitário e multiplica pela Quantidade e devolve o valor no campo Subtotal.

Abraços, WSenna

Ola Sena,

Valeu pela dica mas n consegui, estou postando o banco para que vcs possam entender melhor o que preciso.. como ja disse nas entrada de mercadoria que uso a tabela de produtos ele funciona normal bem como também na saida ..ok..

Mas minha dificuldade é dar baixar no estoque no formulario de vendas

www.talesgoularteventos.com.br/upload/estoque.rar

Obrigado

Olá Fabio.

Baixei seu BD e vou ver o que é possível fazer.
Mas, você não acha que está faltando alguma coisa como pra quem você está vendendo, um cadastro de Clientes, etc.
Confesso que pela primeira vez vi um projeto dessa forma e, se permite, (não que eu queira te desanimar, longe disso) mas no que tange à normalização dos dados está péssimo, me desculpe.
De qualquer forma vou dar uma estudada e ver se consigo fazer com que funcione da forma como você idealizou, valew?

Abraços, WSenna.

Wsena,

Na verdade tem tds essas opções sim e que deixei somente a parte que estou com dificuldade entendeu,

Obrigado

wsenna

Consegiu ver alguma coisa sobre o arquivo?

Abraços

Ola amigo se puder nos mande o bd completo com dados fictícios para melhor ajuda-lo.

abç.

Tentei usar a função abaixo:

Código:

DoCmd.RunSQL ("update PRODUTOS set Estoque Atual = (Estoque Atual-(Formulários![VENDA]![QTDES])) where PRODUTOS.REF=(Formulários![VENDA]![REF]);")


Porém da erro: ERRO DE TEMPO DE EXECUÇÃO 3144 - Erro de Sintaxe na expressão UPDATE..

Amigos.

Resolvi meu problema.... criei um novo formulario e agora consegui roda do jeito que queria..

Obrigado