تحويل دالة If الى وحدة نمطية فى الاستعلام

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

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

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


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

datex.rar

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

للرفع

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

للرفع

[أبو إبراهيم الغامدي]

أهلا @محمد احمد لطفى

استخدم الدالة التالية

Function AddMonth(XDate As Date)
  Select Case XDate
    Case (#8/1/2016#) To (#10/19/2018#) And (Day(XDate) > 23)
      XDate = DateAdd("m", 1, XDate)
    Case (#10/20/2018#) To (#12/30/2024#) And (Day(XDate) > 19)
      XDate = DateAdd("m", 1, XDate)
  End Select
  AddMonth = Format(XDate, "yyyy/mm")
End Function

إليك التعديل: datex.accdb

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

6 ساعات مضت, أبو إبراهيم الغامدي said:

أهلا @محمد احمد لطفى

استخدم الدالة التالية

Function AddMonth(XDate As Date)
  Select Case XDate
    Case (#8/1/2016#) To (#10/19/2018#) And (Day(XDate) > 23)
      XDate = DateAdd("m", 1, XDate)
    Case (#10/20/2018#) To (#12/30/2024#) And (Day(XDate) > 19)
      XDate = DateAdd("m", 1, XDate)
  End Select
  AddMonth = Format(XDate, "yyyy/mm")
End Function

إليك التعديل: datex.accdb

أستاذى @أبو إبراهيم الغامدي
جزاك الله خيراً هل يمكن النتيجة Expr2  يكون تاريخ لانه هنا نص 
وجزاك الله خيراً

[أبو إبراهيم الغامدي]

أهلا بك @محمد احمد لطفى

أعتذر عن هذا الخطأ غير المقصود..

من المفترض أن أصرح بوظيفة تعيد بيانات تاريخ بالتحديد، وليس بيانات متنوعة..

غير السطر الأول من الوظيفة ليصير كالتالي

Function AddMonth(XDate As Date) As Date
 

 

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

2 ساعات مضت, أبو إبراهيم الغامدي said:

أهلا بك @محمد احمد لطفى

أعتذر عن هذا الخطأ غير المقصود..

من المفترض أن أصرح بوظيفة تعيد بيانات تاريخ بالتحديد، وليس بيانات متنوعة..

غير السطر الأول من الوظيفة ليصير كالتالي

Function AddMonth(XDate As Date) As Date
 

 

جزاك الله خيرا استاذى