اذهب الي المحتوي
أوفيسنا

هل من طريقة لايجاد الانقاص التراكمي


الردود الموصى بها

السلام عليكم أحبائي

احتجت لعملية المجموع التراكمي ووجدت الحل من مثال لأحد الأخوة وطبقته على برنامجي والحمد لله حلّت المشكلة

ولكن حاولت التعديل ليشمل الانقاص التراكمي فلم أفلح

في المرفق برنامج مبيعات

والبحث برقم السلعة

لو أدخلت الرقم 111 تظهر المعلومات اسم السلعة : تمر وكذلك سعرها والكمية و...

وعند الضغط على زر تحديث تبدأ عملية البحث مرة أخرى

ما أريده هو : لو أدخلت الرقم 111 تظهر كمية السلعة 1 والكمية الموجودة 10 إذا المتبقية 9

لو عاودنا البحث بعد الضغط على زر تحديث وأدخلت الرقم 111 أريد أن تكون الكمية المتبقية 8

أي أن يتم الانقاص من المرة السّابقة للبحث ( لأن الكمية المتبقية من البحث السابق 9 إذا يجب أن تكون في المرة التالية 8)

بمعنى : كل عملية بحث بعد الضغط على زر تحديث يتم الانقاص

وآمل أن يكون مرادي واضحا أخوتي

ملفي.rar

رابط هذا التعليق
شارك

اخي الكريم " أبو العقاب "

في الأكسس لا يوجد مستحيل ولكن المسألة محتاجة صبر.

فهذا ملفك بعد التعديل وارجو منك اعادة النظر في بناء برنامجك لأنه من وجهة نظري انه غير منطقي.

عموما ارجو ان يكون هذا طلبك.

2ملفي.rar

رابط هذا التعليق
شارك

أخي الكريم أحمد

أشكرك وأحييك

أولا : لم عطلت زر التحديث ، وأصبح المجموع التراكمي والانقاص التراكمي بدون الزر( أي أن الزر لا يعيد البحث من جديد)

ثانيا : ما هو غير المنطقي في البرنامج؟؟!

ثالثا : الكود التالي تم وضعه في حدث بعد التحديث لحقل البحث (a)


gt = Nz(gt, 0) + Nz(Me.sum1, 0)

b = gt

وهو يحسب المجموع التراكمي داخل الحقل b بعد تعريف gt

كيف نعدّل ذلك الكود ليحسب الانقاص التراكمي داخل الحقل qu

أظن ان المسألة ليست صعبة

وأشكرك ثانية أخي أحمد

رابط هذا التعليق
شارك

أخي الكريم Bluemind

أشكرك وأشكر من تفاعل وسيتفاعل مع هذا الموضوع

لنفترض أن الزبون اشترى كمية 1 من السلعة التي رقمها 111

وتم طباعة التقرير بالمشتريات وانتهى الأمر إذا الكمية المتبقية 10 - 1 = 9 تمام

جاء زبون آخر نضغط زر تحديث

ثم اشترى الزبون الآخر من السلعة التي رقمها 111 إذا هذه المرة تكون الكمية المتبقية 9 - 1 = 8

وهكذا ...........

رابط هذا التعليق
شارك

اولا السلام عليكم

(لنفترض أن الزبون اشترى كمية 1 من السلعة التي رقمها 111

وتم طباعة التقرير بالمشتريات وانتهى الأمر إذا الكمية المتبقية 10 - 1 = 9 تمام

جاء زبون آخر نضغط زر تحديث

ثم اشترى الزبون الآخر من السلعة التي رقمها 111 إذا هذه المرة تكون الكمية المتبقية 9 - 1 = 8

وهكذا ..........)

وهذا اخي ابو العقاب ما اسمية غير منطقي :

1- انك قمت بعمل جدولين جدول اساسي به البيانات والجدول الاخر يتم وضع نتيجة البحث به والغير منطقي في هذا انة في كل مرة يتم البحث عن الكمية الموجودة البدائية وليست الكمية الموجودة الفعلية.

2- لقد قمت بوضع كود في زر التحديث بالنموذج يقوم بحذف نتيجة البحث والتي وضعت في الجدول وهذا ما لا افهمه.

رابط هذا التعليق
شارك

توصّلت للحل من الأستاذة زهرة

وكان الحل هو وضع الكود التالي في زر تحديث


DoCmd.RunSQL "UPDATE tb1 SET tb1.count2 = [Forms]![frm1]![count2]-1 WHERE (((tb1.n)=[forms]![frm1]![s]))"

وإليكم الملف للاستفادة منه

وبارك الله بكم على محاولاتكم الطيبة والمباركة

za-ملفي-UP2.rar

رابط هذا التعليق
شارك

اخي الفاضل ابو العقاب

الا تري ان المشكلة ما تزال قائمة حيث انه عند طلب كمية من السلعة 111 فأنه يتم البحث عن الكميه الموجودة ولتكن 5 ويكون الرصيد يساوي 5 - الكمية المطلوبه وعندما يتم البحث عن السلعة 111 في نفس المرة في الصف التالي او في عملية اخري تكون الكمية الموجودة كذلك 5 وهذا غير منطقي حيث من المفترض ان تكون الكمية الموجودة ما تبقي من العملية الأولي وما لا افهمه عند الضغط علي زر تحديث لماذا يتم حذف الطلبات؟؟؟؟؟

رابط هذا التعليق
شارك

الخلل هو أنه عند كل بحث ضع المؤشر على الحقل الذي اسمه n

يتم الانقاص ولمن يرغب في تعديل ذلك فلا يبخل علينا

جرب البحث وضع الؤشر على الحقل n وجرب النتيجة

تم تعديل بواسطه أبو العقاب
رابط هذا التعليق
شارك

حتي الان انت لم تفهم ماذا اريد ان اقول

انا لا اعني ان عملية الانقاص لا تتم عند كتابة الكود ولكني اعني انه عند كل عملية تقوم ببيع السلعة111 لاشخاص مختلفين تكون نتيجة البحث عن السلعة من حيث الكمية الموجودة هي هي 5 في كل مرة مع انة من المفترض ان الكمية الموجودة لابد وان تنقص في كل مرة يتم بيع كمية منها.

ارجو ان تكون المعلومة وصلت.

رابط هذا التعليق
شارك

أخي أحمد

أشكرك على متابعتك للموضوع

أظن أنني توصلت للحل وبإمكانك التأكد

وهو وضع الكود السابق (في المشاركة 9) في حدث بعد التحديث للنموذج

ولكن ظهرت لي مشكلة وهو عند كل بحث تظهر رسالة " أنت على وشك تحديث صفوف ..."

هلا نتعاون لحلها؟؟

تابع المرفق يرحمك الله

ملفي.rar

رابط هذا التعليق
شارك

كدة اصبحت منطقية

ومشكلتك حلها بسيط جدا

ضع هذا الكود في حدث بعد التحديث لمربع نص البحث (DoCmd.SetWarnings False)

ويوضع هذا الكود قبل جميع الأكواد المكتوبة اي بعد جملة (Private Sub a_AfterUpdate()) l

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information