هامش ربح متدرج حسب المبلغ الاصلى

[jo_2010]

السادة الخبراء الافاضل

بعد التحية

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

Database1.accdb

تم تعديل بالامس في 09:26 بواسطه jo_2010

[Moosak]

خلي هامش الربح عبارة عن نسبة معينة ( 20% مثلا ) .. واضربه في المبلغ .. 🙂 

وممكن باستخدام الدالة IIF يمكن تشترط إذا المبلغ بين كذا وكذا تكون النسبة 20% وبين كذا وكذا تكون النسبة 50% .... وهكذا

[Foksh]

مشاركة مع المهندس @Moosak ، وتطبيقاً لفكرته بعين أخرى .

قم بإنشاء مديول جديد ، والصق به الكود التالي مع تغيير القيم حسب حاجتك ..

Public Function CalculateMargin(Amount As Double) As Double
    Select Case Amount
        Case Is <= 100
            CalculateMargin = Amount * 0.05
        Case 101 To 200
            CalculateMargin = Amount * 0.1
        Case 201 To 300
            CalculateMargin = Amount * 0.15
        Case 301 To 400
            CalculateMargin = Amount * 0.2
        Case 401 To 500
            CalculateMargin = Amount * 0.25
        Case 501 To 600
            CalculateMargin = Amount * 0.3
        Case 601 To 700
            CalculateMargin = Amount * 0.35
        Case 701 To 800
            CalculateMargin = Amount * 0.4
        Case 801 To 900
            CalculateMargin = Amount * 0.45
        Case Else
            CalculateMargin = Amount * 0.15
    End Select
End Function

الآن من خلال استعلام تحديث ان كنت تريد تحديث قيمة الحقل "هامش الربح" في جدولك . أنشئ استعلام تحديث ( Update ) ، وقم باختيار الجدول "2025" ، ثم اختر الحقل الخاص بهامش الربح = "هامش الربح" ؛ الآن في خانة تحديث إلى ( Update To) سيتم استدعاء الدالة من المديول السابق :-

CalculateMargin([Price])

والنتيجة :- يتم ضرب قيمة السعر في النسبة المئوية التي حددناها في المديول . وهذا مثال بملف مرفق على الفكرة ..

Database1.accdb

 

تم تعديل منذ 1 ساعه بواسطه Foksh