الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تعديل على هذا الكود لو سمحتو

مغلقمُجاب
بدأه ناصر المصلح في 5 أكتوبر 2013 · 4 رد · 481 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

تحية طيبة للجميع

 

لدي النسبة المدفوعة بالتامينات الاجتماعية يتم خصم مانسبتة 9% من الاجر للسعودين و0% لغير السعوديين

 

الكود يؤدي الغرض بشكل ممتاز ولكن توجد لدي تقريبا 19 جنسية فلابد من تسجيل جميع الجنسيات بالكود بحدث في الحالي

 

الكود

If Me.Citizens = "السعودية" Then
        Me.EmpTax = (Me.EmpSalary * 9) / 100
  Else
    If Me.Citizens = "مصري" Then
       Me.EmpTax = (Me.EmpSalary * 0) / 100
        Else
    If Me.Citizens = "باكستاني" Then
       Me.EmpTax = (Me.EmpSalary * 0) / 100
   
       End If
      End If
      End If

هل من طريقة لاختصار الكود بانه للجنسية السعودية 9% ولغير الجنسية السعودية 0%

تم تعديل هذه المشاركة بواسطة ناصر المصلح في 5 أكتوبر 2013 في 05:19

#2

تفضل اخي هذا هو الكود

If Me.Citizens = "السعودية" Then
        Me.EmpTax = (Me.EmpSalary * 9) / 100
  Else
   
       Me.EmpTax = (Me.EmpSalary * 0) / 100
End if
1
#3

اخي اذا كنت تستخدم vb.net  استخدم switch

 لا اله الا الله محمد رسول الله

#4 أفضل إجابة

تفضل اخي الكريم : ناصر

 

حل آخر بإستخدام  دالة  Select

 

Select Case Me.Citizens
Case Is = "السعودية"
Me.EmpTax = (Me.EmpSalary * 9) / 100
 
Case Else
Me.EmpTax = (Me.EmpSalary * 0) / 100
End Select
1

post-15367-087183200%201340344597.gif

بعض من المواضيــع الممـيزه

post-15367-027053900%201340345097.gif

#5

شكرا من الاعماق للجميع

 

يفضل الله وحلولكم يعمل الكود المضاف  بشكل جيد

هذا الموضوع مغلق.

مواضيع مشابهة