[Resolvido] Abertura e Fechamento de Caixa

[anabon 0]

Olá bom dia pessoal ... Ms uma x venho pedir um help para vcs!!!!!

 

Estou contruindo um controle de estoque e preciso que ele de baixa altomaticamente na quantidade de mercadoria a cada venda, mas infelismente não faço a menor ideia de como fazer isso... Estou trabalhando com o VB6, banco de dados acess 2003, na tabela produtos tenho os seguintes campos: codigo, nomedoproduto, descrição, quantidade, valodevenda, valordecompra, lucro, fornecedor, minimo, atual, quantidadevenda, DataCad... e agora como dar baixa a cada produto vendido?

 

Se alguem poder me ajudar eu agradeceria muito, é o meu primeiro programa e se falta informção desde já peço desculpas!!! Pois faz 2 anos q estou tentando fazer um programa e parece q só agora estou perto do fim... :-)

 

Forte Abraço!!!!!

[anabon 0]

Para quem precisa resolvi meu problema com os seguintes codigos:

Set RS = New ADODB.Recordset

Set rs1 = New ADODB.Recordset

Set con = New ADODB.Connection

 

con.Open (cnSQL)

 

RS.Open "Select * from produtos where nomeproduto= '" & cboproduto & "'", con, adOpenKeyset, adLockOptimistic

 

If RS.EOF <> True And RS.BOF <> True Then

With RS

.Fields("quantidade") = RS.Fields("quantidade") + Val(Me.txtquantidade.Text)

.Update

.Close

End With

Me.cboproduto = ""

Me.txtquantidade = ""

Me.txtvalor = ""

Set RS = Nothing

Set con = Nothing

 

Else

 

rs1.Open "Select * from produtos", con, adOpenKeyset, adLockOptimistic

With rs1

.AddNew

.Fields("nomeproduto") = Me.cboproduto

.Fields("valorvenda") = Me.txtvalor

.Fields("quantidade") = Me.txtquantidade

.Update

.Close

 

Me.cboproduto = ""

Me.txtquantidade = ""

Me.txtvalor = ""

End With

Set rs1 = Nothing

Set con = Nothing

End If

Se alguem quizer um programa de controle de estoque para estudo no macoratti tem um bom http://www.macoratti.net/08/05/vb_efm1.htm

 

Forte Abraço!!!

 

Podem fechar o Post...