[Resolvido]Acerto de Estoque

Ola amigos tenho um pequeno problema na atualização do meu estoque quando atualizo uma quantidade ele dar baixa normalmente, mas quando apago a quantidade ele zera o estoque.
Helpe me !!!


Private Sub Quantidade_AfterUpdate()
Dim cnn As New ADODB.Connection
Dim rs1 As ADODB.Recordset
Set cnn = CurrentProject.Connection
Set rs1 = New ADODB.Recordset
rs1.CursorType = adOpenKeyset
rs1.LockType = adLockOptimistic
rs1.Open "TAB_ESTOQUE", cnn, , , adCmdTable
rs1.Find "Codigo=" & Me.CodigoCA, 0, adSearchForward, 1
If Not rs1.EOF Then
rs1("EstoqueAtual") = rs1("EstoqueAtual") - Me.Quantidade)' aqui atualiza o estoque
rs1.Update
End If
rs1.Close
cnn.Close
Set cnn = Nothing
Set rs1 = Nothing

End Sub

desde ja agradeço.

Valeu cara resolveu sim obrigado...

resolveu o problema de zerar o estoque valeu mesmo. tem como eu repor a quantidade apagada
e vi outro probleminha: se tem 10 eu libero 2 estoque 8 certo mas se volto e altero pra 4 a quantidade ele joga pra 4 estoque... e agora...

é um controle de rouparia, onde a tabela principal ai é a TAB_ESTOQUE, associada a Tab_movimentação onde guarda as informaçoes de movimentos com quantidade, cadastro de funcionarios nomes.
Descrição de epi com codigo e quantidades
O form de Movimentação faz a conecção do banco funcionario Epi. cada vez que o cara pega um item e atribuido ao cadastro dele que é a chave primaria e armazenado na tabela movi...
O problema é que acontece do cara pegar um Uniforme dar entrada no sistema ele vai provar o uniforme volta pra trocar e nao to conseguindo alinhar isso.

Ola Sergio, apenas uma sugestão.

Melhore seu codido da baixa usando algo assim.


On Error Resume Next
'Se for verdadeiro, pergunta ao usuário se ele deseja atualizar a quantidade do produto no estoque.
If MsgBox("Deseja atualizar a quantidade deste produto no estoque?", vbYesNo, "Aviso") = vbYes Then
'Se o usuário não entrar com um valor ou se o valor for o (zero), o Sistema emite uma mensagem.
If IsNull(Me.TxtSaida) Or Me.TxtSaida = 0 Then
MsgBox "Informe a quantidade de vendida no estoque!", vbCritical + vbOKOnly, "Atenção!"
Me.TxtSaida.SetFocus
Exit Sub
End If
'Declara nova variável (cnn) de conexão pelo sistema ADO
Dim cnn As New ADODB.Connection
'Declara variável rs1 para os registros
Dim rs1 As ADODB.Recordset
Dim rs2 As ADODB.Recordset
'Abre a conexão com o banco
Set cnn = CurrentProject.Connection
'Abre a conexão com o registro
Set rs1 = New ADODB.Recordset
rs1.CursorType = adOpenKeyset
rs1.LockType = adLockOptimistic
'Abre a Tabela_Produtos
rs1.Open "TblProduto", cnn, , , adCmdTable
'Procura e compara código do produto entre as tabelas Produtos e a tabela de itens.
rs1.Find "Produto_Nome=" & Me.TxtNome, 0, adSearchForward, 1
If Not rs1.EOF Then
'Diminui a quantidade de itens que saiu naquele momento ao estoque. (Compra)
rs1("Produto_Estoque") = rs1("Produto_Estoque") - Me.TxtSaida
rs2("Produto_Valor") = Me.TxtValor
'Verifica se o estoque é menor do que 0 (zero)
If rs1("Produto_Estoque") < 0 Then
'Se for, emite mensagem ao usuário
MsgBox "Quantidade não disponível. Saldo atual em estoque de " & rs1("Produto_Estoque") + Me.TxtSaida & " produtos", vbCritical, "Atenção!"
Cancel = True
Me.TxtSaida = Null
Me.TxtSaida.SetFocus
Else
'Verifica se o estoque atual é menor do que o estoque mímino
If rs1("Produto_Estoque") < rs1("Produto_Nivel") Then
' Se for, emite mensagem avisando ao usuário que deve pedir deste produto ao fornecedor
MsgBox "Estoque atual abaixo do estoque mínimo. Pedir no mínimo " & rs1("Produto_Nivel") - rs1("Estoque") & " produtos(s)", vbExclamation, "Atenção!"
'Atualiza a tabela de estoques
Cancel = True
Me.TxtSaida = Null
Me.TxtSaida.SetFocus
Else
rs1.Update
'Emite uma mensagem informando a quantidade atual no estoque.
MsgBox "Quantidade atual disponível de " & rs1("Produto_Estoque") & " produtos", vbExclamation, "Atenção!"
Me.TxtSaida = Null
Me.TxtSaida.SetFocus
End If
End If
End If
'Fecha a conexão com o banco
Set cnn = Nothing
'Fecha a conexão com o registro
Set rs1 = Nothing
Else
End If
End Sub



é apenas uma sugestão ok.

O codigo pergunta se deseja atualizar o estoque,lhe da a quantidade apos a atualização e tambem inibe caso ele ultrapasse o nivel desejado de estoque.

Obrigado

Obrigado amigo eu vou tentar dessa forma...
depois eu retorno o se funfou ou nao.

Meu caro nao deu certo...
Ele nao baixa o estoque como preciso e nem deixa o historico de movimentação que se faz necessario


Private Sub Quantidade_AfterUpdate()
On Error Resume Next
'Se for verdadeiro, pergunta ao usuário se ele deseja atualizar a quantidade do produto no estoque.
If MsgBox("Deseja atualizar a quantidade deste produto no estoque?", vbYesNo, "Aviso") = vbYes Then
'Se o usuário não entrar com um valor ou se o valor for o (zero), o Sistema emite uma mensagem.
If IsNull(Me.Quantidade) Or Me.Quantidade = 0 Then
MsgBox "Informe a quantidade de Saida no estoque!", vbCritical + vbOKOnly, "Atenção!"
Me.Quantidade.SetFocus
Exit Sub
End If
'Declara nova variável (cnn) de conexão pelo sistema ADO
Dim cnn As New ADODB.Connection
'Declara variável rs1 para os registros
Dim rs1 As ADODB.Recordset
Dim rs2 As ADODB.Recordset
'Abre a conexão com o banco
Set cnn = CurrentProject.Connection
'Abre a conexão com o registro
Set rs1 = New ADODB.Recordset
rs1.CursorType = adOpenKeyset
rs1.LockType = adLockOptimistic
'Abre a TAB_ESTOQUE
rs1.Open "TAB_ESTOQUE", cnn, , , adCmdTable
'Procura e compara código do produto entre as tabelas Produtos e a tabela de itens.
rs1.Find "Descrição=" & Me.Descrição, 0, adSearchForward, 1
If Not rs1.EOF Then
'Diminui a quantidade de itens que saiu naquele momento ao estoque. (Compra)
rs1("EstoqueAtual") = rs1("EstoqueAtual") - Nz(Me.Quantidade)
'rs2("Produto_Valor") = Me.TxtValor
'Verifica se o estoque é menor do que 0 (zero)
If rs1("EstoqueAtual") < 0 Then
'Se for, emite mensagem ao usuário
MsgBox "Quantidade não disponível. Saldo atual em estoque de " & rs1("EstoqueAtual") + Nz(Me.Quantidade) & " ITENS", vbCritical, "Atenção!"
'Cancel = True
Me.Quantidade = Null
Me.Quantidade.SetFocus
Else
'Verifica se o estoque atual é menor do que o estoque mímino
If rs1("EstoqueAtual") < rs1("Produto_Nivel") Then
' Se for, emite mensagem avisando ao usuário que deve pedir deste produto ao fornecedor
MsgBox "Estoque atual abaixo do estoque mínimo. Pedir no mínimo " & rs1("EstoqueMinimo") - rs1("EstoqueAtual") & " ITENS(s)", vbExclamation, "Atenção!"
'Atualiza a tabela de estoques
'Cancel = True
Me.Quantidade = Null
Me.Quantidade.SetFocus
Else
rs1.Update
'Emite uma mensagem informando a quantidade atual no estoque.
MsgBox "Quantidade atual disponível de " & rs1("EstoqueAtual") & " ITENS", vbExclamation, "Atenção!"
Me.Quantidade = Null
Me.Quantidade.SetFocus
End If
End If
End If
'Fecha a conexão com o banco
Set cnn = Nothing
'Fecha a conexão com o registro
Set rs1 = Nothing
Else
End If
End Sub


Trabalho com duas tabelas "Tab_Controle_individual" e "Tab_ESTOQUE" que estao associadas
preciso que ao dar entrada retire do estoque e registre na movimentação na desistencia limpe a movimentação e devolva ao estoque...
help me!!!

Obrigado pela contribuição pessoal.
Consegui
Coloquei o codigo da seguinte forma:

Private Sub Comando66_Click()
Dim cnn As New ADODB.Connection
Dim rs1 As ADODB.Recordset
Set cnn = CurrentProject.Connection
Set rs1 = New ADODB.Recordset
rs1.CursorType = adOpenKeyset
rs1.LockType = adLockOptimistic
rs1.Open "TAB_ESTOQUE", cnn, , , adCmdTable
rs1.Find "Codigo=" & Me.CodigoCA, 0, adSearchForward, 0
If Not rs1.EOF Then
rs1("EstoqueAtual") = rs1("EstoqueAtual") + Nz(Me.Quantidade)
rs1.Update
End If
rs1.Close
cnn.Close
Set cnn = Nothing
Set rs1 = Nothing
Dim apaga As Integer
Dim msg
On Error GoTo Err_Comando66_Click
DoCmd.SetWarnings False

apaga = MsgBox("Deseja excluir este ítem? Depois de excluir não será possível desfazer a acção !!!", vbYesNo + vbQuestion, "Excluir")
Select Case apaga
Case vbYes

DoCmd.RunSQL "UPDATE Tab_ESTOQUE SET Tab_ESTOQUE.EstoqueAtual = [EstoqueAtual]+[forms]![Form_Movimentação]![Quantidade]WHERE (((Tab_ESTOQUE.Codigo)=[forms]![Form_Movimentação]![Descrição]));"
MsgBox "Retornou " & Me.Quantidade & " Ítem para o stock!", vbInformation + vbOKOnly, "Informação!"

DoCmd.RunCommand acCmdDeleteRecord
Case vbNo
End Select
Me.Refresh

Exit_Err_Comando66_Click:
Exit Sub
Err_Comando66_Click:
msg = MsgBox("Não se pode excluir um registro ainda inexistente !!!", vbOKOnly + vbQuestion, "Atencão")
Resume Exit_Err_Comando66_Click

End Sub
Dessa forma ele devolve ao estoque, limpa a base e me avisa quanto foi devolvido.
No botao "Comando66" eu atribui no evento ao clicar somar a quantidade ao estoque atual.

valeu um abraço.