yms12 قام بنشر سبتمبر 9, 2015 قام بنشر سبتمبر 9, 2015 السلام عليكم ورحنة الله وبركاتة مرقق مل ارجو التعديل علية يوجد جدول العملاء وجدول الموظفين في النموذج اربد ان اختار عدد معين من الموظفين وبعد ذلك يتم توزيع العملاء على الموظفين الذين تم احتبارهم بحيث يكون السجالاول للموظف الاول والسجل التالي للموظف الثاني وهكذا حتى يتم توزيع جميع العملاء على الموظفين ارجو ان اكون شرح بوضوح test.rar
رمهان قام بنشر سبتمبر 9, 2015 قام بنشر سبتمبر 9, 2015 اولا اتشرف اخي yms12 ان ارد على استفسارك ثانيا المرفق معطوب وحبذا اعادة ارفاقه تحياتي
yms12 قام بنشر سبتمبر 10, 2015 الكاتب قام بنشر سبتمبر 10, 2015 وانا لى كل الشرف ان يكون المبدع الاستاذ رمهان هو من يرد على استفساري اعتذر عن المرفق وحاولت ان ارفقة اكثر من مره ولكن من جهاز العمل ويطيني رسالة لم يتم الرفع بشكل صحيح سوف ارفق الملف ان شاء الله بعد عودتي الى المنزل مع تحياتي
yms12 قام بنشر سبتمبر 11, 2015 الكاتب قام بنشر سبتمبر 11, 2015 اخي رمهان لقد تم رفع الملف تحياتي test.rar
رمهان قام بنشر سبتمبر 11, 2015 قام بنشر سبتمبر 11, 2015 (معدل) تفضل عزيزي لعله ماطلبت Private Sub أمر2_Click() Set rs = Me.frm_sub_العمظف.Form.RecordsetClone: rs.MoveFirst Do While Not rs.EOF rs.Edit rs!id_uder = Me.frm_sub_العمظف.Form!id_uder.ItemData(x) rs.Update rs.MoveNext x = IIf(x = Me.frm_sub_العمظف.Form!id_uder.ListCount - 1, 0, x + 1) Loop End Sub تنبيه : لم استخدم النموذج الفرعي للموظفين فيمكن حذفه ! تعاملت مع مربع السرد! تحياتي تم تعديل سبتمبر 11, 2015 بواسطه رمهان
yms12 قام بنشر سبتمبر 12, 2015 الكاتب قام بنشر سبتمبر 12, 2015 (معدل) اخي الفاضل بارك الله فيك وجزاك الجنة ممناز جدا ولكن حضرتك بنيت الفكرة على اساس توزيع العملاء على جميع الموظفين ولكن في الواقع اني اريد اختار عدد محدد من الموظين من الممكن اختار 3 موظفين فقط وفي المرة القادمة اختار 5 مع تحياتي تم تعديل سبتمبر 12, 2015 بواسطه yms12
رمهان قام بنشر سبتمبر 12, 2015 قام بنشر سبتمبر 12, 2015 (معدل) تفضل عزيزي وبحل مرن : حسب ماتفلتر موظف او عملاء. مثلا لا تريد اعادة جدول لعملاء: يمكن فلترة العملاء حسب القيم الخالية! ممكن عملاء محديين ! وكذلك الموظفين! جرب ان تفلتر 4 عملاء وتفلتر 2 موظفين ! Private Sub أمر2_Click() Set rs_cust = Me.frm_sub_العمظف.Form.RecordsetClone: rs_cust.MoveFirst Set rs_emp = Me.fsub_الموظفين.Form.RecordsetClone: rs_emp.MoveFirst Do While Not rs_cust.EOF rs_cust.Edit If rs_emp.EOF Then rs_emp.MoveFirst rs_cust!id_uder = rs_emp!id rs_cust.Update rs_cust.MoveNext: rs_emp.MoveNext Loop End Sub بالتوفيق واجمل تحية تم تعديل سبتمبر 12, 2015 بواسطه رمهان 1
yms12 قام بنشر سبتمبر 12, 2015 الكاتب قام بنشر سبتمبر 12, 2015 والله يعجز السان عن الشكر لا اجد ان اقول لك جزاك الله خيرا ورزقك كل خير
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.