[Resolvido]Problema na atualização entre tabelas - Estoque

Estou criando um BD para controlar a saída e entrada de material (não usarei parte financeira), o principal é o controle de mercadoria (entrada e saída).
Procurei exemplos aqui no fórum, ajudaram. Mas ainda estou com alguns problemas.

Pretendo atualizar meu BD através de consulta.
Minha consulta de atualização não está boa. Já tentei de várias maneiras...mas falta a configuração final.

O objetivo é fazer uma ou várias saídas de material para uma pessoa, e poder atualizar o estoque de uma só vez. (como em uma venda...vendeu dá baixa no estoque)

Depois pretendo fazer o processo de devolução das mercadorias (nem todas retornam, pois algumas são de consumo. (como numa venda, produto não correspondeu, retorna para o estoque).


Tabelas:
Produto
CodigoProduto (chave)
Nome
preco
quantidade

DetalhePedido
CodigoPedido (chave)
CodigoProduto (chave)
QuantidaddeSaida
id numeraçãoautomática (criei depois...não é chave)

Pedido
códigoPedido
DataPedido
CodigoFuncionario


consultaAtualização:

Campo: quantidade
tabela: produto
[quantidade]-[quantidadeSaida]

Campo: QuantidadeSaida
tabela: DetalhePedido
[Formulários]![FPedidos]![SubFormDetalhePedido] (não funfa)


Pedido tabela (não estou usando nessa consulta

Att.
M.Araujo

Ola seja bem vindo ao forum;

No criterio do campo "QuantidadeSaida" na sua consulta "SaidaAtualiza", coloque >0

Ou seja, a sua consulta fica assim;


UPDATE Produto INNER JOIN (Pedidos INNER JOIN DetalhePedido ON Pedidos.CodigoPedido = DetalhePedido.CodigoPedido) ON Produto.CodigoProduto = DetalhePedido.CodigoProduto SET Produto.Quantidade = [Quantidade]-[QuantidadeSaida]
WHERE (((DetalhePedido.QuantidadeSaida)>0));

Basta abrir essa consulta em modo SQL deletar o que está lá e colar este;

Obrigado pela ajuda.
Ainda tenho problemas.

A atualização quando dá baixa no estoque, na tabela produto, desaparece o valor que inseri na tabela detalhePedido (campo quantidadeSaida)

Negativo.

Substitua o seu SQL pelo meu;

Muito bom!
Funcionou com o código em SQL.
MAs como restringir a atualização apenas para o pedido do momento...
quando executo a atualização ela altera até os anteriores.

Obrigado

Em vez de utilizar a consulta, faça uma maneira mais avançada, até mesmo para você evoluir;

No evento VBA ao saír do seu campo "QuantSaida", no "SubFormDetalhePedido", cole isto e vá retirando quantidades e vendo na tabela de estoque;


Private Sub QuantSaida_Exit(Cancel As Integer)
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Produto Set [Produto].[Quantidade] = [Produto].[Quantidade] - '" & Me.QuantSaida & "' WHERE [Produto].[CodigoProduto] = " & Me.CodigoProduto & ""
DoCmd.SetWarnings True
End Sub

Mais completo ainda....


Private Sub QuantSaida_Exit(Cancel As Integer)
Dim strProdutoQtd As String
'busca na tabela a quantidade de estoque existente
strProdutoQtd = Val(DLookup("[Quantidade]", "Produto", "[CodigoProduto] = " & Me.CodigoProduto & ""))
'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(strProdutoQtd) = 0 Or Val(strProdutoQtd) < 0 Or Me.QuantSaida.Value > Val(strProdutoQtd) Then
MsgBox "Estoque insuficiente para o produto " & Me.CodigoProduto.Column(1) & "", vbCritical
Me.QuantSaida = ""
Me.Undo
Exit Sub
Else
'se tudo estiver bem, retira a quantidade da tabela
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Produto Set [Produto].[Quantidade] = [Produto].[Quantidade] - '" & Me.QuantSaida & "' WHERE [Produto].[CodigoProduto] = " & Me.CodigoProduto & ""
DoCmd.SetWarnings True
End If
End Sub

De novo:

usando o código ocorre um problema, caso clique na linha vazia, no campo quantidadesaida.
Exemplo: acabo de lançar 3 produtos em 3 linhas, se eu clicar no campo abaixo, ainda sem valores, gera um erro (pede pra fazer depuração).

Anteriormente eu já havia baixado um exeplo aqui fórum, apresentou esse problema.
por isso parti para a consulta.

tem como resolver?

obrigado pela atenção

Esse erro so é gerado se voce entrar e sair desse campo qty vazio.

No inicio do ultimo codigo que lhe passei coloque:

On error Resume Next

JPaulo,
Obrigado.

Suas soluções foram mais rápidas que o tempo que tive para analisá-las.
Ficou muito bom.
Agora, vou tentar fazer um form para entrada de produtos .

Obrigadão.

Valew, bons estudos.