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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] كيفية الاتصال بقاعدة البيانات علي شبكة دون طلب اسم الجهاز وكلمة المرور kamalgadir 0 37 05-12-18, 05:58 PM
آخر رد: kamalgadir
  السلام عليكم احبابى فى الله ارجو المساعدة بخصوص متفح الانتر نت mhareek 1 44 30-11-18, 09:52 PM
آخر رد: عبدالله الصافي
  السلام عليكم أريد برنامج لجمعية خيرية محمد جبريل 3 113 08-11-18, 03:01 PM
آخر رد: elgokr
  كيفية نسخ قاعدة بيانات جديدة وباسم في هذا المثال khezzani 5 140 15-10-18, 10:55 PM
آخر رد: سعداء
  سؤال عن كيفية ربط برنامج فجوال بيسي6 بقاعدة بيانات على النت amrou 4 272 19-09-18, 08:37 PM
آخر رد: amrou
  [vb6.0] عملية حسابية fariddidou 8 350 15-09-18, 11:49 PM
آخر رد: fariddidou
  كيفية عمل زر print screen للفورم المفتوحة mohamed arafa 1 160 14-09-18, 08:15 AM
آخر رد: Ahmed_Mansoor
  [سؤال] كيفية استخراج تقرير ملف PDF من برنامج مصمم بالفيجوال بيسك 6 mohamed arafa 4 247 11-09-18, 05:10 PM
آخر رد: mohamed arafa
  كيفية ربط ملف صوتي عند فتح البرنامج يعمل مباشرة حتي وان لم يوجد علي الجهاز؟ mohamed arafa 3 171 09-09-18, 12:46 PM
آخر رد: جاسم عبد
  مثال على كيفية الطريقة لتحديث برنامجك عن طريق الإنترنت Ahmed_Mansoor 14 3,488 01-09-18, 03:41 PM
آخر رد: MicroDoha

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


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