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

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

قام بنشر

المثال مرفق

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

حقل الثمن

دفعة

المجموع

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

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

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

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

وشكرا

db1.rar

قام بنشر

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

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

 

  • Like 1
قام بنشر
2 ساعات مضت, ابو ياسين المشولي said:

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


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

 

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

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

بالتوفيق اخي

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

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

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

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

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

db1.rar

تم تعديل بواسطه ابن فلسطيـن
قام بنشر (معدل)

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

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

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

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

تم تعديل بواسطه ابن فلسطيـن
قام بنشر
3 دقائق مضت, ابو ياسين المشولي said:

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

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

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

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

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

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

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

قام بنشر

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

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

 

  • Like 1
قام بنشر (معدل)

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

عموما اخر مرة

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

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

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

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

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

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

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

تم تعديل بواسطه ابن فلسطيـن
قام بنشر (معدل)

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

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

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

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

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

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

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

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

 

 

تم تعديل بواسطه ابن فلسطيـن
قام بنشر

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

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

جدولين:

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

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

الآن:

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

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

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

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

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

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

::

تحياتي

  • Like 2
قام بنشر

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

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

بمعنى لو ادخلت فى حقل الكمية المستحقة عدد 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

 

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

 

تم تعديل بواسطه ابن فلسطيـن

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