وحده نمطيه او كود لتجميع الكميات المباعه

[النجاشي]

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

احبتي هل توجد وحده نمطيه ونستدعيها  او كود  مثلا

للحقول بالنموذج  لكي اري كم مجموع الكميات المباعه للصنف وتكون  كالتالي 

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

قبل الشهر الحالي بشهر 

قبل الشهر الحالي بشهرين 

الي اخره كما موضح بالنموذج 

شاكرين لكم

 

الشهور.accdb

[النجاشي]

للرفع

[أيمن عبادي]

أخي أبو زاهر وجدت هذا الرابط هو مفيد جدا :

 

 

 

[النجاشي]

اخي ايمن شكرا علي مشاركتك

ولكن ليس هو مطلوبي 

تم تعديل سبتمبر 15, 2018 بواسطه ابو زاهر

[AlwaZeeR]

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

حسب ما فهمت :

تريد ان تظهر الكمية المباعة حتى تاريخ اليوم، قبل شهرين، وهكذا ... وليس بين تاريخين ،،، هناك فرق

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

Public Function ZaherMnth(M As Integer)
If Date + 1 = DateSerial(Year(Date), Month(Date) + 1, 1) Then
    ZaherMnth = DateSerial(Year(Date), Month(Date), 1) - 1
Else
    If Day(DateSerial(Year(Date), Month(Date) - M, Day(Date))) = Day(Date) Then
        ZaherMnth = DateSerial(Year(Date), Month(Date) - M, Day(Date))
    Else
        ZaherMnth = DateSerial(Year(Date), Month(Date), 1) - 1
    End If
End If
End Function

لارجاع التاريخ حسب المتغير M

ثم استخدمنا الاستدعاء التالي في الحقول المراد اظهار النتيجة فيها:

=DSum("[Alkmiah]","[Hrakatsanf]","[Atarih] <= ZaherMnth(0)")

مع ملاحظة ان صفر هو المتغير M

والصفر حتى تاريخ اليوم وواحد قبل شهر واثنان قبل شهرين وهكذا ...

جرب ووافني بالنتيجة

 

تحياتي

abu zaher.rar

[AlwaZeeR]

 

وهذا مع شرط الصنف اخي أبو زاهر

استبدل الشرط السابق بهذا الشرط

مع تعديل المتغير (0) حسب حاجتك:

=DSum("[Alkmiah]","[Hrakatsanf]","[ID_Sanf]='" & [ID_Sanf] & "'" & " And [Atarih] <= #" & ZaherMnth(0) & "#")

 

[النجاشي]

23 دقائق مضت, AlwaZeeR said:

 

وهذا مع شرط الصنف اخي أبو زاهر

استبدل الشرط السابق بهذا الشرط

مع تعديل المتغير (0) حسب حاجتك:

=DSum("[Alkmiah]","[Hrakatsanf]","[ID_Sanf]='" & [ID_Sanf] & "'" & " And [Atarih] <= #" & ZaherMnth(0) & "#")

 

بارك الله فيك وجزاك الله خير الجزاء اسال الله العظيم ان ينجيك من كل مكروه ويحفظك بحفظه الشرط ممتار اشكرك من كل قلبي ياوزيرنا الغالي 

العبقريه ما شاء الله عليك شكر كثير يالغالي

[النجاشي]

3 ساعات مضت, AlwaZeeR said:

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

حسب ما فهمت :

تريد ان تظهر الكمية المباعة حتى تاريخ اليوم، قبل شهرين، وهكذا ... وليس بين تاريخين ،،، هناك فرق

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

Public Function ZaherMnth(M As Integer)
If Date + 1 = DateSerial(Year(Date), Month(Date) + 1, 1) Then
    ZaherMnth = DateSerial(Year(Date), Month(Date), 1) - 1
Else
    If Day(DateSerial(Year(Date), Month(Date) - M, Day(Date))) = Day(Date) Then
        ZaherMnth = DateSerial(Year(Date), Month(Date) - M, Day(Date))
    Else
        ZaherMnth = DateSerial(Year(Date), Month(Date), 1) - 1
    End If
End If
End Function

لارجاع التاريخ حسب المتغير M

ثم استخدمنا الاستدعاء التالي في الحقول المراد اظهار النتيجة فيها:

=DSum("[Alkmiah]","[Hrakatsanf]","[Atarih] <= ZaherMnth(0)")

مع ملاحظة ان صفر هو المتغير M

والصفر حتى تاريخ اليوم وواحد قبل شهر واثنان قبل شهرين وهكذا ...

جرب ووافني بالنتيجة

 

تحياتي

abu zaher.rar

بارك الله فيك استاذنا الغالي نعم هو المطلوب بكله شكرا اليك

الحمدلله الذي انعم علينا بهذا المنتدي نقابل فيه الطيبين امثالك

شكر كثير تمت العمليه مايه بالمايه

الله ينور دربك

تحياتي

[AlwaZeeR]

تفضل اخي أبو زاهر

واعذرني لقلة تواجدي للانشغال في بداية العام الدراسي

ضع هذا الكود في حقل الشهر الحالي:

=DSum("[Alkmiah]","[Hrakatsanf]","[ID_Sanf]='" & [ID_Sanf] & "'" & " And [Nwaha] = 'مبيعات'   And [Atarih] >= #" & Format(DateSerial(Year(Date()),Month(Date()),1),"yyyy-mm-dd") & "#")

 

[النجاشي]

منذ ساعه, AlwaZeeR said:

تفضل اخي أبو زاهر

واعذرني لقلة تواجدي للانشغال في بداية العام الدراسي

ضع هذا الكود في حقل الشهر الحالي:

=DSum("[Alkmiah]","[Hrakatsanf]","[ID_Sanf]='" & [ID_Sanf] & "'" & " And [Nwaha] = 'مبيعات'   And [Atarih] >= #" & Format(DateSerial(Year(Date()),Month(Date()),1),"yyyy-mm-dd") & "#")

 

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

ما داعي تتاسف اخوك الصغير 

الله ينور دربك السموحه منك

 الشهر الحالي ممتاز واذا اريد الشهر قبل الحالي كيف بتكون الداله لانه لو فهمت طريقه الشهر قبل الحالي راح اطبقها بكل الحقول 

تحياتي اليك يالغالي

تحياتي اليك