[ahmed201]

(14-09-14, 07:40 AM)vbnet كتب : .....

إن رقم الخزرن بهذا الشكل (as10001) نص وليس رقم فلا يصح اجراء عملية حسابية عليه

الخصم يتم على الكمية فقط والتي هي رقم

على افتراض أن
رقم الصنف ID ، إن أردت استبدله برقم الصنف مثل الباركود مثلا
اسم حقل الكمية Quantity

كود :

DB.Execute "UPDATE [Store] SET [Quantity] = [Quantity] - " & Val(Trim$(fox.TextMatrix(i, 2))) & " WHERE ID='" & Val(Trim$(fox.TextMatrix(i, 0))) & "'"

حسب مواضيعك السابقة وجدتك تتعامل ب DAO
ويبدو الآن أنك تحولت إلى ADO إذا فأنت أمام إمكانيات كبيرة.


.....

اخي الغالي الكود لم بعمل معاي مااني استخدم في مكتبة  microsoft activex data objects 2.8 library

كود :

On Error Resume Next
Dim i As Integer
If rs.State = 1 Then rs.Close
sql = "Select * From [Table2] "
rs.Open sql, db, adOpenStatic, adLockOptimistic
For i = 1 To MSFlexGrid1.Rows - 1
rs.AddNew
rs![n1] = MSFlexGrid1.TextMatrix(i, 1)
rs![n2] = MSFlexGrid1.TextMatrix(i, 2)
rs![n3] = MSFlexGrid1.TextMatrix(i, 3)
db.Execute "UPDATE [Table1] SET [n2] = [n2] - " & Val(Trim$(MSFlexGrid1.TextMatrix(i, 2))) & " WHERE ID='" & Val(Trim$(MSFlexGrid1.TextMatrix(i, 0))) & "'"
rs.Update
Next i