[Resolvido]Controle de pequenos gastor

Olá meus amigos, boa noite. Estou aqui fazendo um controle de pequenos gastos, e ia tudo bem. Só que agora o meu campo ESTOQUE onde mostra o saldo, deixou de atualizar. E não estou conseguindo fazer o ajuste. Algum amigo poderia da uma ajuda ?

Vou deixar o bd aqui caso algum amigo possa ajudar.

https://drive.google.com/file/d/1Z7yDw8dcFPYo2uq4MyS5HlguFoaXBpvt/view?usp=sharing


Olá meu amigos, achei o meu problema citado acima. Na caixa onde escolho o material para dar a saída eu tinha colocado somente o nome do produto. Ex: HD SSD. Porem quando eu cadastrava mas de 1, na hora de dar a saída no produto eu não sabia em qual eu estava dando a saída, com isso eu precisei na caixa informar o nome + o numero de série. Quando eu fiz isso, o meu campo estoque que é o campo que me mostra a quantidade, deixou de atualizar.

Se algum amigo pude me ajudar nesta questão, serei grato.

Bom dia nobre.
Antes de cadastrar produto coloca verificação se existe o produto na tabela caso não existir ele cadastra caso existir ele atualiza a quantidade
Quando de cadastra e dar a saída do produtos ele tem que pegar o código do produto e mostra o nome do produto. para que não haja erro.
Quando for colocar o Bd coloca só a parte que está com o problema, assim fica mais rápido para nós solucionar o problema.
Vê se esse te da a luz, estou fazendo esse sistema agora, essa parte foi depurada e deu certo.
Se caso não, a galera irá vir. Mas sobe somente a parte do problema para o Drive.

Código:

Dim db      As DAO.Database
Dim sSQL    As String
Dim validar As Variant

If Me.TxQTDE > Me.txtQuantidadeValidar Then
   MsgBox "Não temos essa quantidade no estoque", vbInformation, "Mercado Moreira"
    Me.TxQTDE = Null
    Me.TxQTDE.SetFocus
Exit Sub
ElseIf IsNull(Me.TxQTDE) Then
    MsgBox "Coloque a quantidade do produto/serviço", vbInformation, "Mercado Moreira - Vendas"
    Me.cboNomeDoProduto.SetFocus
    Me.TxQTDE.SetFocus
Exit Sub
Else
Set db = CurrentDb
CurrentDb.Execute "update tbEstoque set Quantidade= Quantidade -'" & Me.TxQTDE & "' WHERE [Cod] = '" & Me.cboCodProduto & "' "
......
tbEstoque.Requery

Bom dia amigo, obrigado pela orientação.
Poxa nao entendi o que devo fazer, voce disse para verificar se já existia o produto na tabelam caso sim só atualizar a quantidade. E na saída mostrar o codigo do produto e o nome.

E esse codigo que me passou coloco a onde, nao entendi

Boa noite.
No botão que você vai dar baixar. Antes de dar baixa ele verifica a quantidade do produto ao dar baixa ele se atualiza.
1- Suco 19 na saída deu baixa de 10 ele vai verificar se tem 10 ou mais se tiver menos ele não da baixa.
Segue a orientação

Boa noite, amigo deu essa mensagem.

Boa noite, amigo!
Neste linha ( If Me.TxQTDE > Me.txtQuantidadeValidar Then ) voce esta falando de dois campos. No meu caso eu só tenho 1 campo que é o ESTOQUE, a soma a e subtracção é feita somente nele. Imaginei que teria que ser assim ( if me.txtdtd > me.estoquevalidar the ) mas da erro.

Estou perdido.

Olá, boa tarde!
Amigo, quando tiver um tempo poderia dar um help ? Não consegui caminhar com o código que me deste. Tentei adaptar mas não rolou

Boa noite.
Tenho uma reunião marcada paras 20hs provavelmente termino as 22hs.
Se tiver online faremos isso. Mandarei  mensagem.

Boa noite, estarei on

Obrigado pela ajuda vocês são 10 d+.
Resolvido,.

Grato!

3 campos deu um pico de trabalhou heim.
Vlw, Sucesso.

Verdade, pow vcs são muito show de bola.
Sem palavras.