تحويل دالة IF بشروط الى وحدة نمطية و تشغيلها فى استعلام

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

أريد تحويل المعاملة الى وحدة نمطية و استخدامه فى الاستعلام 
 

smahW: IIf([datex] Between #01/01/1990# And #08/30/2016#;IIf([dddw]="4";"10";"12");"0")

ان لو التاريخ ما بين 1/1/1990 حتى 30/8/2016
لو الشهر 4 يبقى النتيجة 10

لو شهر غير شهر 4 يبقى النتيجة 12

لو التاريخ بعد 30/8/2016 النتيجة 0

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

 

نسخة 2003.rar

تم تعديل نوفمبر 16, 2022 بواسطه محمد احمد لطفى

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

تم التغيير الملف الى نسخة 2003
و يوجد استعلام للتوضيح

[jjafferr]

وعليكم السلام 🙂

 

هذه هي الدالة في الوحدة النمطية :

Function Get_Results(D2 As Date, i2 As Integer) As Integer

    If D2 >= #1/1/1990# And D2 <= #1/9/2016# Then
     
        If i2 = "4" Then
            
            Get_Results = 10
    
        Else
        
            Get_Results = 12
    
        End If
    
    
    
    Else
    
        Get_Results = 0
    
    End If
    
End Function

.

وفي الاستعلام نناديها ، ونرسل لها القيمتين اللي تحتاجهم في التقييم ، هكذا:

.

ونتائج الحقلين يتساون ، ما عدا ان حقلك السابق نتيجته "نص" (لاحظ تنسيق الاكسس للحقل الى اليسار) ، بينما نتيجة حقلي "رقم" (لاحظ تنسيق الاكسس للحقل الى اليمين)

.

جعفر

2003.zip

[أبوبسمله]

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

تعديل بسيط على كود معلمى العزيز @jjafferr جزاه الله عنا كل خير 🌹

تغيير السطر التالى

If D2 >= #1/1/1990# And D2 <= #1/9/2016# Then
     
        

الى

If D2 >= #1/1/1990# And D2 < #9/1/2016# Then
     
        

تقبلوا تحياتى ومرورى

2003_1.zip

[jjafferr]

منذ ساعه, ابوبسمله said:

تعديل بسيط

ليش !!

 

13 ساعات مضت, محمد احمد لطفى said:

ان لو التاريخ ما بين 1/1/1990 حتى 30/8/2016

يعني التاريخين من ضمن الشرط 🙂

 

منذ ساعه, ابوبسمله said:

تقبلوا تحياتى ومرورى

وتحياتي اخي العزيز احمد 🙂

 

والحلين موجودين للاخ محمد يختار منهم 🙂

 

جعفر

[أبوبسمله]

16 دقائق مضت, jjafferr said:

ليش !!

حياك الله معلمى العزيز

هذا لان التاريخ فى السطر الاول قبل التعديل سيتم قرائته 9 يناير  وليس 1 سبتمبر

[jjafferr]

العفو اخوي ابوبسملة ، ما انتبهت للشهر ، كنت اعتقد قصدك تتكلم عن العلامات  =>

[أبوبسمله]

العفو منك معلمى العزيز فمنكم تعلمنا ومازلنا نتعلم جزاك الله عنا كل خير 🌹

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

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

@jjafferr

@ابوبسمله

 

تم تعديل نوفمبر 17, 2022 بواسطه محمد احمد لطفى