مساعدة في تقرير لاظهار اعياد الميلاد خلال اسبوع من تاريخ اليوم

[Radwan0]

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

احتاج مساعدتكم في اظهار الزبائن الذي يصادف تاريخ ميلادهم في فتره اسبوع من اليوم

لنفرض تاريخ اليوم هو 28/03/2023 فيظهر لي كل الزبائن الذين اعياد ميلادهم يصادف بين التاريخ 26/03/2023 - 31/03/2023

 

مشكلتي هي ان الزبائن الذين اعياد ميلادهم تصادف على سبيل المثال في 26/03/1992 لا يظهر في التقرير

 

فكيف بالامكان جعل التاريخ 26/03/2023 - 31/03/2023 لكن يظهر كل من ولد بين 26/3-31/3

 

 

Database1.accdb

تم تعديل مارس 28, 2023 بواسطه Radwan0

[ابوخليل]

عليكم السلام

الحل من وجهة نظري بطريقتين :

الأولى آلية :

اي يظهر البيانات من دون تدخل ، ويلزم على هذا ان يعتمد اكسس على تاريخ محدد ومؤكد هو تاريخ اليوم الحالي

وهنا يمكن ان نخبره ان يظهر لنا مثلا ثلاث تواريخ قبل وثلاث او اربع بعد

ولكن لاحظ ان يتجدد بتجدد اليوم الحالي اي ما يظهره بالامس لا يظهر اليوم وهو خاص بما قبل تاريخ اليوم  لانه سوف ينقص يوما واحدا

الثانية يدوية : وهي الاتقن 

وهي ان تدخل تاريخ آخر يوم تريد عرضه  وبناء عليه تعمل على عرض ماقبله حسب الايام المطلوبة 

فوضح ما تريد حتى تمكننا من مساعدتك

 

الطريقة المتبعة في اغلب المواقع التي تنتهج التهنئة بعيد الميلاد  ..

يقوم الموقع بحصر الأعضاء يوميا والذي تاريخ ميلاده يوافق تاريخ اليوم  .. يتم ارسال تهنئة له على بريده

[Radwan0]

جزاك الله كل الخير اخي ابو خليل 

 

هل بالامكان تطبيق الطريقتين ؟ رح غلبك اعانك الله 🙏

[ابوخليل]

ابشر ولكن امنحني بعض الوقت

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

[Moosak]

مشاركة خفيفة مع العم @ابوخليل 🙂 

طريقة الحصول على تاريخ أول يوم وآخر يوم في الأسبوع بأسهل طريقة بناءا على تاريخ اليوم ()Date :

   startWeek = DateAdd("d", -(Weekday(Date) - 1), Date)
   endWeek = DateAdd("d", 6, DateAdd("d", -(Weekday(Date) - 1), Date))

ولمعرفة أول يوم وآخر يوم في الأسبوع لتاريخ معين (غير تاريخ اليوم) .. قم باستبدال Date بالتاريخ الذي تريده .

[ابوخليل]

اهلا وسهلا اخي موسى .. اضافة جميلة ومعلومة قيمة

وكما وعدت الاخ رضوان تم عمل المطلوب بالطريقتين

شرح :

حولت التاريخ ( شهر / يوم ) الى رقم  في عمود ضمن الاستعلام ..  لأن المطلب هو الشهر واليوم 

عملت وحدات نمطية صغيرة لجعلها معايير من اجل سهولة وسرعة التنفيذ

الاستعلام الاول Current Events يعمل آليا 

الاستعلام الثاني qry1 يعمل من خلال حقل في نموذج

هذه هي الوحدات وتعليق بسيط عليها

هاتين الوظيفتين تعملان كمعايير داخل الاستعلام والرقم 2 يعني الايام ، (اكبر من وأصغرمن) تاريخ اليوم'
فيمكن زيادة الرقم لزيادة العرض في الاستعلام ، فمثلا يمكن ان تجعل الرقم الموجب 7 لتعرض سبعة ايام بعد تاريخ اليوم ومثله الرقم السالب
وهذه الوظيفتين تتعامل مع تاريخ اليوم الحالي وتظهر النتيجة في الاستعلام بلا وسيط

Public Function dstePlus()
dstePlus = CInt(Format(Date, "mmdd")) + 2
End Function
Public Function dsteLoss()
dsteLoss = CInt(Format(Date, "mmdd")) - 2
End Function

هاتين الوظيفتين مثل السابقتين ولكنها تتعامل مع التاريخ المدرج في النموذج ، الأولى للتاريخ المدرج والثانية تعني اقل من التاريخ المدرج بيومين'

Public Function dstechose()
dstechose = CInt(Format(Forms!frm1!txt1.Text, "mmdd"))
End Function
Public Function dsteDown()
dsteDown = CInt(Format(Forms!frm1!txt1.Text, "mmdd")) - 2
End Function

 

Database11.rar

[kkhalifa1960]

اساتذتي الافاضل حصلت عندي برنامج جميل للاستاذ  Nart Lebzo  .

 

NA_BirthdayReminder.accdb