النتايج غير صحيحه اذا كان التاريخ بالجهاز هجري

[النجاشي]

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

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

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

المطلوب اريد تاريخ الجهاز عربي والبرنامج ميلادي ويظهر لي نتايج صحيحه

تحياتي 

اعتماد تاريخ البرنامج.accdb

[النجاشي]

للرفع

[النجاشي]

للرفع

[النجاشي]

احبتي تبين المشكله بالكود  

Select Case MbAll
Case 1
T = DateAdd("m", "-12", Date)
Case 2
T = DateAdd("m", "-6", Date)
Case 3
T = DateAdd("m", "-3", Date)
Case 4
T = DateAdd("m", "-1", Date)
End Select
total.Visible = True

Me.TB.Requery
Call dom_zr5_Click
End Sub

المطلوب داله جديده  تحويل الديت الي في الويندوز من هجري اوعبري الي ميلادي 

تحياتي

[AlwaZeeR]

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

خلينا نجرب نغير تنسيق التاريخ 

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

Select Case MbAll
Case 1
T = Format(DateAdd("m", -12, Date), "yyyy-mm-dd")
Case 2
T = Format(DateAdd("m", -6, Date), "yyyy-mm-dd")
Case 3
T = Format(DateAdd("m", -3, Date), "yyyy-mm-dd")
Case 4
T = Format(DateAdd("m", -1, Date), "yyyy-mm-dd")
End Select

 

[النجاشي]

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

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

خلينا نجرب نغير تنسيق التاريخ 

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

Select Case MbAll
Case 1
T = Format(DateAdd("m", -12, Date), "yyyy-mm-dd")
Case 2
T = Format(DateAdd("m", -6, Date), "yyyy-mm-dd")
Case 3
T = Format(DateAdd("m", -3, Date), "yyyy-mm-dd")
Case 4
T = Format(DateAdd("m", -1, Date), "yyyy-mm-dd")
End Select

 

الله ينور دربك ياوزيرنا الف الف شكرا اليك

زاداك الله علما واعطاك الصحه والعافيه والعمر المديد وحفظك الله من اي مكروه

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

لي ثلاث ايام احاول ابحث عن حل دون جدوي

فجعله الله بميزان حسناتك 

هو المطلوب بكله 

قبله على راسك

تحياتي اليك

[AlwaZeeR]

18 دقائق مضت, ابو زاهر said:

الله ينور دربك ياوزيرنا الف الف شكرا اليك

زاداك الله علما واعطاك الصحه والعافيه والعمر المديد وحفظك الله من اي مكروه

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

لي ثلاث ايام احاول ابحث عن حل دون جدوي

فجعله الله بميزان حسناتك 

هو المطلوب بكله 

قبله على راسك

تحياتي اليك

دعوات من انسان طيب القلب مثلك ،،، بالدنيا وما فيها

ولك بالمثل ولعامة المسلمين

::

تحياتي

[النجاشي]

اقل واجب علينا يالغالي @AlwaZeeR

اسال الله ان ييسر امورنا وامور جميع المسلمين 

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