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

[ِAbo_El_Ela]

استعلام به خانة للتاريخ اريد وضع كود لاستخراج بيانات اخر شهر كامل و لكن بداية الشهر يحددها المستخدم 

بمعني استخراج بيانات عن شهر يبدأ من 24/2/2022 حتي 23/3/2022 

او ان المستخدم يحدد اليوم الذي يريدة الذي يبدأ الشهر منه 

بمعني ان المستخدم من الممكن يجعل اول يوم في الشهر هو يوم 10

فيستخرج الاستعلام مثلا بيانات الفترة من 10/2/2022 حتي 9/3/2022 

 

[jjafferr]

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

 

عندك طريقتين لكي "تحدد اليوم الذي يريدة الذي يبدأ الشهر منه" :

1. المعيار في الاستعلام مباشرة (يجب ان تكون الكتابة نفسها في المكانين) :

.

ولما نستخدم الكلمات العربية :

.

هذا هو الكود:

Between [Please enter FROM date] And DateAdd("m",1,[Please enter FROM date])-1

.

2. في النموذج frm_Main في الحقل Date_From :

فيكون المعيار في الاستعلام :

.

Between [Forms]![frm_Main]![Date_From] And (DateAdd("m",1,[Forms]![frm_Main]![Date_From])-1)

.

 

وهذا الكود DateAdd("m",1,[Forms]![frm_Main]![Date_From]) معناه اضف :

m = شهر

1 = المدة التي نريد ان نضيفها

[Forms]![frm_Main]![Date_From] = على هذا التاريخ

 

فيعطينا شهر واحد بعد هذا التاريخ ،

ولكنك تريد شهر ناقصا يوم واحد ، لهذا السبب نضيف 1- في نهاية الامر

 

جعفر

[ِAbo_El_Ela]

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

 

[ِAbo_El_Ela]

هذا ما كنت اريده بالظبط و الحمد لله وصلت الية بفضلك استاذي jjafferr و الحمد لله 

Public Function FirstDate()
Dim year1 As Integer
Dim month1 As Integer
Dim day1 As Integer
Dim myday As Integer
Dim myDate As Date
    year1 = Year(Date)
    month1 = Month(Date)
    day1 = Day(Date)
myday = DLookup("[dayfirst]", "[firstd]")
myDate = DateSerial(year1, month1, 0)
If day1 >= myday Then
myDate = DateSerial(year1, month1, myday)
Else
myDate = DateSerial(year1, month1 - 1, myday)
End If
FirstDate = myDate
End Function

 

 

تم تعديل فبراير 26, 2022 بواسطه jjafferr
استعمال <> من القائمة ، ثم وضع الكود في نافذته

[ِAbo_El_Ela]

و رجاء استاذي jjafferr او اساتذتي الكبار من رواد المنتدي لو احد منكم لاحظ اي خطأ في الكود ياريت يوضحة حتي اتمكن من فهم الامر اكثر 

[Eng.Qassim]

السلام عليكم..

جواب استاذ جعفر مطابق تماما لسؤالك في مشاركتك الاولى

اما الوحدة النمطية فهي لن تفيدك لسببين ...ان الدالة DLookup تبحث عن سجل واحد وليس عن عدة سجلات ولهذا سيظهر لك خطا...اما بقية الكود فهو يعطيك تاريخ نهاية الشهر الذي يسبق الشهر الحالي

[ِAbo_El_Ela]

استاذي العزيز Eng.Qassim 

الفضل كل الفضل للاستاذ جعفر في هذا و في غيره مما اتعلمه منه و في الكثير من حل المشكلات لي و لغيري 

اولا ما كنت ادري بداله DateSerial لاني مبتدئ 

انا اول مرة استخدم وحدة نمطية من تصميمي 

وانا و الله كان كل قصدي اني كنت عايز اعرف رأيه فيها و هل هاتطلع ناتج مظبوط و لا لاء 

 

[ِAbo_El_Ela]

المصروفات.rar

[Eng.Qassim]

2 ساعات مضت, ABOLO2 said:

نا اول مرة استخدم وحدة نمطية من تصميمي 

الان فهمت قصدك..بارك الله فيك 

اي ان الجدول firstd يحمل قيمة واحدة فقط ...كودك يعمل بشكل جيد

حسب فهمي اخي العزيز انه طالما الاستعلام يفي بغرضك فلا تلجا الى الوحدة النمطية ..والله اعلم