PROBLEMA COM RECORDSET

MAGICMEN 18/10/2011 09:40:18
#386922
Tenho esta instrução para actualizar o stock
acontece que actualiza sempre a 1linha e não aquela que está noProductNumber =txtproductno

o que poderá estar errado ?

Private Sub Command1_Click()
objproduct.RecordSource = [Ô]SELECT * FROM tblproduct WHERE ProductNumber = [ô][Ô] & txtproductno.Text & [Ô][ô][Ô]
a = Val(objproduct.Recordset.Fields([Ô]Quantity[Ô])) + Val(txtquantityrecieved.Text)
objproduct.Recordset.Fields([Ô]Quantity[Ô]) = a
objproduct.Recordset.Update
objproduct.Refresh


End Sub
LUIZCOMINO 18/10/2011 10:44:03
#386923
amigo post toda sua conexão, como você está abrindo esse recordset?
abraço!
MARCELO.TREZE 18/10/2011 11:00:52
#386927
duas maneiras

primeira

Private Sub Command1_Click()
objproduct.RecordSource = [Ô]SELECT * FROM tblproduct WHERE ProductNumber = [ô][Ô] & txtproductno.Text & [Ô][ô][Ô]
a = Val(objproduct.Recordset.Fields([Ô]Quantity[Ô])) + Val(txtquantityrecieved.Text)
[txt-color=#0000f0]objproduct.Recordset.Edit[/txt-color]
objproduct.Recordset.Fields([Ô]Quantity[Ô]) = a
objproduct.Recordset.Update
objproduct.Refresh
End Sub

e segunda

Private Sub Command1_Click()
objproduct.RecordSource = [Ô]UPDATE tblproduct SET Quantity = Quantity +[Ô] & Val(txtquantityrecieved.Text) & [Ô] WHERE ProductNumber = [ô][Ô] & txtproductno.Text & [Ô][ô][Ô]
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar