مازال اخي حسام رقم المندوب رقم ! ومازالت مشكلة لو تم اضافة مندوب جديد او حذف اخر >> لابد من التدخل في الكود
عالعموم محاولتك كانت مفتاح حل لنا مشكورا
قلت سابقا وساقول مرار >> تعجبني مشاركاتك !
انا جالس احاول افهم شغل الكبار ! لي عودة بعد فهم خوارزميتكم!
تحياتي
اخي ابو عارف
وصلت الفكرة
وهذا تحسين للفكرة
Set rs = CurrentDb.OpenRecordset("Delegates")
rs.Move DCount("*", "Oprations") Mod DCount("*", "Delegates")
Delegate = rs!Delegate
Set rs = Nothing
وهناك ملاحظة ولنتعلم من افكارك : لو تم تحديث العميل لاحقا سيتم الجدولة بشكل غير صحيح !
وفكرة باقي القسمة جميلة حيث يمكن تطبيقها على مثالي بالمشاركة رقم 7 وكالتالي :
1. يتم وضع مصدر السرد استعلام عادي من عمودي رقم المندوب واسمه
2. تصبح القيمة الافتراضية =
=[combo].[itemdata](DCount("*";"العمليات") Mod DCount("*";"المندوبين"))
تحياتي
اقصد لو تم وضع رقم المندوب ترقيم تلقائي بجدول المندوبين ! ثم اصبح التسلسل 1,2,3,4,7 لانه مثلا تم حذف التسلسل 5,6 !
تحياتي