السلام عليكم اخواني وخواتي الاعزاء
سبق وان تم الاجابة على سؤالي لكن المشكلة انه عندما قمت بتطبيق الاجابة ظهرت لي مشكلة وهي ان نظام الرواتب حسب الدرجات الوظيفية يكتب حسب الاحرف بينما كانت الاجابة من الاخوان طبعا حسب طلبي على الارقام
حيث ان الدرجات الوظيفية هي .... أ ..... ب ..... الاولى ...... الثانية ..... الخ
ارجو التفضل بالاجابة على سؤالي وكما في المرفق
وجزاكم الله كل خير
قُل لَّوْ كَانَ الْبَحْرُ مِدَاداً لِّكَلِمَاتِ رَبِّي لَنَفِدَ الْبَحْرُ قَبْلَ أَن تَنفَدَ كَلِمَاتُ رَبِّي وَلَوْ جِئْنَا بِمِثْلِهِ مَدَداً
شكرا أخي ابو الانس
ايضا بالأمكان تغيير قيمة أسناد العبارة Case
بدون تغيير الكود - كما يلي
If IsNull(Me.gr) Then
MsgBox "حدد الدرجة", vbCritical, ""
Exit Sub
End If
If IsNull(Me.st) Then
MsgBox "حدد الفئة", vbCritical, ""
Exit Sub
End If
Dim sal As Double, inc As Long
Select Case Me.gr
Case Is = "أ"
sal = 1200
inc = (Me.st - 1) * 12
Case Is = "ب"
sal = 1100
inc = (Me.st - 1) * 11
Case Is = "الأولى"
sal = 1000
inc = (Me.st - 1) * 10
End Select
Me.sa = sal + incتم تعديل هذه المشاركة بواسطة اكسيرالحياة في 28 أبريل 2010 في 00:07
السلام عليكم اخواني وخواتي الاعزاء
فعلا هذا هو المطلوب وجزاكم ربي كل خير
والسلام عليكم ورحمة الله وبركاته
قُل لَّوْ كَانَ الْبَحْرُ مِدَاداً لِّكَلِمَاتِ رَبِّي لَنَفِدَ الْبَحْرُ قَبْلَ أَن تَنفَدَ كَلِمَاتُ رَبِّي وَلَوْ جِئْنَا بِمِثْلِهِ مَدَداً