المشاركات : 81
المواضيع 29
الإنتساب : Aug 2020
السمعة :
3
الشكر: 46
تم شكره 19 مرات في 16 مشاركات
انا استخدمات هذه الكود لكن لم يعمل معاي ارجو المساعد اخوتي الكرام في هذه الكود وجزاكم الله الف خير وبارك الله فيكم
كود :
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] = [n2] - " & Val(Trim$(MSFlexGrid1.TextMatrix(I, 3))"
DoEvents
End If
Next
كود :
اذكرو الله سبحان الله وبحمده *سبحان الله العظيم
المشاركات : 1,545
المواضيع 33
الإنتساب : Jul 2016
السمعة :
255
الشكر: 6532
تم شكره 4340 مرات في 1696 مشاركات
19-11-20, 01:44 PM
(آخر تعديل لهذه المشاركة : 19-11-20, 01:53 PM {2} بواسطة 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
المشاركات : 81
المواضيع 29
الإنتساب : Aug 2020
السمعة :
3
الشكر: 46
تم شكره 19 مرات في 16 مشاركات
(19-11-20, 01:44 PM)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
لم يعمل معاي كود اخي الغالي
كود :
اذكرو الله سبحان الله وبحمده *سبحان الله العظيم
المشاركات : 1,545
المواضيع 33
الإنتساب : Jul 2016
السمعة :
255
الشكر: 6532
تم شكره 4340 مرات في 1696 مشاركات
20-11-20, 06:15 AM
(آخر تعديل لهذه المشاركة : 20-11-20, 06:26 AM {2} بواسطة sendbad100.)
السلام عليكم
تاكد من التالي:-
1- ان العمود الاول (MSFlexGrid1.TextMatrix(I, 0) تحتوي على ID المخصص للصنف. حسب الاستعلام يعتبر نص.
2- ان العمود الرابع (MSFlexGrid1.TextMatrix(I, 3) يحتوي على الكمية المباعة.
شيك على الاقواس () او الاخطاء الاملائية لاني كتبته بسرعة بدون تدقيق ومراجعة نظرا لضيق الوقت.
[b]جرب التالي اذا كان حقل id نص في قاعدة البينات.[/b]
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..MoveFirst
RS![n2] = RS![n2] - Val(Trim$(MSFlexGrid1.TextMatrix(I, 3))) DoEvents RS.Update End If Next
او التالي اذا كان id رقم في قاعدة البينات
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..MoveFirst
RS![n2] = RS![n2] - Val( Trim$( MSFlexGrid1.TextMatrix(I, 3))) DoEvents RS.Update End If Next
المشاركات : 81
المواضيع 29
الإنتساب : Aug 2020
السمعة :
3
الشكر: 46
تم شكره 19 مرات في 16 مشاركات
20-11-20, 04:15 PM
(آخر تعديل لهذه المشاركة : 20-11-20, 04:45 PM {2} بواسطة ahmed201.)
(20-11-20, 06:15 AM)sendbad100 كتب : السلام عليكم
تاكد من التالي:-
1- ان العمود الاول (MSFlexGrid1.TextMatrix(I, 0) تحتوي على ID المخصص للصنف. حسب الاستعلام يعتبر نص.
2- ان العمود الرابع (MSFlexGrid1.TextMatrix(I, 3) يحتوي على الكمية المباعة.
شيك على الاقواس () او الاخطاء الاملائية لاني كتبته بسرعة بدون تدقيق ومراجعة نظرا لضيق الوقت.
[b]جرب التالي اذا كان حقل id نص في قاعدة البينات.[/b]
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..MoveFirst
RS![n2] = RS![n2] - Val(Trim$(MSFlexGrid1.TextMatrix(I, 3))) DoEvents RS.Update End If Next
او التالي اذا كان id رقم في قاعدة البينات
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..MoveFirst
RS![n2] = RS![n2] - Val( Trim$( MSFlexGrid1.TextMatrix(I, 3))) DoEvents RS.Update End If Next
كود شغل اخي الغالي جزاك الله الف خير وبارك الله فيك
(20-11-20, 06:15 AM)sendbad100 كتب : السلام عليكم
تاكد من التالي:-
1- ان العمود الاول (MSFlexGrid1.TextMatrix(I, 0) تحتوي على ID المخصص للصنف. حسب الاستعلام يعتبر نص.
2- ان العمود الرابع (MSFlexGrid1.TextMatrix(I, 3) يحتوي على الكمية المباعة.
شيك على الاقواس () او الاخطاء الاملائية لاني كتبته بسرعة بدون تدقيق ومراجعة نظرا لضيق الوقت.
[b]جرب التالي اذا كان حقل id نص في قاعدة البينات.[/b]
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..MoveFirst
RS![n2] = RS![n2] - Val(Trim$(MSFlexGrid1.TextMatrix(I, 3))) DoEvents RS.Update End If Next
او التالي اذا كان id رقم في قاعدة البينات
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..MoveFirst
RS![n2] = RS![n2] - Val( Trim$( MSFlexGrid1.TextMatrix(I, 3))) DoEvents RS.Update End If Next
اخي الغالي ممكن كود الحذف من قاعدة البيانات MSFlexGrid1
كود :
اذكرو الله سبحان الله وبحمده *سبحان الله العظيم
المشاركات : 1,545
المواضيع 33
الإنتساب : Jul 2016
السمعة :
255
الشكر: 6532
تم شكره 4340 مرات في 1696 مشاركات
هلا اخي الكريم
ساعتبر ان الكود اشتغل معاك تمام .
استخدم نفس فكرة الاستعلام واستبدل
ب
المشاركات : 81
المواضيع 29
الإنتساب : Aug 2020
السمعة :
3
الشكر: 46
تم شكره 19 مرات في 16 مشاركات
(20-11-20, 11:37 PM)sendbad100 كتب : هلا اخي الكريم
ساعتبر ان الكود اشتغل معاك تمام .
استخدم نفس فكرة الاستعلام واستبدل
ب
جزاك الله الف خير اخي الغالي
كود :
اذكرو الله سبحان الله وبحمده *سبحان الله العظيم
|