تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] السلام عليكم Nor slam 0 31 07-02-19, 10:06 AM
آخر رد: Nor slam
  كيفية عمل ازرار مأخوذة او مربوطة مع قاعدة البيانات hannileo 6 298 14-01-19, 10:07 AM
آخر رد: hannileo
  السلام عليكم احبابى فى الله ارجو المساعدة بخصوص متفح الانتر نت mhareek 19 488 29-12-18, 05:24 PM
آخر رد: mhareek
  [سؤال] كيفية تشغيل قاعدة بيانات برنامج VB6+Access على شبكة داخليه aboezzat84 2 219 25-12-18, 12:34 PM
آخر رد: aboezzat84
  [vb6.0] كيفية الاتصال بقاعدة البيانات علي شبكة دون طلب اسم الجهاز وكلمة المرور kamalgadir 0 143 05-12-18, 05:58 PM
آخر رد: kamalgadir
  السلام عليكم أريد برنامج لجمعية خيرية محمد جبريل 3 233 08-11-18, 03:01 PM
آخر رد: elgokr
  كيفية نسخ قاعدة بيانات جديدة وباسم في هذا المثال khezzani 5 253 15-10-18, 10:55 PM
آخر رد: سعداء
  سؤال عن كيفية ربط برنامج فجوال بيسي6 بقاعدة بيانات على النت amrou 4 387 19-09-18, 08:37 PM
آخر رد: amrou
  [vb6.0] عملية حسابية fariddidou 8 447 15-09-18, 11:49 PM
آخر رد: fariddidou
  كيفية عمل زر print screen للفورم المفتوحة mohamed arafa 1 236 14-09-18, 08:15 AM
آخر رد: Ahmed_Mansoor

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


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