اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

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

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

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

تحياتي 

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

التاريخ.jpg

قام بنشر

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

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

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

تحياتي

قام بنشر

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

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

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

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

 

  • Like 2
  • Thanks 2
قام بنشر
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

 

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

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

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

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

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

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

قبله على راسك

تحياتي اليك

  • Like 1
قام بنشر
18 دقائق مضت, ابو زاهر said:

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

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

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

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

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

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

قبله على راسك

تحياتي اليك

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

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

::

تحياتي

  • Like 1
  • Thanks 1
قام بنشر

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information