استاذي العزيز wael_rafat
شكرا لك وانا بالخدمة والشرح سيكون اختيار ثلاثة عناصر لكل يوم عدا يومي السبت والاحد فيتم اختيار عنصرين
Num = 1
بما انه عدد الايام اكبر بكثر من عدد العناصر لذا نضع عداد لمعرفة عدد العناصر التي تم اختيارها ونخبر الكود بالعودة للعنصر الاول عند انتهاء عدد العناصر والذي سيتبين لاحقا
For j = 1 To XCount2
هذا عداد لعدد الايام
If Weekday(Rs2!XDate, 7) > 2 Then
k = 3
Else
k = 2
End If
هذا الكود لاختبار اليوم هل هو عطلة ام لا اذا كان عطلة يختار عنصرين واذا لا يختار ثلاثة
فالكود اعلاه يعيد اليوم الى رقم فاذا كان واحد فاليوم هو السبت واذا اثنين فاليوم هو الاحد وهكذا
For i = 1 To k
Rs2.Edit
Rs2(i) = Rs!XNo
Rs2.Update
هذا الكود خاص باختيار العناصر لكل يوم والتي تم تحديد عددها سابقا
Num = Num + 1
If Num > XCount Then
Rs.MoveFirst
Num = 1
Else
Rs.MoveNext
End If
هذا الكود هو الذي سيختبر هل تم شمول جميع العناصر والعودة للعنصر الاول من جديد ام لا
فالسطر الاول يزيد واحد في كل مرة يتم اختيار عنصر ويجري الاختبار هل تم الوصول لاخر عنصر اما لا
اذا لا سيستمر العداد ويختار العنصر التالي واذا نعم سيختار العنصر الاول ويعيد العداد الى حالته الاولى ليستمر العد من جديد
وتستمر العملية لحين انتهاء عدد الايام او الفترة الزمنية المطلوبة
بالنسبة لتحديد عدد العناصر من مجموعة معينة او تحديد ايام عطل غير يومي السبت والاحد
الافضل وضع مربع اختيار لاختيار العناصر والعطل كما هو الحال في المرفق الاخير لاستاذ Tarekfathallah
وعذرا للتقصير والاطالة