AJUDA COM SISTEMA DE ESTOQUE
Estou criando um sistema de gerenciamento de estoque e estou com poblema com entrada e saida de item
exemplo quando do entrada em um item como faço pra quantidade atualizar no banco de dados tipo tinha 20 itens dei entrada com 30 tinha que fica 50 mas atualiza como 30?Omesmo com a saida.Ah e tambem depois disso tudo precisava gerar um formulario de saida ou de entrada para imprimir ou salvar.Se alguem poder me ajudar agradeço.
exemplo quando do entrada em um item como faço pra quantidade atualizar no banco de dados tipo tinha 20 itens dei entrada com 30 tinha que fica 50 mas atualiza como 30?Omesmo com a saida.Ah e tambem depois disso tudo precisava gerar um formulario de saida ou de entrada para imprimir ou salvar.Se alguem poder me ajudar agradeço.
RDPIZA, Voce tem que dar um update na tabela, porem guardando a quantiade numa variavel e somando a quantidade que se esta atualizando... fui claro?
Posta o codigo de update e passa a varivel que esta usando para atualizar que ajudo!
Abraço!
Posta o codigo de update e passa a varivel que esta usando para atualizar que ajudo!
Abraço!
deixa explica sou novato com vb6 tendeu o sistema ta meu cru ainda mas vo te passa oque ja fiz blz
frmcadastroproduto
Private Sub cmdvoltar_Click()
frmcadastroprodutos.Show
cmdincluir.Enabled = True
estoque.Update
End Sub
Private Sub Form_Load()
Set bancodedados = OpenDatabase([Ô]C:\Documents and Settings\Administrador\Desktop\Programa Maria\Estoque.mdb[Ô])
Set estoque = bancodedados.OpenRecordset([Ô]Estoque[Ô], dbOpenTable)
[ô]tbestoque.Index = [Ô]IndCodigo[Ô]
End Sub
Private Sub Form_Unload(Cancel As Integer)
bancodedados.Close
estoque.Close
End Sub
Private Sub mnuentradaprodutos_Click()
frmEntradaprodutos.Show
End Sub
Private Sub mnuestoque_Click()
frmestoque.Show
End Sub
Private Sub mnuprocurarsaida_Click()
frmprocurarsaida.Show
End Sub
Private Sub mnuprodutos_Click()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
End Sub
Private Sub mnusaidadeprodutos_Click()
frmsaida.Show
End Sub
Private Sub cmdvoltar_Click()
frmcadastroprodutos.Show
cmdincluir.Enabled = True
estoque.Update
End Sub
Private Sub Form_Load()
Set bancodedados = OpenDatabase([Ô]C:\Documents and Settings\Administrador\Desktop\Programa Maria\Estoque.mdb[Ô])
Set estoque = bancodedados.OpenRecordset([Ô]Estoque[Ô], dbOpenTable)
[ô]tbestoque.Index = [Ô]IndCodigo[Ô]
End Sub
Private Sub Form_Unload(Cancel As Integer)
bancodedados.Close
estoque.Close
End Sub
Private Sub mnuentradaprodutos_Click()
frmEntradaprodutos.Show
End Sub
Private Sub mnuestoque_Click()
frmestoque.Show
End Sub
Private Sub mnuprocurarsaida_Click()
frmprocurarsaida.Show
End Sub
Private Sub mnuprodutos_Click()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
End Sub
Private Sub mnusaidadeprodutos_Click()
frmsaida.Show
End Sub
frm saida
Private Sub cmdgravar_Click()
Data1.r
End Sub
Private Sub cmdincluir_Click()
Text1.Text = [Ô][Ô]
Text2.Text = [Ô][Ô]
Text3.Text = [Ô][Ô]
Text4.Text = [Ô][Ô]
Text5.Text = [Ô][Ô]
cmdgravar.Enabled = True
End Sub
Private Sub mnusaida_Click()
frmprocurarsaida.Show
End Sub
Private Sub cmdgravar_Click()
Data1.r
End Sub
Private Sub cmdincluir_Click()
Text1.Text = [Ô][Ô]
Text2.Text = [Ô][Ô]
Text3.Text = [Ô][Ô]
Text4.Text = [Ô][Ô]
Text5.Text = [Ô][Ô]
cmdgravar.Enabled = True
End Sub
Private Sub mnusaida_Click()
frmprocurarsaida.Show
End Sub
cadastro
saida
entrada
estoque
Procura saida
Procura saida
Tópico encerrado , respostas não são mais permitidas