[Resolvido]Control Stock

Ola a todos.

Para continuação de uma ferramenta que vai facilitar muito o meu trabalho assim como depois para todos os que quiserem, precisava de uma ajudinha dos mestres.
Ja tenho um form que faz pesquisa e ao clicar na sectinha de lado de cada material este preenche quase tudo pronto a dar saída.
O que eu queria e que esta quantidade que se preenche no form da saída fosse retirada a que eu tenho na tabela principal denominada "Produtos"

Ha parte disso tenho um acesso administrativo Pass:123 e com este acesso vou para um form neste form consigo adicionar coisas a lista e também tenho um control de Stock que me mostra uma diferença entre max e minimo e stock actual, neste caso queria saber se seria possível so aparecer de negativos ate 2, não queria que aparece-se td os outros.

Alguem me da uma ajudinha, ja matei a cabeça a tentar adaptar outros programas neste mas mato a cabeça e como os conhecimentos que tenho nao consigo fazer sem uma maozinha.

Prog

Uma maneira simples e generosa de dar baixa ao stock é assim;


Private Sub CampoQtdSaida_AfterUpdate()

Dim strAlerta As Long

strAlerta = DLookUp("[CampoStock]","SuaTabela","[Produto]=Forms![SeuFormulario]![Produto]")

If strAlerta <= Me.CampoQtdSaida.Value Then
MsgBox "A quantidade em stock está a baixo da Qtde Minima.", vbInformation + vbOKOnly, "Stock Baixo"
DoCmd.CancelEvent
Else
DoCmd.RunSQL "UPDATE SuaTabela Set CampoStock = [SuaTabela].[CampoStock] - " & Me.CampoQtdSaida & " WHERE [SuaTabela].[Produto] = '" & Me.Produto & "'"
End If
End Sub


Além desta, já existem outras mais complexas para iniciantes, aqui mesmo neste fórum.

Só complementando o exemplo do mestre JPaulo!
buscando pelo códgo do produto!


Private Sub CampoQtdSaida_AfterUpdate()

Dim strAlerta As Long

strAlerta = DLookUp("[CampoStock]","SuaTabela","[Codigo_Produto]=Forms![SeuFormulario]![Codigo_Produto]")

If strAlerta <= Me.CampoQtdSaida.Value Then
MsgBox "A quantidade em stock está a baixo da Qtde Minima.", vbInformation + vbOKOnly, "Stock Baixo"
DoCmd.CancelEvent
Else
DoCmd.RunSQL "UPDATE SuaTabela Set CampoStock = [SuaTabela].[CampoStock] - " & Me.CampoQtdSaida & " WHERE [SuaTabela].Codigo_Produto] = '" & Me.[Codigo_Produto] & "'"
End If
End Sub

Tenho algumas duvidas.
A minha tabela onde esta as Quantidades é a (Produtos)
A minha form saida e (Saida Material)
O nome do campo de saida de materal é (QT)
A tabela onde eu queria que ele guardasse o registo da saida é (TabMovimentos)
A coluna do codigo do material é (Cod)

Será que esta tudo bem como tenho, esta me a dar um erro 94.

Private Sub QT_AfterUpdate()
Dim strAlerta As Long
strAlerta = DLookup("[QT]", "Produtos", "[Cod]=Forms![Saida Material]![Cod]")
If strAlerta <= Me.QT.Value Then
MsgBox "A quantidade em stock está a baixo da Qtde Minima.", vbInformation + vbOKOnly, "Stock Baixo"
DoCmd.CancelEvent
Else
DoCmd.RunSQL "UPDATE Produtos Set QT = [Produtos].[Stock] - " & Me.QT & " WHERE [Produtos].Cod] = '" & Me.[Cod] & "'"
End If
End Sub

Tive a experimentar e a fim de muito custo consegui com o exemplo do Produto com o do codigo nao sei muito bem pk mas nao esta a dar.

Codigo Utilizado

Private Sub ValorDebito_AfterUpdate()
Dim strAlerta As Long
strAlerta = DLookup("[Stock]", "Produtos", "[Produto]=Forms![Saida Material]![Produto]")
If strAlerta <= Me.ValorDebito.Value Then
MsgBox "A quantidade em stock está a baixo da Qtde Minima.", vbInformation + vbOKOnly, "Stock Baixo"
DoCmd.CancelEvent
Else
DoCmd.RunSQL "UPDATE Produtos Set Stock = [Produtos].[Stock] - " & Me.ValorDebito & " WHERE [Produtos].[Produto] = '" & Me.Produto & "'"
End If
End Sub

Uma questao, como é que eu consigo com que ele me dee a mensagem de stock a baixo do minimo, na minha tabela tenho defenido a nome da Coluna do minimo como (Minimo).
Ha alguma forma rapida e simples de o fazer????

É simples,teste;

Private Sub ValorDebito_AfterUpdate()
Dim strAlerta, strStock, strMinimo As Long

strStock = DLookup("[Stock]", "Produtos", "[Produto]=Forms![Saida Material]![Produto]")
strMinimo = DLookup("[Minimo]", "Produtos", "[Produto]=Forms![Saida Material]![Produto]")

strAlerta = strStock - Me.ValorDebito.Value

If strAlerta <= strMinimo Then
MsgBox "A quantidade em stock está a baixo da Qtde Minima.", vbInformation + vbOKOnly, "Stock Baixo"
DoCmd.CancelEvent
Else
DoCmd.RunSQL "UPDATE Produtos Set Stock = [Produtos].[Stock] - " & Me.ValorDebito & " WHERE [Produtos].[Produto] = '" & Me.Produto & "'"
End If
End Sub