Sugestão para problema de Controlo de Stock

Boa tarde,

Estou com dificuldade em equacionar uma resolução do meu problema que é o seguinte: A TB_Produtos regista e contabiliza as movimentações do Stock dos Produtos (entradas e saídas) . Apartir de uma saída para outros dois postos, será possível contabilizalos sem que modifique a TB_Produtos. Isto é, apartir de uma saída do Armazém 1 (que funciona como TB_Produtos) para os 2 e 3 Armazens, também contabilizar e registar o que fica em stock nesses outros dois Armazens.

Agradeço desde já a vossa ajuda,

Simão

Apenas acrescente um campo código do armazém na tabela movimento, no seu caso na tabela produtos.

Assim, pode montar consultas por armazém e seus saldos.

Mas por experiência recomendo uma tabela somente para o movimento.

Abraços,

Obrigado por responder!

Isso significa que tenho de ter uma tabela de Movimentos?

Não necessariamente!!

Se já trabalha com a tabela produtos e atende satisfatoriamente.

Obrigado pela dica! Eu utilizo este código para atualizar o stock sob a opção Sim/Não, neste caso terei de subtrarir e somar ao mesmo tempo, para cada campo respetivo?


If Atualizar_Stock = True Then
If MsgBox("Confirma a quantidade de saída deste produto em Stock?", vbYesNo, "Aviso") = vbYes Then

If IsNull(Me.Quantidade) Or Me.Quantidade = 0 Then

MsgBox "Informe a quantidade de saída no Stock!", vbCritical, "Atenção!"
Atualizar_Stock = False
Me.Quantidade.SetFocus
Exit Sub
End If

Dim cnn As New ADODB.Connection
Dim rs1 As ADODB.Recordset
Set cnn = CurrentProject.Connection
'Abre a conexão com o registo
Set rs1 = New ADODB.Recordset
rs1.CursorType = adOpenKeyset
rs1.LockType = adLockOptimistic
'Abre a Tabela_Produtos
rs1.Open "TB_Registo_Produtos", cnn, , , adCmdTable
'Compara o código do produto entre as tabelas Produtos e a tabela para entradas de produtos.
rs1.Find "IDProduto=" & Me.IDProduto, 0, adSearchForward, 1
If Not rs1.EOF Then
rs1("Stock") = rs1("Stock") - Me.Quantidade
If rs1("Stock") < 0 Then
MsgBox "Quantidade não disponível. O Stock atual é de " & rs1("Stock") + Me.Quantidade & " produtos", vbExclamation, "Atenção!"
Atualizar_Stock = False
Exit Sub
Else
If rs1("Stock") < rs1("Stock_mínimo") Then
MsgBox "Stock atual deste produto é inferior ao stock mínimo, proceda à reposição do mesmo. Stock mínimo: " & rs1("Stock_mínimo"), vbExclamation, "Atenção" '-rs1 ("Stock") & " produtos(s)", vbExclamation, "Atenção!"
rs1.Update
MsgBox "Stock atual: " & rs1("Stock") & " produtos", vbExclamation, "Atenção!"
Exit Sub
Else
rs1.Update
MsgBox "Stock atual: " & rs1("Stock") & " produtos", vbExclamation, "Atenção!"
End If
End If

rs1.Close
cnn.Close
Set cnn = Nothing
Set rs1 = Nothing
Else

End If
End If
End If

End Sub

Que tal posta as partes da DB envolvidas.

Assim todos podem visualizar melhor uma solução!!!

Abraços,