طلب مساعدة لعمل كودات للمبالغ

اخي الفاضل

من الافضل ارفاق مثال للتعديل عليه من الاخوان

للأسف لا يوجد لدي مثال حاليا

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

يعني مثلا

1=200 دينار

2=300

3=400

واريد البرنامج أن يعطيني المبلغ عند ادخال العدد مباشرة

ولكم مني جزيل الشكر والتقدير

اخي الفاضل

هل هذا ما تريده

test.rar

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

تصور انني اعمل في شركة مبيعات وجائني تاجر اتعامل معه دائما

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

وسوف احاول عمل مثال ورفعه لك وشكر جزيلا مرة اخرى

الاخ الفاضل

المرفقات تعمل بشكل صحيح الا اذا كنت تستخدم اصدار افيس 2007

وياريت احد الاخوان يدخل في المشاركة ويفيدنا هل المرفق يعمل ام لا للتأكد فقط

شكرا لك اخي

وفي المرفق مثال على الاكسل لتوضيح ما اريده

sala1.rar

ارجو المساعدة يا شباب

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

تفضل اخي العزيز

وتأمل حدث بعد تحديث حقل الوظيفة

تحياتي العطرة و بالتوفيق

db2.rar

السلام عليكم

شكرا اخي الغالي اي بود وهذا ما اريده بالضبط ولكن هل يمكن ان اعرف كيف استطيع عملها لاني لم افهم الطريقة حيث رأيت بأنك عملت جدول أخر للمعلومة المدخلة بحيث يظهر المطلوب في الخانة الثانية

وانا اريد ان اعرف اين وضعت مبالغ المكافآت لكي تظهر عند اختيار الوظيفة

ولك جزيل الشكر وجزاك الله خيرا

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

بالنسبة للجدول المضاف فهو للتأكد من ادخال مسميات الوظائف بدون اخطاء املائية

واما ما يخص الكود فكما اشرت لك سابقا موضوع في حدث بعد تحديث حقل الوظيفة

بحيث نخبر البرنامج بانه مثلا عند ادخال الوظيفة ولتكن مثلا "مدير" يجب ان تكون العلاوة "800" مثلا او كما وضعتها وهكذا لتقريب المعنى:

وهذا هو الكود ويمكن اضافة ما تشاء من الوظائف على نفس النمط هذا:

Private Sub الوظيفة_AfterUpdate()
Select Case [الوظيفة]
Case "مدير"
Me.العلاوة= 1000

Case "نائب مدير"
Me.العلاوة= 800

Case "مساعد"
Me.العلاوة= 500

Case "اداري"
Me.العلاوة= 400
End Select
End Sub