استخدام IF فى وحدة نمطية

[محمد احمد لطفى]

السلام عليكم ورحمة الله وبركاته 
أريد تحويل كود الذى بالاستعلام الى وحدة نمطيه ليسهل التعامل معها و جزاكم الله خيرا
 

Consume Amount: IIf([issue date]<#01/08/2016#;consumD0817([consum]);IIf([issue date] Between #01/08/2016# And #30/07/2017#;consumA0817([consum]);IIf([issue date] Between #01/08/2017# And #30/07/2018#;consumB0817([consum]);IIf([issue date] Between #01/08/2018# And #30/07/2019#;consumC0817([consum])))))

مرفق النموذج الذى اعمل عليه 

Test 10000.mdb

[عبد الفتاح كيرة]

If("[issue date]"<#01/08/2016#;consumD0817([consum]);If([issue date] >= #01/08/2016# And ([issue date] <=#30/07/2017#;consumA0817([consum]);If([issue date] >= #01/08/2017# And ([issue date] <=#30/07/2018#;consumB0817([consum]);IIf([issue date] >= #01/08/2018# And ([issue date]<=#30/07/2019#;consumC0817([consum]))))

 

[محمد احمد لطفى]

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

[عبد الفتاح كيرة]

أنشى وحدة نمطية جديدة و ضع الكود فيها

[محمد احمد لطفى]

حاولت تطبيقها و لكن لم استطع لذلك إستشرت اساتذتى هنا 
 

Consume Amount= IIf([issue date]<#01/08/2016#;consumD0817([consum]))
Consume Amount= IIf([issue date] Between #01/08/2016# And #30/07/2017#;consumA0817([consum]))
Consume Amount=IIf([issue date] Between #01/08/2017# And #30/07/2018#;consumB0817([consum]))
Consume Amount=IIf([issue date] Between #01/08/2018# And #30/07/2019#;consumC0817([consum]))

 

تم تعديل يوليو 23, 2018 بواسطه محمد احمد لطفى

[محمد احمد لطفى]

للرفع
 

[عبد الفتاح كيرة]

قمت بإنشاء مربع نص فى نموذج karabs   اسمه  txt4

فى قسم التفاصيل للنموذج

فى حدث عند التلوين وضعت الكود التالى

Private Sub تفصيل_Paint()
If [Issue Date] < #1/8/2016# Then
    Me.txt4 = ConsumD0817([Consum])
ElseIf [Issue Date] >= #1/8/2016# And [Issue Date] < #7/30/2017# Then
    Me.txt4 = ConsumA0817([Consum])
ElseIf [Issue Date] >= #1/8/2017# And [Issue Date] < #7/30/2018# Then
    Me.txt4 = ConsumB0817([Consum])
ElseIf [Issue Date] >= #1/8/2018# And [Issue Date] < #7/30/2019# Then
    Me.txt4 = Consumc0817([Consum])
End If

End Sub

أول نتيجة ظهرت هى .133

مرفق الملف

Test 10000-kera.mdb

استبدل ب  txt4    اسم عنصر التحكم الذى تريد ظهور النتيجة فيه

* قمت بتعديل الكود هنا  عدله فى الملف لنحقق شرط  Between

تم تعديل يوليو 24, 2018 بواسطه عبد الفتاح كيرة

[ابوخليل]

السلام عليكم

مشاركة مع احبتي

 ويبدوا اننا اتفقنا بالمشاركة في وقت واحد

عملت وحدة نمطية عامة

Public Function ConAmnt(a As Date, b As Double)
Dim i As Double
If a < #1/8/2016# Then ConsumD0817 (b)
If a >= #1/8/2016# And a <= #7/30/2017# Then i = ConsumA0817(b)
If a >= #1/8/2017# And a <= #7/30/2018# Then i = ConsumB0817(b)
If a >= #1/8/2018# And a <= #7/30/2019# Then i = Consumc0817(b)
ConAmnt = i
End Function

تستدعيها في الاستعلام  بهذا السطر

Consume_Amount: ConAmnt([issue date];[Consum])

ولكن لاحظ انك في كل سنة جديدة ستزيد سطرا الى الوحدة النمطية

Test2.rar

[محمد احمد لطفى]

شكرا جزيلا أساتذتى

أستاذ ابو خليل ممكن أعرف كيف تم ربط 
  a بخلية 

[issue date]

b بخلية 
 

Consum

وجزاكم الله خيراً

تم تعديل يوليو 24, 2018 بواسطه محمد احمد لطفى

[ابوخليل]

عذرا سقط سهوا 

عدل اول شرط :

If a < #1/8/2016# Then i = ConsumD0817 (b)

 

[محمد احمد لطفى]

شكرا جزيلا أساتى

المقصد
البرنامج عرف اذاى إن a هى خلية [issue date]

البرنامج عرف اذاى إن b هى خلية [Consum]

 

وجزاكم الله خيراً

[ابوخليل]

لو اعدت النظر  لتبين لك

قلنا  للوحدة النمطية  ConAmnt  اعتبري الــ a  حقل تاريخ  والـــ  b  قل رقمي 

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

وقلنا انتي  يا  ConAmnt  ستحملين قيمة  i  على شرط  :

يكون داخل القوسين حقلي تاريخ ورقمي على التوالي ، كما تم ترتيبهما 

اقتباس

البرنامج عرف اذاى إن a هى خلية [issue date]

هو لا يعرف  الخلية باسمها ولكن بنوعها

 

 

 

[Shivan Rekany]

المشاركة مع احبتي 

19 دقائق مضت, محمد احمد لطفى said:

المقصد
البرنامج عرف اذاى إن a هى خلية [issue date]

البرنامج عرف اذاى إن b هى خلية [Consum]

ھناک قلنا ان الحرف a هو حقل او مربع نصي بنوع التاريخ و ايضا قلنا ان حرف b هو حقل رقمي من نوع دبل

1 ساعه مضت, ابوخليل said:

Public Function ConAmnt(a As Date, b As Double)

وعند استدعائها يجب ان نكتب حقلين الاول بدل حرف a وهو حقل تاريخ
والثاني هو حقل رقمي
هكذا

1 ساعه مضت, ابوخليل said:

Consume_Amount: ConAmnt([issue date];[Consum])

عذراً استاذ ابوخليل لم اجد مشاركتك 😅

تم تعديل يوليو 24, 2018 بواسطه Shivan Rekany

[عبد الفتاح كيرة]

1 ساعه مضت, ابوخليل said:

Public Function ConAmnt(a As Date, b As Double)

لاحظ المتغيرين داخل القوسين للوظيفة

يتم التعويض عنهما عند استدعاء الوظيفة

1 ساعه مضت, ابوخليل said:

Consume_Amount: ConAmnt([issue date];[Consum])

لاحظ الاستدعاء

لابد من ذكر قيمتين مطابقتين لنوعى المتغيرين فى الوظيفة

ماشاء الله 

3 ردود فى نفس واحد

[محمد احمد لطفى]

جزاكم الله كل خير تم