[Microformt]

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

PHP كود :

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


ملاحظه هامه
رقم الصنف في قاعدة البيانات - نص وليس رقماً

ارجو من الله المساعدة والله يحفظكم ويرعاكم ويجع الجنه داركم الاخير

[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 إذا فأنت أمام إمكانيات كبيرة.


.....

[Microformt]

اخي العزيز : vbnet
السلام عليكم ورحمة وبركاته
احب ان اقدم لكم جزيل الشكر والتقدير على ما تقدمه من دعم فني والله يحفظكم ويرعاكم ويجع الجنه داركم الاخير يا رب العالمين
تحياتي

[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