تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] السلام عليكم،كيفية التحكم في كمية المخزون بعد عملية البيع و الشراء
#1
اخواني السلام عليكم
اريد التحكم في كمية المخزون عن طريق البيع و الشراء
حيث ان لدي فورم فيه معلومات البضاعة و كميتها
وفورم اخر يندرج فيه عملية البيع
وفورم فيه عملية الشراء
اذ انه اثناء بيع بضاعة فان كميتها في المخزن تتناقص و اذا اشتريتها فانها تتزايد
لقد وضعت الكود النالي فقد نجح اثناء عملية الشراء لكن لم ينجح اثناء عملية البيع

Adodc1.Recordset.Update

adodc1.rercordset.find"[Nom-P]='" & text1.text & "'"a
Form2.Adodc1.Recordset.Update
Form2.Adodc1.Recordset!Qt_S = Form2.Adodc1.Recordset!Qt_S + Val(Text3.Text)a
وهذا الكود لعملية البيع
Form2.Adodc1.Recordset.Find "[Nom-P]='" & Text1.Text & "'"a


Adodc1.Recordset.Update
Form2.Adodc1.Recordset!Qt_S = Form2.Adodc1.Recordset!Qt_S - Val(Form4.Text3.Text)a
Form2.Adodc1.Recordset.Update

لقد وضعت حرف a في اخر كل كود حتى اسهل عليكم عملية القراءة
 شكرا
الرد
تم الشكر بواسطة:
#2
أنت متأكد أنو Form4 أصلا مفعلة أثناء هذه العملية
يا ريت تخبرنا .. هذا الكود، أنت وضعته في button في form4 او Form2

أقصد
ال Adodc1 موجوده في Form2 أو Form4
لأنو أعتقد الكود يجب أن يكون


Adodc1.Recordset.Update
Form4.Adodc1.Recordset!Qt_S = Form4.Adodc1.Recordset!Qt_S - Val(Form4.Text3.Text)
Form4.Adodc1.Recordset.Update

أتمنى تكون فهمت قصدي

و يا ريت لو كتبت
Form4.Adodc1.Recordset!Qt_S = Val(Form4.Adodc1.Recordset!Qt_S) - Val(Form4.Text3.Text)
لأنه هكذا أصح
منقطع .. للدراسة Confused
الرد
تم الشكر بواسطة:
#3
السلام عليكم شكرا اخي الكريم على التجاوب
اخي الكريم انا عندي فورم2 مخصص لادخال بيانات المنتوج(الاسم،الوصف،سعر الشراء،سعر البيع،الكمية)
وفورم3 مخصص لعملية الشراء(اسم المنتوج،المورد،الكمية)
هنا في فورم3 وضعت الكود التالي في زر الحفظ
Form2.Adodc1.Recordset!Qt_S = Form2.Adodc1.Recordset!Qt_S + Val(Text3.Text)
Form2.Adodc1.Recordset.Update
والفورم متصل ب اداة Adodc
اما الفورم4 فهو من اجل عملية البيع(اسم المنتوج،كمية البيع)
وفي زر الحفظ وضعت الكود التالي
Form2.Adodc1.Recordset!Qt_S = Form2.Adodc1.Recordset!Qt_S - Val(Form4.Text3.Text)
Form2.Adodc1.Recordset.Update
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية نسخ قاعدة بيانات جديدة وباسم في هذا المثال khezzani 5 96 15-10-18, 10:55 PM
آخر رد: سعداء
  سؤال عن كيفية ربط برنامج فجوال بيسي6 بقاعدة بيانات على النت amrou 4 185 19-09-18, 08:37 PM
آخر رد: amrou
  [vb6.0] عملية حسابية fariddidou 8 283 15-09-18, 11:49 PM
آخر رد: fariddidou
  كيفية عمل زر print screen للفورم المفتوحة mohamed arafa 1 92 14-09-18, 08:15 AM
آخر رد: Ahmed_Mansoor
  [سؤال] كيفية استخراج تقرير ملف PDF من برنامج مصمم بالفيجوال بيسك 6 mohamed arafa 4 155 11-09-18, 05:10 PM
آخر رد: mohamed arafa
  كيفية ربط ملف صوتي عند فتح البرنامج يعمل مباشرة حتي وان لم يوجد علي الجهاز؟ mohamed arafa 3 123 09-09-18, 12:46 PM
آخر رد: جاسم عبد
  مثال على كيفية الطريقة لتحديث برنامجك عن طريق الإنترنت Ahmed_Mansoor 14 3,188 01-09-18, 03:41 PM
آخر رد: MicroDoha
  [vb6.0] كيفية ربط رقم المعالج بإمكانية فتح أو غلق البرنامج بعد إظهاره mohamed arafa 2 113 01-09-18, 04:42 AM
آخر رد: mohamed arafa
  السلام عليكم ممكن مساعدة يا اخوان كيف بدي اربط الفورم في الاكسل ضروري بارك الله فيكم محمد جبريل 3 120 29-08-18, 08:56 PM
آخر رد: مصمم هاوي
  [VB.NET] سؤال كيفية تخزين ملف صوتي فsql server alipro 0 78 02-08-18, 05:09 AM
آخر رد: alipro

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


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