[ahmed201]

انا استخدمات هذه الكود لكن لم يعمل معاي ارجو المساعد اخوتي الكرام في هذه الكود وجزاكم الله الف خير وبارك الله فيكم

كود :

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

[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 


[ahmed201]

(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 


لم يعمل معاي كود اخي الغالي

[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 


[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

[sendbad100]

هلا اخي الكريم

ساعتبر ان الكود اشتغل معاك تمام .


استخدم نفس فكرة الاستعلام  واستبدل 

PHP كود :

RS.Update 


ب 

PHP كود :

RS.Delete 


[ahmed201]

(20-11-20, 11:37 PM)sendbad100 كتب : هلا اخي الكريم

ساعتبر ان الكود اشتغل معاك تمام .


استخدم نفس فكرة الاستعلام  واستبدل 

PHP كود :

RS.Update 


ب 

PHP كود :

RS.Delete 


جزاك الله الف خير اخي الغالي