اذهب الي المحتوي
أوفيسنا

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

قام بنشر

أخي 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

قام بنشر

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

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

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

تحياتي

قام بنشر

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

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

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

تحياتي

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

تحياتي

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information