كود خصم من المخزون

السلام عليكــم ورحمـة الله وبركاتــه ،،

Dim tem1, newqty, sub1
sqlss = "select *  from balance where code = '" & Me.Text1 & "'"
If rs.State = adStateOpen Then rs.Close
rs.Open sqlss, db, adOpenKeyset, adLockPessimistic
rs.MoveFirst
tem1 = rs.Fields("qty")
newqty = Me.Text2
sub1 = tem1 - newqty
sqls2 = "update [balance] set [qty] = '" & sub1 & "' where code = '" & Me.Text1 & "'"
If rs2.State = adStateOpen Then rs2.Close
rs2.Open sqls2, db, adOpenKeyset, adLockPessimistic

حيث Text1 هي كود المادة لاستخراج الرصيد للمادة 
Text2 هي الكمية المباعة 
ومن ثم تحديث الكمية الاساسية 
ولكن لي ملاحظة هل هناك اكثر من ادخال لنفس المادة اي طلب شراء متكرر لنفس المادة قبل نفاذها 

بالتوفيق

السلام عليكــم ورحمـة الله وبركاتــه ،،

اخي الكريم انا كانت لي نفس المشكلة وتوصلت لحل اعتقد انة جيد جا ويعمل معي 100% حتي الاان وقد وصل عدد فواتيري الي اكثر من 6000 فاتورة والرصيد مظبوط

المهم

الحل بسيط

انا لا اعرف كيف انت مصمم جدول المخزن

بالنسبه لي عامل جدول تحفظ به اصناف الفواتير سوا كانت مشتريات او مبيعات

ليس المهم الاسم حتي كود الصنف او رقمة

وعامل عمود في الجدول اسمه balance

في هذا العمود يتم حفط الكمية

اذا كانت مشتريات تحفظ بالموجب

اذا كانت مبيعات تحفظ بالسالب

وعند استدعا الرصيد يتم استخدام خاصية sum

فتجمع الكمية بالكامل

فمثلا اذا تم شراء صنف

بكمية 20 وباعة 10 سوف تسجل المباع -10

وعندما يجمع الكود تكون العملية كالاتي

20+(-10) =10

حبيت اشرح العملية

اذا مافهمت كلام ارفق لي مثال صغير وسوف اعدله لك

بالتوفيق

السلام عليكم

شكرا لكم على الرد

لكن الطرق السابقة ليس ما اريدة

اريد اولا ادخال اصناف مع الكمية

ثم عند القبام باجراء فواتير بيع يتم خصم الكمية من المخزن بواسطة ربط الجداول - عمل علاقات بين الجداول او عن طريق الكود

وعند القيام بعميل شراء او ادخال كمية اخرى لنفس المنتج يتم جمع الكمية الوجودة فى المخزن الكمية الحالية بعد عمليات البيع مع الكمية الجديدة

مثال

يوجد فى المخزن عدد 5 شاشة

قمت باجراء فاتورة بيع لعدد 3 شاشات تبقي فى المخزن 2 شاشة --- اريد تسجيل او تعديل الكمية الموجودة فى المخزن عند اجراء الحفظ

هل يتم هذا بواسطة عمل ربط بين الجداول ام ما هي الطريقة

مثل العمليات الموجودة فى البرامج التى تحتوى على اصناف ومخازن

ارجو ان اكون وضحت الفكرة

stor.rar