تقييم الموضوع :
  • 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 76 07-02-19, 10:06 AM
آخر رد: Nor slam
  كيفية عمل ازرار مأخوذة او مربوطة مع قاعدة البيانات hannileo 6 383 14-01-19, 10:07 AM
آخر رد: hannileo
  السلام عليكم احبابى فى الله ارجو المساعدة بخصوص متفح الانتر نت mhareek 19 603 29-12-18, 05:24 PM
آخر رد: mhareek
  [سؤال] كيفية تشغيل قاعدة بيانات برنامج VB6+Access على شبكة داخليه aboezzat84 2 340 25-12-18, 12:34 PM
آخر رد: aboezzat84
  [vb6.0] كيفية الاتصال بقاعدة البيانات علي شبكة دون طلب اسم الجهاز وكلمة المرور kamalgadir 0 201 05-12-18, 05:58 PM
آخر رد: kamalgadir
  السلام عليكم أريد برنامج لجمعية خيرية محمد جبريل 3 294 08-11-18, 03:01 PM
آخر رد: elgokr
  [سؤال] السلام عليكم محمد جبريل 0 51 27-10-18, 12:33 AM
آخر رد: محمد جبريل
  كيفية نسخ قاعدة بيانات جديدة وباسم في هذا المثال khezzani 5 324 15-10-18, 10:55 PM
آخر رد: سعداء
  سؤال عن كيفية ربط برنامج فجوال بيسي6 بقاعدة بيانات على النت amrou 4 481 19-09-18, 08:37 PM
آخر رد: amrou
  [vb6.0] عملية حسابية fariddidou 8 503 15-09-18, 11:49 PM
آخر رد: fariddidou

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


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