[sendbad100]

السلام عليكم

جرب التالي
اضف (RS.Update)   (RS![n2] = RS![n2] )

PHP كود :

For I = 1 To MSFlexGrid1.Rows - 1
If RS.State = adStateOpen Then RS.Close
sql = "SELECT * FROM [Table1] WHERE [id]='" & Trim(MSFlexGrid1.TextMatrix(I, 0)) & "'"
RS.Open sql, DB, adOpenStatic, adLockOptimistic
If RS.RecordCount > 0 Then
RS![n2] = RS![n2] - " & Val(Trim$(MSFlexGrid1.TextMatrix(I, 3))"
DoEvents
RS.Update
End If
Next