اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

توزيع تلقائي للمندوبين على العمليات بالترتيب


keeper4911

الردود الموصى بها

الاخوة الاعزاء انا أستفيد كثيرا من هذا المنتدى الرائع عندي مشروع برنامج و لكنه يتوقف على امكانية توزيع المندوبين تلقائيا على العمليات بالترتيب مرفق نموذج ارجو المساعدة

توزيع العمليات.rar

رابط هذا التعليق
شارك

أخي ebrahim1400 شكرا على الاهتمام انا اريد ان يقوم البرنامج عند انشاء عملية جديدة ان يضع تلقائيا في خانة المندوب الموجودة في جدول العمليات ولكن بالترتيب

مثلا عندنا 3 مندوبين 1 - 2 - 3 فعند انشاء عملية A تكون خانة المندوب تلقائيا 1 - و عند انشاء عملية B يكون المندوب 2 و عند C يكون 3 و عند D يبدء من 1 مرة أخرا 

أرجو ان أكون أستطعت توصيل الفكرة

أستاذ رمهان شكرا على الأهتمام اعتقد ان الموضوع مختلف عن طلبي 

انا اريد ان يقوم البرنامج عند انشاء عملية جديدة ان يضع تلقائيا في خانة المندوب الموجودة في جدول العمليات ولكن بالترتيب

مثلا عندنا 3 مندوبين 1 - 2 - 3 فعند انشاء عملية A تكون خانة المندوب تلقائيا 1 - و عند انشاء عملية B يكون المندوب 2 و عند C يكون 3 و عند D يبدء من 1 مرة أخرى 

 

رابط هذا التعليق
شارك

اخي العزيز هذه محاولة مني للحل حسب فهمي للموضوع

توزيع العمليات1

 

جميل ماقمت به اخينا حسام

فكرتك رائعة ولكن نلاحظ:

1. قمت بتعديل نوع بيانات حقل رقم المندوب الى رقم بدلا من رقم تلقائي واتوقع ليناسب فكرة الحل

2. لو كان هناك زيادة اونقصان للمندوبين ضروري العودة للكود والتعديل

اخي keeper 

ساحاول في اقرب فرصه 

تحياتي

رابط هذا التعليق
شارك

رابط هذا التعليق
شارك

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

ماشاء الله حلول رائعة

و هذا اضافة بسيطة و نوع آخر من حلول

ملا حظة:

تم استبدال الملف  على الآخر المعدل و ذالك للمنع خطاء عند حذف المندوب

 

Pages.zip

توزيع العمليات2.zip

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

شكر لك اخي رمهان

صحيح ما قلت بشان تغيير الكود وقد تم التعديل

ارجو ان ينال اعجابك

توزيع العمليات1.rar

مازال اخي حسام رقم المندوب رقم ! ومازالت مشكلة لو تم اضافة مندوب جديد او حذف اخر >> لابد من التدخل في الكود

عالعموم محاولتك كانت مفتاح حل لنا مشكورا

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

ماشاء الله حلول رائعة

و هذا اضافة بسيطة و نوع آخر من حلول

ملا حظة:

تم استبدال الملف  على الآخر المعدل و ذالك للمنع خطاء عند حذف المندوب

 

Pages.zip

توزيع العمليات2.zip

قلت سابقا وساقول مرار >> تعجبني مشاركاتك !

انا جالس احاول افهم شغل الكبار ! لي عودة بعد فهم خوارزميتكم!

تحياتي

رابط هذا التعليق
شارك

اخ رمهان
 اخ ابو عارف

الشكر الجزيل لكم وهذا لاشي مقابل ما عندكم

يشرفني تقييمكم

اخي رمهان لقد تم حل مشكلة عدد المندوبين

جرب ان تضيف او تحذف

نعم اذا كان قصدك انه لا يبدا بداية جديدة فهذا صحيح

ولكن طبيعة العمل ان لا احذف البيانات السابقة

رابط هذا التعليق
شارك

شكر لك اخي رمهان

صحيح ما قلت بشان تغيير الكود وقد تم التعديل

ارجو ان ينال اعجابك

توزيع العمليات1.rar

مازال اخي حسام رقم المندوب رقم ! ومازالت مشكلة لو تم اضافة مندوب جديد او حذف اخر >> لابد من التدخل في الكود

عالعموم محاولتك كانت مفتاح حل لنا مشكورا

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

ماشاء الله حلول رائعة

و هذا اضافة بسيطة و نوع آخر من حلول

ملا حظة:

تم استبدال الملف  على الآخر المعدل و ذالك للمنع خطاء عند حذف المندوب

 

Pages.zip

توزيع العمليات2.zip

قلت سابقا وساقول مرار >> تعجبني مشاركاتك !

انا جالس احاول افهم شغل الكبار ! لي عودة بعد فهم خوارزميتكم!

تحياتي

اخي ابو عارف

وصلت الفكرة

وهذا تحسين للفكرة

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 ! 

تحياتي

رابط هذا التعليق
شارك

صحيح اخ رمهان ماقلته بسأن تغيير المندوبين

وطريقتك ممتازة جدا

 

 

 

مشكور اخي حسام

وصدقني نحن نتبادل الافكار وفي نفس الوقت مرجع لنا وارشيف نعود له وقت الحاجة وكلها بركاتكم !

اخي ابا عارف 

مارأيك بهذا السطر ونفس الحدث بعد التحديث للعميل وعلى نفس مثالك :

Delegate = CurrentDb.OpenRecordset("Delegates").GetRows(CurrentDb.OpenRecordset("Delegates").RecordCount)(1, DCount("*", "Oprations") Mod DCount("*", "Delegates"))

تحياتي

تم تعديل بواسطه رمهان
  • Like 1
رابط هذا التعليق
شارك

صحيح اخ رمهان ماقلته بسأن تغيير المندوبين

وطريقتك ممتازة جدا

 

 

 

مشكور اخي حسام

وصدقني نحن نتبادل الافكار وفي نفس الوقت مرجع لنا وارشيف نعود له وقت الحاجة وكلها بركاتكم !

اخي ابا عارف

مارأيك بهذا السطر ونفس الحدث بعد التحديث للعميل وعلى نفس مثالك :

Delegate = CurrentDb.OpenRecordset("Delegates").GetRows(CurrentDb.OpenRecordset("Delegates").RecordCount)(1, DCount("*", "Oprations") Mod DCount("*", "Delegates"))

تحياتي

مــــــاشاء الله.... أحلى سطر من احلى مهندس حسب ما توقعت و رأيي رأي الصورة المرفقة

 

HR.jpg

رابط هذا التعليق
شارك

اخي استاذ ابو عارف

اتوقع انك تقصد ابو غازي صديقنا واخينا الظل الغامض من المنتدى الشقيق مملكة الاكسس ! ولا اعلم هل هو احد الاعضاء هنا ام لا ؟

واشكرك على مشاركتك التي استفدنا منها جميعا وعلى كلامك الطيب ياطيب

تحياتي

رابط هذا التعليق
شارك

اخي استاذ ابو عارف

اتوقع انك تقصد ابو غازي صديقنا واخينا الظل الغامض من المنتدى الشقيق مملكة الاكسس ! ولا اعلم هل هو احد الاعضاء هنا ام لا ؟

واشكرك على مشاركتك التي استفدنا منها جميعا وعلى كلامك الطيب ياطيب

تحياتي

 بالضبط كما تفضلت ، الله يرزقك بالولد  لنسميه على إسم ابن اخينا الظل الغامض (غازي)  و نسميك ابو غازي إن شاء الله

تحياتي

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information