[Resolvido]Ajuda com Controle de estoque

Boa Noite, antes de mais nada, já tentei a adequação de vários códigos e exemplos deste fórum; como não obtive êxito, venho mais uma vezes solicitar ajuda.

Vejamos tenho um controle de estoque no qual gostaria de restringir a saída caso não tenha saldo suficiente. Outro ponto: gostaria que no formulário EntProd e SaiProd, em suas respectivas caixa de texto colocadas acima puxasse o saldo de estoque.


Criei uma consulta a qual mostra a descrição as entradas, saídas e Estoque. Não consigo puxar a informação do estoque para os formulários mencionados;
Referente a saldo negativo, como disse antes tentei adequar os códigos aqui postados e não consegui.

Caso possam me ajudar segue o banco anexo;

Olá, qual o formulário que desejas fazer a restrição se não tiver estoque suficiente, é o formulário SaiProd?

Bom dia, Exatamente, quando for utilizar o formulário saiProd e o item selecionado para saída for 0 (zero) ou menor que o saldo atual, não permitir tal situação. Através de alguma mensagem informando que o saldo é insuficiente. Ah, outra questão que notei agora pouco é que quando lanço a entrada de um item pelo form EntProd, a consulta csProd não mostra o valor lançado, só aparece quando dou baixa em algum valor do mesmo item. ex entrada pneu 4, no csprod (consulta) não aparece o saldo, só aparece se eu fizer uma saída. Ex. entrada pneu 4 saída 2. aí ele faz o calculo e aparece o estoque no csProd.

Se é um item que já tem algum saldo e lança mais uma entrada, também não aparece o total, aparece só o que já estava. Só faz o cálculo se eu fizer alguma saída pelo form saiProd. Aí ele atualiza.


Desde já agradeço pela força

Primeira coisa que tens a fazer é mudar a consulta csProd, ela deve mostrar todos os produtos mesmo que tenha estoque zero ou negativo para poder fazer a restrição no formulário, entra no modo SQL dessa consulta, apaga todo o conteúdo atual e cola isso:
SELECT Produtos.CodP, Produtos.DescP, IIf(IsNull([CodP]),0,DSum("[QTDE]","Entradas","[CodP]=" & [CodP])) AS Entrada, IIf(IsNull([CodP]),0,DSum("[QTDE]","Saídas","[CodP]=" & [CodP])) AS Saida, Nz([Entrada])-Nz([Saida]) AS Estoque
FROM Produtos
GROUP BY Produtos.CodP, Produtos.DescP
ORDER BY Produtos.DescP;

no formulário SaiProd para mostrar o estoque atual coloca no evento após atualizar da combo "Combinação30" isso:
Me.Texto55 = DLookup("[Estoque]", "csProd", "[CodP] =" & Me.Texto20)

E para fazer a restrição da quantidade, coloca no evento antes de atualizar do campo Qtde isso:
Dim strResposta As String
 If Me.Qtde > DLookup("[Estoque]", "csProd", "[CodP] =" & Me.Texto20) Then
             
   strResposta = MsgBox("Produto com estoque insuficiente " & " = " & DLookup("[Estoque]", _
   "csProd", "[CodP] =" & Me.Texto20) & " " & "Unidade(s)" & vbCrLf & "Deseja dar baixa assim mesmo?", _
   vbYesNo + vbCritical, "Alerta")
   If strResposta = vbNo Then
   Me.Undo
   Cancel = True
   End If
     
 End If
 Exit Sub

Boa tarde, grato pela força.
Algumas coisa funcionaram, a consulta csProd ficou perfeito, Sai o saldo correto. Já o formulário
SaiProd - não. Fiz Conforme explicado, na hora que vou executar uma nova saída e clico na combo para
selecionar o produto sai a mensagem :

Erro em tempo de execução 3075
Erro de sintaxe (operador faltando) na expressão de consulta '[CodP]='

Amigo, me desculpa, mas vc não fez como eu instrui a fazer não, se tivesse feito não daria nenhum erro, baixa o exemplo e faz o teste. A restrição é quando fores digitar a quantidade na saída, se o estoque for insuficiente vai disparar a msg te dando as opções de sim para dar baixa mesmo sem estoque e não para não dar baixa.

Muito obrigado pela ajuda, ficou perfeito. Cada dia vou aprendendo graças a boa vontade de todos deste site. Espero poder contribuir com os conhecimentos já adquiridos e ajudar a outros também.

Sandro
Goiânia Go

Ok, Saudações do fórum pelo retorno e fechamento do tópico