مساعدة في حل مسالة حسابية بالنموذج

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

نصيحة حتى لا تظهر مشاكل في المستقبل اجعل مسميات الحقول بالحروف الانجليزية ، ولهذا السبب تحديدا لم تعمل في جهازي ولكن ضع مصدر البيانات في ذلك الحقل المعادلة التالية:

=IIf([نص8]>3000 And [نص8]<=4000;[نص8]*0.04;IIf([نص8]>2000 And [نص8]<=3000;[نص8]*0.03;IIf([نص8]>100 And [نص8]<=2000;[نص8]*0.02;0)))

وهذه صورة للتوضيح:

وبلغنا بالنتيجة.

:) 

اشكرك  AbuAdnan  على ردك 

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

ارجو الحل وشكرا 

تفضل طريقة اخرى ، المعادلة في كود او وحدة نمطية :)

1. التقرير:

2. والكود:

Function Return_Value(v)

    If v >= 100 And v <= 1000 Then
    Return_Value = 0.02
    
    ElseIf v >= 1001 And v <= 3000 Then
    Return_Value = 0.03
    
    ElseIf v >= 3001 And v <= 4000 Then
    Return_Value = 0.04
    
    End If
    

End Function

جعفر

242.bnk.mdb.zip

حياك الله :)

رجاء عمل تغيير على الكود ليصبح:

Function Return_Value(v)

    If v >= 100 And v <= 1000 Then
    Return_Value = v * 0.02
    
    ElseIf v >= 1001 And v <= 3000 Then
    Return_Value = v * 0.03
    
    ElseIf v >= 3001 And v <= 4000 Then
    Return_Value = v * 0.04
    
    End If
    

End Function

جعفر

اشكرك jjafferr جزيل الشكر 

هذا هو المطلوب 

وان شالله في ميزان حسناتك 

حياك الله :)

جعفر