محمد أبوعبدالله قام بنشر أبريل 14, 2017 قام بنشر أبريل 14, 2017 بسم الله الرحمن الرحيم اخواني الكرام السلام عليكم ورحمة الله وبركاته لدي جدول باسماء الشهور = Months وجدول باسماء الايام = XDay ونموذج frm_Months عند اختيار الشهر يتم ادراج بداية الشهر في حقل = StartDate ونهاية الشهر في حقل = enddate اريد عند اختيار الشهر يتم ادراج التواريخ بين هذين الحقلين StartDate وحقل enddate مثال عند اختيار شهر يناير يتم ادراج في جدول الايام = XDay 01/01/2017 02/01/2017 03/01/2017 ... الى اخر الشهر ولكم جزيل الشكر تحياتي db11.rar
Shivan Rekany قام بنشر أبريل 15, 2017 قام بنشر أبريل 15, 2017 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 5
محمد أبوعبدالله قام بنشر أبريل 15, 2017 الكاتب قام بنشر أبريل 15, 2017 الله يوفقك اخي الحبيب Shivan Rekany وجزاك الله خيرا دمت لاخيك تحياتي 1
محمد سعيد رشاد قام بنشر أبريل 15, 2017 قام بنشر أبريل 15, 2017 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 قام بنشر أبريل 15, 2017 قام بنشر أبريل 15, 2017 (معدل) 11 دقائق مضت, محمد سعيد رشاد said: أخى صادفتنى هذه الصوره عند تغير الشهر برجاء المساعده 12.rar عفوا انت اختارت شهر مرتين اي انت خذت الايام شهر وبعدين خذت مرة اخرى بنفس الشهر وهذا ما يقبل لان في جدول ئيكس دَي به حقل باسم ئيكس داتا وما يقبل التكرار غير خاصيته الى التكرار مقبول راح يعمل لك كما تريد واذا تريد ما يقبل التكرار وعند ضغط ما يظهر رسالة الخطأ في اول الكود اكتب ON ERROR RESUME NEXT وجربه هل سيشتغل تمام ام ماذا سيجري تم تعديل أبريل 15, 2017 بواسطه Shivan Rekany 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.