ادراج ايام الشهر

[محمد أبوعبدالله]

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

لدي جدول باسماء الشهور = Months
وجدول باسماء الايام = XDay

ونموذج frm_Months عند اختيار الشهر يتم ادراج بداية الشهر في حقل = StartDate ونهاية الشهر في حقل = enddate

اريد عند اختيار الشهر يتم ادراج التواريخ بين هذين الحقلين StartDate  وحقل enddate

مثال عند اختيار شهر يناير يتم ادراج في جدول الايام = XDay

01/01/2017
02/01/2017
03/01/2017
... الى اخر الشهر

ولكم جزيل الشكر

تحياتي

db11.rar

[Shivan Rekany]

10 ساعات مضت, محمد ابوعبد الله said:

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

لدي جدول باسماء الشهور = Months
وجدول باسماء الايام = XDay

ونموذج frm_Months عند اختيار الشهر يتم ادراج بداية الشهر في حقل = StartDate ونهاية الشهر في حقل = enddate

اريد عند اختيار الشهر يتم ادراج التواريخ بين هذين الحقلين StartDate  وحقل enddate

مثال عند اختيار شهر يناير يتم ادراج في جدول الايام = XDay

01/01/2017
02/01/2017
03/01/2017
... الى اخر الشهر

ولكم جزيل الشكر

تحياتي

db11.rar

اتفضل اخي محمد

استخدمت هذا الكود

Dim i As Integer
Dim sCount As Integer
sCount = DateDiff("d", Me.StartDate, Me.enddate)
DoCmd.GoToRecord , , acNewRec
For i = 0 To sCount
Me.XDate = DateAdd("d", i, Me.StartDate)
Me.IdMonth = Format(Me.XDate, "mm")
DoCmd.GoToRecord , , acNext
Next
DoCmd.Requery

 

db11.rar

[محمد أبوعبدالله]

الله يوفقك اخي الحبيب Shivan Rekany

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

دمت لاخيك

تحياتي

[محمد سعيد رشاد]

7 ساعات مضت, Shivan Rekany said:

اتفضل اخي محمد

استخدمت هذا الكود

Dim i As Integer
Dim sCount As Integer
sCount = DateDiff("d", Me.StartDate, Me.enddate)
DoCmd.GoToRecord , , acNewRec
For i = 0 To sCount
Me.XDate = DateAdd("d", i, Me.StartDate)
Me.IdMonth = Format(Me.XDate, "mm")
DoCmd.GoToRecord , , acNext
Next
DoCmd.Requery

 

db11.rar

أخى صادفتنى هذه الصوره عند تغير الشهر برجاء المساعده

12.rar

[Shivan Rekany]

11 دقائق مضت, محمد سعيد رشاد said:

أخى صادفتنى هذه الصوره عند تغير الشهر برجاء المساعده

12.rar

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

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

غير خاصيته الى التكرار مقبول راح يعمل لك كما تريد

واذا تريد ما يقبل التكرار وعند ضغط ما يظهر رسالة الخطأ

في اول الكود اكتب

ON ERROR RESUME NEXT

وجربه هل سيشتغل تمام 

ام ماذا سيجري

تم تعديل أبريل 15, 2017 بواسطه Shivan Rekany

[محمد سعيد رشاد]

رائع جزاك الله خيرا ونفعك بعلمك وعملك