[Resolvido]Verificar estoque

boa tarde galera!!!

não sei o que está acontecendo, por isso venho aqui.
no meu BD está acontecendo o seguinte, tenho uma combo(quantidade), que na opção ao sair execulta o segunte codigo, que um amigo meu passou, no dele funciona mas no meu não. quando digito qualquer valor ele sempre execulta a "MsgBox"


Private Sub Quantidade_Exit(Cancel As Integer)
   If Me!quantidade > DSum("quantidade", "tbl_estoque", "Cod_Item_Obra=" & Me!cod_produto) Then
       MsgBox "A Quantidade é maior que a existente!"
       Cancel = True
       Else
       Exit Sub
   End If


o combo quantidade pertence a tbl_estoque e no formulario
o combo Cod_Item_Obra pertence a tbl_estoque
o combo cod_produto pertence a formulario

se alguem poder me ajudar agradeço.

Das duas uma..

Ou o valor na expressão com o Dsum é realmente maior..
ou está ocorrendo problemas com os tipos de dados..

Ajudaria se postasse um pequeno exemplo para que possamos ver isto pra ti.

Cumprimentos.

segue arquivo na mensagem anterior

Vamos lá...

1 - A forma em que lança a saida do estoque na tbl_Saida_Estoque.. está equivocada
2 - O correto é:
2.1 - Efetuar a saída
2.2 - Atualiza o campo estoque na tblEstoque.
3 - Para ter o registro das saídas do estoque.. uma tabela onde cada saida será gerado um registro. esta tabela relacionada à tbl_estoque.

Assim com uma consulta  poderia ter o registro de saidas por data do produto.


Quanto a questão do seu código acima, ele está entendendo txtquantidade como texto.. Se colocar uma msgbox verá que exibirá "30" (entre aspas) desta forma não aceita a comparação, para corrigir converta o valor para long ou double (caso tenha saidas com decimais, 30,33)

    If CDbl(Me.quantidade) > DSum("quantidade", "tbl_estoque", "Cod_Item_Obra=" & Me!cod_produto) Then


cdbl >> converte para double
clng >> converte para long

Cumprimentos.

piloto agradeço, mas nao entendi bem voce podedia enviar o BD pra me analisar, agradeço.

Basta substituir a linha por esta:

If CDbl(Me.quantidade) > DSum("quantidade", "tbl_estoque", "Cod_Item_Obra=" & Me!cod_produto) Then


Mas como falei a lógica que está utilizando está incorreta!..

Cumprimentos.

Piloto funcionou perfeitamente.........

eu ainda estou vendo uma forma de fazer essa atualização no estoque, estou pesquisando sobre isso por que nao tenho muito conhecimente.

agradeço pela ajuda.

Temos diversos exemplos de estoque no repositório.

A lógica é como falei la acima.

Não se esqueça de clicar no joinha da mensagem que o auxiliou.

cumprimentos.