طلب الاضافة على البرنامج

[نونو2010]

السلام عليكم

لدي ملف ( مرفق ) يحتوي عدة حقول ومن ضمنها حقل MTYPE ويحتوي على التالي :

Employee ( التكلفة 2151 ) للذكور

Employee ( التكلفة 3212 ) للاناث

Spouse ( التكلفة 3212)

son ( التكلفة 2151 )

Daughter ( التكلفة 2151 )

Parents ( التكلفة 5440 )

Others ( التكلفة 2151 )

المطلوب :

في خانة AMOUNT PER DATE يطبع لي الناتج بعد ما يحدد المستخدم اي من الاختيارات اعلاه على ان يطبق المعادلة التالية :

التكلفة /364* الاجمالي في خانة COVERED

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

اختكم . نونو 2010

test.rar

[نونو2010]

هل طلبي صعب ام لم اوصل المعلومة جيدا ام ماذا ؟

[osama ababneh]

في الحقيقة المعلومة لم تصل !!!!!

هل التكلفة ثابتة ام ماذا

وفي كل نموذج هل يتم تعبئة جميع التكاليف ؟؟؟

الموضوع للاسف غير مفهوم وهدف البرنامج غير واضح

يرجى التفصيل اكثر

[نونو2010]

التلفة ثابتة لا تتغير حسب المعطيات التي ذكرتهااعلاه

وفي كل نموذج هل يتم تعبئة جميع التكاليف ؟؟؟

حسب اختيار المستخدم

مثال :

اختار من القائمة son بشكل الي يتم في حقل AMOUNT PER DATE تطبيق القاعدة التي ذكرت اعلاه

تم تعديل أبريل 30, 2010 بواسطه نونو2010

[نونو2010]

طيب ياخوان حاولت اضع كود لكن للاسف يعطيني خطا في المعادلة ارجوا منكم التكرم بتصحيح الكود

Private Sub MTYPE_AfterUpdate()

If [MTYPE] = "Spouse" Then

[AMOUNT PER DATE] = 3212 / 364 * Me.COVERED

ElseIf [MTYPE] = "son" Then

[AMOUNT PER DATE] = 2151 / 364 * Me.COVERED

ElseIf [MTYPE] = "Daughter" Then

[AMOUNT PER DATE] = 2151 / 364 * Me.COVERED

ElseIf [MTYPE] = "Parents" Then

[AMOUNT PER DATE] = 2151 / 364 * Me.COVERED

ElseIf [MTYPE] = "Others" Then

[AMOUNT PER DATE] = 2151 / 364 * Me.COVERED

ElseIf [MTYPE] = "Employee" Then

[AMOUNT PER DATE] = 2151 / 364 * Me.COVERED

End If

End Sub  

تم تعديل أبريل 30, 2010 بواسطه نونو2010

[osama ababneh]

اختي الكريمة

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

ارجو ان يفي التعديل بالغرض

INCx.rar

[نونو2010]

بارك الله فيك لكن اذا حبيت ادخل بيانات جديدة فانها يصل لحد الجنس ثم يتوقف لا يذهب للحقل الاخر ؟؟

كذلك نسيت "Others"

تم تعديل أبريل 30, 2010 بواسطه نونو2010

[نونو2010]

up

[ابوخليل]

بالنسبة للأعضاء الموجودون في الأسفل

ضع المشيرة على أي اسم لتعلم متى تمت آخر قراءة له ، فقد يكون بعض الأعضاء قد غادر المنتدى قبل يوم أو يومين .

[Bluemind]

العضو نونو2010

الرجاء قراءه قواعد المشاركة في المنتدى

http://www.officena.net/Tips/Questions.htm

طبعا الاعضاء في المنتدى هم متطوعون للاجابة على الاسئله وهذا كله من وقتهم الخاص ،قد ياخذ سؤالك فتره من الوقت ليتم الاجابه عليه.

واخيرا :ان الله مع الصابرين

[نونو2010]

طلب خاص اخي ابو خليل

ارجوا النظر في امري بارك الله فيك

[osama ababneh]

ارجو تجربة التعديل

INCx.rar

[نونو2010]

شكرا اخي العزيز

ولكن سؤال اخير لو كان عند اكثر من جدول تحمل نفس الحقول كيف اطبق الوحدة النمطية على جميع الجداول ؟

مع شكري وتقديري لك على مساعدتك