مطلوب قيمة الحقل فى النموذج لا تتجاوز قيمة حقل اخر محدد

[ابو طارق سعيد]

المثال مرفق

فيه نموذج يحتوى على :

حقل الثمن

دفعة

المجموع

المطلوب لو كان مدخل فى حقل الثمن عدد 200

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

بمعنى لو وضعت 50 مثلا فى حقل دفعة يقبل الادخال

ولكن لو وضعت 210 تظهر رسالة بان القيمة اعلى من المطلوب

وشكرا

db1.rar

[ابو ياسين المشولي]

اتفضل في حدث بعد التحديث في خانه دفعه ضع هذا الكود

If Me.دفعة > Me.الثمن Then
Beep
MsgBox " عفوا الدفعة اكبر من الثمن ""( " & [الثمن] & " )  ", vbOKOnly + vbInformation, "  تنبيه "
Undo
Exit Sub
End If

 

[عاشق_الرقي]

ماشاء الله عليك ابو ياسين سبقتني واتحفت في الرد

[ابو ياسين المشولي]

كلنا اخي نتعاون بعضنا البعض

تم تعديل مارس 6, 2018 بواسطه ابو ياسين المشولي

[ابو طارق سعيد]

2 ساعات مضت, ابو ياسين المشولي said:

اتفضل في حدث بعد التحديث في خانه دفعه ضع هذا الكود

If Me.دفعة > Me.الثمن Then
Beep
MsgBox " عفوا الدفعة اكبر من الثمن ""( " & [الثمن] & " )  ", vbOKOnly + vbInformation, "  تنبيه "
Undo
Exit Sub
End If

 

فى خانة بعد التحديث فى منشىء التعبير ام منشى البرامج؟

[ابو ياسين المشولي]

فجوال بيسك

[ابو طارق سعيد]

2 ساعات مضت, ابو ياسين المشولي said:

فجوال بيسك

اشكرك جزيل الشكر

 

[ابو ياسين المشولي]

بالتوفيق اخي

[ابو طارق سعيد]

12 دقائق مضت, ابو ياسين المشولي said:

بالتوفيق اخي

لم افلح وهذه القاعدة مرفقة ارجو ان تساعدنى 

النموذج اسمه ogra

هناك ثلاث حقول وهى الكمية المستحقة - الكمية المعطاه - الكمية المتبقية

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

وطبعا الكمية المتبقية هى حاصل طرح المعطاه من المستحقة

db1.rar

تم تعديل مارس 6, 2018 بواسطه ابن فلسطيـن

[ابو ياسين المشولي]

اتفضل هذا طلبك حسب ما فهمت منك

db1 (7).rar

[ابو طارق سعيد]

هذا ما طلبته بالنسبة الا انه هناك خلل بسيط وهو

عند ادخال الكمية المستحقة لنفترض 100 ونقوم بادخال الكمية المعطاه بقيمة اكبر مثلا 120 تاتى الرسالة المطلوبة وهذا جيد

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

قمت يجب شطب كلمة Undo من الكود؟ تاتى الرسالة ولكن القيم تبقى موجودة

تم تعديل مارس 6, 2018 بواسطه ابن فلسطيـن

[ابو ياسين المشولي]

كيف تريدها تبقى وهي اكبر من الشرط والشرك انه يكون نفس الكميه او اصغر

[ابو طارق سعيد]

3 دقائق مضت, ابو ياسين المشولي said:

كيف تريدها تبقى وهي اكبر من الشرط والشرك انه يكون نفس الكميه او اصغر

الشرط يكون للكمية المعطاه

مثال : الكمية المستحقة = 200 وممكن ان تكون طبعا فى سجل اخر قيمة اخرى

القيمة المعطاه يجب ان تكون تساوى او اقل من القيمة المستحقة وليس اكبر منها

الان ادخلنا فى حقل الكمية المستحقة مبلغ 200

لو وضعنا فى حقل الكمية المعطاه اى رقم حتى 200 يقبل وان زاد عن 200 تاتى الرسالة بالرفض فى حقل الكمية المعطاه اما رقم 200 يبقى فى حقل الكمية المستحقة حتى لا اعيد كتابته وفقط ادخل عدد فى حقل الكمية المعطاه

ارجو ان اكون وضحت معلش غلبتك معى

[ابو ياسين المشولي]

حسب مافهمت استبدل الكود بهاذا

If Me.الكمية_المعطاه > Me.الكمية_المستحقة Then
Beep
MsgBox " عفوا الكمية المعطاه اكبر من الكمية المستحقة ""( " & [الكمية_المستحقة] & " )  ", vbOKOnly + vbInformation, "  تنبيه "
Me.الكمية_المعطاه = Me.الكمية_المستحقة
End If

 

[ابو طارق سعيد]

للاسف ليس المطلوب واذا تكرار طلبي يزعجك فانا اتنازل وشكرا لك مهما عملت

عموما اخر مرة

تابع معى خطوة بخطوة

مثال: الكمية المستحقة فرضا كتبت 200  

الكمية المعطاه لا تعطى للزبون دفعة واحدة فمثلا اليوم ياخذ 40 وغدا 30 وبعدها 80 ... وعند ادخال القيم فى حقل الكمية المعطاه يتبقى حاصل طرح الكميات المعطاه جميعها الى حقل الكمية المتبقية

لهذا عند وصول رقم الكمية المعطاه الى نفس رقم الكمية المستحقة يكون حقل الكمية المتبقية صفر

وبناء عليه لو كان حقل الكمية المتبقية 30 مثلا وقمت بادخال رقم 40 او اكثر لحقل الكمية المعطاه وفى هذه الحالة يكون اكبر ايضا من الكمية المتبقية يجبان يعطى الرسالة الخطا المطلوبة

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

هذا بالتفصيل واسف على الازعاج

تم تعديل مارس 6, 2018 بواسطه ابن فلسطيـن

[ابو ياسين المشولي]

مافي ازعاج ابدا بس لازم افهم هلا تقصد انك تريد ماتبقى له مثلا

فهم السوال نصف الاجابه

اظن طيب ابشر

[ابو طارق سعيد]

ببساطة اشرح لك

هناك ثلاث حقول وهى : الكمية المستحقة و الكمية المعطاه والكمية المتبقية

لنفترض ان لاحدا من الناس كمية مستحقة وضعها عندى مبلغ 200 دولار 

على ان ياخذها بالتقسيط كل فترة مبلغ معين ولنفترض ان اول مبلغ اخذخ هو 50 دولار وهذا يكون فى الكمية المعطاه

المتبقى اذن 150 دولار تكون فى حقل الكمية المتبقية

لنفترض فى يوم اخر طلب 80 دولار من مبلغ ال 200 لاحظ انه سبق واخذ 50 دولار سابقا 

هنا نضيف ال80 دولار الى مبلغ ال50 السابقة فيصبح المجموع فى الكمية المعطاه 130 دولار اذنيتبقى فى حقل القيمة المتبقية 200-130 =70

لو طلب مبلغ 100 دولار سنقوم بوضع القيمة الجديدة فى حقل القيمة المعطاه فسيكون الناتج 230 وهذا اكبر من القيمة المستحقة اولا وهى 200 هنا يجب ان لا يقبل حقل القيمة المعطاه ويرفض على ان تبقى القيم السابقة فى الحقول موجودة كما كانت اخر عملية ادخال

 

 

تم تعديل مارس 6, 2018 بواسطه ابن فلسطيـن

[AlwaZeeR]

ابن فلسطين الغالي:

يجب ان تكون قاعدة بياناتك كالتالي:

جدولين:

الجدول الاول: يحتوي على رقم الزبون، اسم الزبون، الدفعة

الجدول الثاني: النوع، الثمن

الآن:

يتم عمل نموذج باسم الزبون والدفعة الكاملة وفي مثالك 200

في نفس النموذج نضع نموذج فرعي للدفعات وووو

في الفرعي نضع المعادلات اللازمة : نجمع الدفعات وونقصها من الدفعة الثابتة 200

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

لضيق الوقت لم اطبق لك هذا ولكن ان لم تستطع التوصل لحل اخبرني وسوف نتعاون في ذلك

حبذا لو تكون المسميات بالحروف الانجليزية لسهولة العمل مستقبلا

::

تحياتي

[ابو طارق سعيد]

مرفق نموذج فى عدة حقول

المطلوب الا تتجاوز قيمة حقل (مجموع الدفعات) عن حقل (الكمية المستحقة)

بمعنى لو ادخلت فى حقل الكمية المستحقة عدد 200

وثم نقوم بادخال دفعات متعددة 

يكون مجموعها فى حقل (مجموع الدفعات ) على ان تاتى رسالة تحذير اذا تجاوز (مجموع الدفعات ) عن حقل (الكمية المستحقة

وشكرا

db1.mdb

db1.mdb

[ابو طارق سعيد]

12 ساعات مضت, AlwaZeeR said:

ابن فلسطين الغالي:

يجب ان تكون قاعدة بياناتك كالتالي:

جدولين:

الجدول الاول: يحتوي على رقم الزبون، اسم الزبون، الدفعة

الجدول الثاني: النوع، الثمن

الآن:

يتم عمل نموذج باسم الزبون والدفعة الكاملة وفي مثالك 200

في نفس النموذج نضع نموذج فرعي للدفعات وووو

في الفرعي نضع المعادلات اللازمة : نجمع الدفعات وونقصها من الدفعة الثابتة 200

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

لضيق الوقت لم اطبق لك هذا ولكن ان لم تستطع التوصل لحل اخبرني وسوف نتعاون في ذلك

حبذا لو تكون المسميات بالحروف الانجليزية لسهولة العمل مستقبلا

::

تحياتي

هذا هو الملف

 

db1.rar

[ابو ياسين المشولي]

اخي الكريم انا حسب فهمي وجربت طلع كما قلت لك

ضع هذا الكود بالنموذج الفرعي

بعد حدث في خانه المنتج وفي خانه الكميه وفي خانه السعر

Me.FooterReTotal = (SoldQu - ReturnedQu) * Pro_Price

 

[ابو طارق سعيد]

7 ساعات مضت, ابو ياسين المشولي said:

اخي الكريم انا حسب فهمي وجربت طلع كما قلت لك

ضع هذا الكود بالنموذج الفرعي

بعد حدث في خانه المنتج وفي خانه الكميه وفي خانه السعر

Me.FooterReTotal = (SoldQu - ReturnedQu) * Pro_Price

 

يا اخى الفاضل الخانات التى اوردتها ليس عندى فى النموذج

 

تم تعديل مارس 8, 2018 بواسطه ابن فلسطيـن

[ابو ياسين المشولي]

انا اسف كان ردي على موضوع اخر 

هههههه

[ابو طارق سعيد]

ولا يهمك 

[AlwaZeeR]

تفضل صديقي

جرب واعطني ملاحظاتك

 

BridSalen003.rar