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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية ربط قاعدة البيانات القوائم المنسدلة bidaya 12 154 05-12-16, 01:54 PM
آخر رد: bidaya
  كيفية اظهار التاريخ الهجري في البرنامج allobaed 5 113 29-11-16, 02:20 PM
آخر رد: allobaed
  كيفية اضافة قائمة علوية لبرنامجي bidaya 2 87 28-11-16, 01:33 AM
آخر رد: bidaya
  كيفية استعادة سجل بعد حذفة haiderkh 1 84 03-11-16, 11:10 AM
آخر رد: أبوبكر سويدان
Exclamation [سؤال] كيفية تحديث بيانات جدول داخل قاعدة بيانات sql 2000 engabuhema 6 238 27-10-16, 11:28 AM
آخر رد: engabuhema
  [vb6.0] سؤال فى داتا ريبورت عن كيفية طباعة سجل واحد فقط المبرمج العتيق 4 170 02-10-16, 12:53 AM
آخر رد: Ahmed_Mansoor
  مثال على كيفية الطريقة لتحديث برنامجك عن طريق الإنترنت Ahmed_Mansoor 10 864 27-09-16, 12:13 AM
آخر رد: زياد مقداد
  كيفية ربط جداول مختلفة في نفس قاعدة البيانات زياد مقداد 2 170 26-09-16, 11:57 PM
آخر رد: زياد مقداد
  [سؤال] كيفية عمل تقرير يومي وشهري vb6 بقاعدة بيانات اكسسس abazrmhamed 1 159 31-08-16, 09:17 PM
آخر رد: Amir_alzubidy
  كيفية جعل الفورم يظهر لمره واحده haiderkh 2 154 21-08-16, 10:30 AM
آخر رد: haiderkh

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


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