تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب كود خصم الكميه المباعه من المخزن
#1
انا استخدمات هذه الكود لكن لم يعمل معاي ارجو المساعد اخوتي الكرام في هذه الكود وجزاكم الله الف خير وبارك الله فيكم
كود :
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
الرد
تم الشكر بواسطة:
#2
السلام عليكم

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


PHP كود :
For 1 To MSFlexGrid1.Rows 1
If RS.State adStateOpen Then RS.Close
sql 
"SELECT * FROM [Table1] WHERE [id]='" Trim(MSFlexGrid1.TextMatrix(I0)) & "'"
RS.Open sqlDBadOpenStaticadLockOptimistic
If RS.RecordCount 0 Then
RS
![n2] = RS![n2] - " & Val(Trim$(MSFlexGrid1.TextMatrix(I, 3))"
DoEvents
RS
.Update
End 
If
Next 
الرد
تم الشكر بواسطة:
#3
(19-11-20, 01:44 PM)sendbad100 كتب : السلام عليكم

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


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

لم يعمل معاي كود اخي الغالي
الرد
تم الشكر بواسطة:
#4
السلام عليكم


تاكد من التالي:-
1- ان  العمود الاول   (MSFlexGrid1.TextMatrix(I, 0)   تحتوي على  ID   المخصص للصنف. حسب الاستعلام يعتبر نص.
2- ان العمود الرابع (MSFlexGrid1.TextMatrix(I, 3)  يحتوي على الكمية  المباعة.


شيك على الاقواس ()  او الاخطاء الاملائية  لاني كتبته بسرعة بدون تدقيق ومراجعة نظرا لضيق الوقت.


[b]جرب التالي  اذا كان حقل id  نص في قاعدة البينات.[/b]

PHP كود :
For 1 To MSFlexGrid1.Rows 1

If RS.State adStateOpen Then RS.Close

sql 
"SELECT * FROM [Table1] WHERE [id]='" Trim(MSFlexGrid1.TextMatrix(I0)) & "'"
RS.Open sqlDBadOpenStaticadLockOptimistic
If RS.RecordCount 0 Then

RS
..MoveFirst

 RS
![n2] = RS![n2] - Val(Trim$(MSFlexGrid1.TextMatrix(I3)))
DoEvents
RS
.Update
End 
If
Next 



او التالي اذا كان id رقم في قاعدة البينات

PHP كود :
For 1 To MSFlexGrid1.Rows 1

If RS.State adStateOpen Then RS.Close

sql 
"SELECT * FROM [Table1] WHERE [id]=" Trim(MSFlexGrid1.TextMatrix(I0))
RS.Open sqlDBadOpenStaticadLockOptimistic
If RS.RecordCount 0 Then

RS
..MoveFirst

 RS
![n2] = RS![n2] - ValTrim$( MSFlexGrid1.TextMatrix(I3)))
DoEvents
RS
.Update
End 
If
Next 
الرد
تم الشكر بواسطة: ahmed201
#5
(20-11-20, 06:15 AM)sendbad100 كتب : السلام عليكم


تاكد من التالي:-
1- ان  العمود الاول   (MSFlexGrid1.TextMatrix(I, 0)   تحتوي على  ID   المخصص للصنف. حسب الاستعلام يعتبر نص.
2- ان العمود الرابع (MSFlexGrid1.TextMatrix(I, 3)  يحتوي على الكمية  المباعة.


شيك على الاقواس ()  او الاخطاء الاملائية  لاني كتبته بسرعة بدون تدقيق ومراجعة نظرا لضيق الوقت.


[b]جرب التالي  اذا كان حقل id  نص في قاعدة البينات.[/b]

PHP كود :
For 1 To MSFlexGrid1.Rows 1

If RS.State adStateOpen Then RS.Close

sql 
"SELECT * FROM [Table1] WHERE [id]='" Trim(MSFlexGrid1.TextMatrix(I0)) & "'"
RS.Open sqlDBadOpenStaticadLockOptimistic
If RS.RecordCount 0 Then

RS
..MoveFirst

 RS
![n2] = RS![n2] - Val(Trim$(MSFlexGrid1.TextMatrix(I3)))
DoEvents
RS
.Update
End 
If
Next 



او التالي اذا كان id رقم في قاعدة البينات

PHP كود :
For 1 To MSFlexGrid1.Rows 1

If RS.State adStateOpen Then RS.Close

sql 
"SELECT * FROM [Table1] WHERE [id]=" Trim(MSFlexGrid1.TextMatrix(I0))
RS.Open sqlDBadOpenStaticadLockOptimistic
If RS.RecordCount 0 Then

RS
..MoveFirst

 RS
![n2] = RS![n2] - ValTrim$( MSFlexGrid1.TextMatrix(I3)))
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 1 To MSFlexGrid1.Rows 1

If RS.State adStateOpen Then RS.Close

sql 
"SELECT * FROM [Table1] WHERE [id]='" Trim(MSFlexGrid1.TextMatrix(I0)) & "'"
RS.Open sqlDBadOpenStaticadLockOptimistic
If RS.RecordCount 0 Then

RS
..MoveFirst

 RS
![n2] = RS![n2] - Val(Trim$(MSFlexGrid1.TextMatrix(I3)))
DoEvents
RS
.Update
End 
If
Next 



او التالي اذا كان id رقم في قاعدة البينات

PHP كود :
For 1 To MSFlexGrid1.Rows 1

If RS.State adStateOpen Then RS.Close

sql 
"SELECT * FROM [Table1] WHERE [id]=" Trim(MSFlexGrid1.TextMatrix(I0))
RS.Open sqlDBadOpenStaticadLockOptimistic
If RS.RecordCount 0 Then

RS
..MoveFirst

 RS
![n2] = RS![n2] - ValTrim$( MSFlexGrid1.TextMatrix(I3)))
DoEvents
RS
.Update
End 
If
Next 
اخي الغالي ممكن كود الحذف من قاعدة البيانات MSFlexGrid1
الرد
تم الشكر بواسطة:
#6
هلا اخي الكريم

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


استخدم نفس فكرة الاستعلام  واستبدل 
PHP كود :
RS.Update 

ب 

PHP كود :
RS.Delete 
الرد
تم الشكر بواسطة: ahmed201 , ahmed201
#7
(20-11-20, 11:37 PM)sendbad100 كتب : هلا اخي الكريم

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


استخدم نفس فكرة الاستعلام  واستبدل 
PHP كود :
RS.Update 

ب 

PHP كود :
RS.Delete 
جزاك الله الف خير اخي الغالي
الرد
تم الشكر بواسطة: sendbad100


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question الماذا لا يعمل هذا الاستعلام بخصم الكميه من المخزون ؟؟ Microformt 3 1,558 16-11-20, 11:31 PM
آخر رد: ahmed201

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم