خالد عبد الغفار

Database3.rarDatabase3.rarالإخوة الأعزاء مشرفين وأعضاء كل عام وانتم بخير الرجاء ممن لديه الخبرةالمساعدة فى عملية السحب والإفلات فى النموذج الموجود بالمرفق حيث أرغب فى سحب الفصل والمادة معا الى الحقل 1 والحقل 2 واذا تم السحب والإفلات ينقص عدد الحصص 1 أتمنى أن تكون قد وصلت الفكرة ولكم تحياتى

اخى الفاضل / حمدى هو بيهنج معاك فى عملية التوزيع عشان انا بجرب فى نموذج 1 وواخد الكود كوبى بست فى زر الأمر عشان دى قاعدة للتجارب فقط لكن فى النموذج الرئيسى اللى أنا شغال عليه مختلف شويتين انا عامل فيه زر الأمر يقوم باستدعاء للوحده النمطيه فقط الأوفيس إن شاء الله نشوف له حل بس والله الكمبيوتر عندى فيه ويندوز سفن بس بايظ وبشتغلعلىلاب حاليا حاول مثل ما أحاول أنا إنك تعلن عن جدول بيانات الصف مثل جدول بيانات المادة ولو انى تعبت فعلا بس لم أيأس لأن تغيير الكود محتاج لحد عنده خبره كبيره شويه ودرايه بالأكواد

اخى الفاضل / حمدى التوزيع بيتم بالفعل انا جربته مرات عديده المشكلة فى عدد حصص اليوم لكل صف هذان الجزءان من الوحدة النمطية المسئولتان عن توزيع الفصل والمادة من جدول بيانات المعلم بعد ما تتم عملية التوزيع بنظرة سريعه لجدول تيتشر كلاس تلاحظ وجود تضارب بين الفصول والحصص ()Public Function MAKEIT End Function =========================================== Public Function RECORDHSA(MOALEM As Recordset, mada As Recordset, TABLE As Recordset) End Function ========================================== فياتى دور الجزء التالى لفك التضارب ()Public Function hlaltath End Function =========================================== ثم الجزء الأخير وبعد اكتشاف التضارب تبديل الحصة المتضاربة Public Function tbdelhss(tb As Recordset, tbimage As Recordset, I As Integer, B As Integer, E As Integer) End Function ============================================= طبعا المحصله لما جربت على جدول لكل المعلمين بالفصول على خطه كامله لعدد حصص المواد الفعلية للمعلمين والصفوف وجدت جدول الفصل عدد الحصص غير كامل واحيانا كتير بيكون فيه لسه تضارب عشان كده انا عملت جدول للصفوف باليوم وعدد حصص اليوم لكل صف وهذا ما احاول فيه الآن وكذلك عدد الحصص المتتالية حاول يا استاذ حمدى تسطب ويندوز 10 وتنزل اوفيس 2013 أو 2016 هترتاح فى العمل بيهم انا عملت كل برامج مدرستى عليه عامل ومش ناقص غير الجدول المدرسى يوزع المدرسين آليا لانى الى الان اعمل على هذا البرنامج بس توزيع ورقى وادخاله يدوى فى هذا البرنامج شاهد المرفق من جدول الفصول ستجد جدول 1/1 30 حصه برغم انه 32 حصه وبنظره سريعه فى نموذج اشغال ستجد انه اعطى عبير 30حصه تمام 12 عربى + 3 دين فى 1/1 ومثلهم فى 2/1 وكذلك منار 29 حصه وناريمان 3 حصص انجليزى لكن لسه فيه تضارب يوم الثلاثاء الأولى عبير 1/1عربى وناريمان 1/1 انجليزى يوم الأربعاء 3 تضارب بين ناريمان انجليزى ومنار نشاط Database9.rar نسيت ان اقول لك استاذ حمدى افتح نموذج 1 وامسح بيانات الجدول التوزيع من زر وزع وانتظر حتى يتم التوزيع ثم اضغط زر امر 7 لتبديل الحصص وفك التضارب وبعد الانتهاء اعلق نموذج 1 وافتح نموذج Class Information واضغط زرتحديث جداول الصفوف بعد التغيير فى جدول المعلمين وبعد التحديث شاهد جداول الفصول بالترتيب من تقرير class_m

الإخوة الأعزاء مشرفين وأعضاء تحياتى للجميع الرجاء ممن لديه الخبرة شرح هذه الوحدة النمطية بالتفصيل بقدر المستطاع حتى اتمكن من ادخال بعض التعديلات عليها Database9.rar

اخى الفاضل / يوسف الجداول الموجودة تفى بإ تمام المراد عمله وهى بالفعل مثل التى ارفقتها ولابد ان تعلم اخى العزيز ان التخطيط أو التصور هذا تم وضعه من البداية بالنسبة لى فى الحسبان عندما كنت اعمل بمفردى وقبل ان يبدأ استاذ حمدى بفتح هذه المشاركة وما قبلها ولكن هذه القاعدة اجتازت مرحلة التصوراوالتخطيط لأنها تعمل بالفعل ونحن نحاول ادخال بعض التعديلات عليها لتتناسب مع مدارسنا بمصر

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

انا اعمل على اوفيس 2016 ويعمل معى البرنامج جيدا ومفيش غير المشاكل اللى ذكرتها لخبطة الحصص مع الأيام والحصص المتتالية انا جربته كمان على مدرس منتدب فى احد الأيام بس دخلها فى عملية التبديل عموما انا عملت كذا محاوله وباءت بالفشل ولكنى لم استسلم احاول مرة اخرى على فصل من كل صف بس فعلا الموضوع محتاج حد خبير من مشرفى المنتدى او ممن لديهم الخبرة والدراية حتى بس يترجم لنا بعض المصطلحات فى الكود والله المستعان

تفضلDatabase9.rar

اخى الفاضل / sandanet واخى الفاضل / استاذ حمدى لم استمع رأيكما من الأمس لعلكما بخير أولا ثانيا عدلت جزء فى الوحدة النمطيه واضفت جدول بيانات الصف وجعلت عدد حصص اليوم بدلا من 0 جعلته يساوى (add) الموجود بجدول بيانات الصف وقلت اجرب على جدول كامل كده واشوف النتيجه ايه وجارى التجربة الآن على عدد 46 فصل كاملين طبعا صفوف مختلفة اذا نجح التوزيع سارفق لكم التعديل غدا بأمر الله دعواتكم

السلام عليكم جميعا تم عمل الآتى 1- اصبحت عملية التوزيع تتم فى جدول تيتشر كلاس مباشرة 2- تم اضافة حقلين الاسم المختصر للمعلم ليظهر بعد تحديث جدول الصفوف بعدالتحديث فى جدول الفصول ثم حقل تكست جعلت قيمته منتدب ممكن نغيرها بأى اسم اخريمكن مشاهدتها فى نموذج اشغال تم اضافة جدول بيانات الصف به عدد ايام كل صف وعدد حصص كل يوم يتبع هذا الصف نشاهد ما تمت اضافته اولا ثم نبدأ نتناقش Database9.rar

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

استاذ حمدى / مساء الخير شاهدت النموذج لكن الرأى السديد هو ما قلته ان الأفضل جدول بيانات الصف ليه لأنك سوف تحدد لكل يوم عدد محدد من الحصص وليكن مثلا عدد حصص يوم السبت لو عندك دراسه فيه هنقول 7 حصص مثلا معنى كده ان كل الصفوف هيسرى عليها 7 حصص من الصف الأول حتى الصف السادس يبقى احنا ما عملناش حاجه عشان من الطبيعى الصفوف من الأول الى الثالث ليها عدد حصص بيختلف فى اليوم عن عدد حصص الصفوف من الرابع الى السادس لأنهم بيدرسوا مواد اكثر منهم ( العلوم والدراسات ) فالأفضل اننا نعمل جدول للصفوف وكل صف ليه كام حصه فى اليوم زى ما حددته فى مشاركة امس وبالفعل أنا بدأت أعمله ثانيا بانسبة لمدرس منتدب أو مدرس عاوز تغلق حصه معينه ليه أنا وجدت لها حل عملت نموذج سحب وافلات بس كل حاجه فى وقتها نمشى نقطه نقطه يعنى احنا وزعنا دلوقتى آلى تمام عدد الحصص لكل مدرس تمام نبدأ نشوف الحصص المتتالية لما نتغلب على المشكلة دى نجرب البرنامج عليه ممكن نلاقى لسه عدد حصص اليوم مش ضابط معانا نضيف جدول بيانات الصف ونعلن عن متغير باسم الجدول ده وطبيعى عدد الأيام معلن عنها بانها من 1 : 5 ثم أن عدد الأيام ليها وحده نمطيه اسمها إشغال بنفس اسم الجدول أنا قلت عليها وبيعد فيها كمان حصص الإشغال وينزل اسم المدرس فى جدول أنا جربتها على نموذج السحب والإ فلات على كام مدرس كده لقيته تمام ودى مستخدمه فى جدول العرف بس انا عملتها بشكل تانى من نموذج كان لدى من عمل الأستاذه (أم عهود ) بارك الله فيها وننتظر رد الأستاذ/ sandane تقبل تحياتى عفوا على خطأ كتابة الإسم اخى sandanet

وفقك الله

عفوا نسيت من الإجهاد اقولك معنى كمان وهو مرتبط بالأيام لأن البرنامج الأصلى كان فيه يوم السبت بيبدأ من الحقل 3 هو كان بيقصد لو مفيش يوم أول يعنى السبت زود على كل حقل 16 لما تقسمهم على 2 فصل ومادة يبقوا 8 حصص ويبدأ من حقل 19 أنا حزفت السبت وزودت الخميس وبكده بدأ الحصة الأولى من حقل 3 ويمشى لغاية حقل 82 أخر ماده يوم الخميس ثانيا طوال النهار وحتى عودتى من عملى وانا ابحث عن حل لمشكلة عدد الحصص فى اليوم فهدانى تفكيرى الى ما يلى عدد حصص اليوم تختلف من صف لآخر بمعنى الصف الأول على سبيل المثال لديه يوم الأحد 7 حصص ويوم الإثنين 7 حصص وباقى أيام الأسبوع 6 حصص ومن هنا نجد ان لكل فصل من الفصول التابعة للصف الأول لها 32 حصة فى الأسبوع كما شرحتها ومثل الصف الأول الصف الثانى والثالث ولكن يختلف عنهم الصف الرابع له يوم الأحد 7 حصص والإثنين 7 حصص وباقى الأسبوع 8 حصص بحسبة بسيطة نجد ان مجموع الحصص فى الأسبوع 36 حصة بزيادة 6 حصص عن الصفوف من الأول الى الثالث لذلك وجدت انه لابد من عمل جدول مثل بيانات المادة بس هيكون ببيانات الصفوف يكون عبارة عن 3 حقول الصف اليوم عدد حصص اليوم الصف الأول 1 7 الصف الأول 2 7 الصف الأول 3 6 الصف الأول 4 6 الصف الأول 5 6 وهكذا باقى الصفوف ومن هذا الجدول نقدر ناخد عدد حصص اليوم للفصول المرتبطة بكل صف وبكده نلغى موضوع اقل من 8 ونتغلب على ضبط عدد حصص اليوم لكل فصل وفى الحالة دى نقول ان عدد حصص اليوميبقى من 1 : عدد حصص اليوم لو وصلتك الفكرة واعتقد أنها اسلم حل اعمل جدول واضيفه خصوصا وانه معرف الأيام من 1 : 5 دمت بخير أشاهد ردك فى الصباح إن أحيانى الله تقبل تحياتى

اخى الفاضل / sandane مساء الخير لاحظ باقى الفانكيشن Do While TSGELHSA = "NO" ADDHSSALWM = 0 For i = B To E Step 2 ADDHSSALWM = ADDHSSALWM + IIf(TABLE.Fields(i) = " ", 0, 1) Next i If ADDHSSALWM < 8 Then ADDHSSOK = "OK" Else ADDHSSOK = "NO" End If For i = B To E Step 2 تقريبا المقصود بها عدد الحصص لليوم لسبب لما نقول عدد الحصص من الحقول 3 : 15 يبقى عدد الحصص بداية الحقل 3 هى الحصة الأولى مثلا 1/1 والحقل 4 هو المادة عربى مثلا يبقى عدد الحصص ما بين (B)،(E) هو 7 حصص If ADDHSSALWM < 8 Then وده على قدر ما فهمت لأنه كانت فى البداية < 5 ساعتها عرفت اول ما وزع معايا كان بيوصل لغاية لحصة الخامسة فقط عشان كده جعلتها 8 بدل 5 فوزع لغاية الحصة السابعة وهى بالفعل اقل من 8 ده على قدر علمى المحدود

اخى الفاضل / sandane السلام عليكم نعم يعمل ووزع معايا الخطة تمام لكن هناك ضوابط لم يراعيها ارجو أن تساعدنا فى حلها والتغلب على بعض الصعوبات سوف اوجزها لك رويدا رويدا رقم 1 - من جدول بيانات المادة بالنظر فيه سوف تجد ان عدد الحصص الأسبوعية للمادة 3 حصص وفى خانة هل حصص المادة متتالية نعم او لا نود اضافة جزء فى الوحدة النمطية تشير الى اذا كانت هل عدد الحصص متتاليه صواب يوزع حصتين وراء بعضهما والحصة الثالثة تكون فى يوم غير هذا اليوم او يكون بينهم فرق 10 أو 15 حصة يعنى لو حقل الفصل I وحقل المادة I + 1 فى هذه الحالة (المتتالية ) يكون حصتين عبارة عن I و I + 2 والثالثة بعدهم ب 10 او 15 I زى ما قلنا طيب ولو عدد حصص المادة 2 مثل الألعاب أو 6 مثل الرياضيات أو 12 مثل العربى نضع لهم شرط بجدول بيانات المادة فى خانة الحصة الأخيرة للمادة فعلى سبيل المثال الألعاب اقصى حصة للمادة 4 والرياضيات 5 واللغة العربية مثلا 6 تقولى امال مين اللى هيدخل الحصص السابعة أو الثامنة لو وجدت المواد اللى مفيش امامها رقم فى خانة اقصى حصة للمادة وأنا معاك واحدة واحدة لو عندك استفسار ولو فى جزءغير واضح فى الجزء ده من البرنامج مش واضحه بالنسبة لك تحت امرك من البداية قبل ما أنزل باقى الجداول والنماذج واحدة واحدة ونستفيد منه كلنا تقبل تحياتى

Database9.rar هذا المرفق الذى اعمل عليه شاهد التقرير عدد حصص الصف الأول 32 حصه مطلوب تفعيل زر التوزيع فى نموذج 1 زر مسح بيانات الجدول ثم وزع ثم امر 7 بييضبط التضارب

اخى الفاضل حمدى السلام عليكم ورحمة الله كلام مضبوط وده اللى قلته فى المشاركة الأولى sandanet / أولا كلام الأخ الفاضل خصوصا وكل منا يجد صعوبة فى كتابة الكود او ترجمته فكيف سيساعدنا وهو غير ملم حتى الآن بآلية عمل البرنامج عموما انت غيرت فى الجداول والنماذج فلا بأس ولكن انا قلت لك من الأول أن عملية التوزيع معقدة ولها جزء آخر مستتر مثل علاقة المعلم بالأيام وعلاقة الصفوف بعدد الحصص يعنى المدرس خالد مثلا بيعمل كام يوم وبيدرس الصف السادس مثلا الصف ده ليه كام حصه يوم الأحد وكام حصه يوم الاثنين وهكذا سوف اضع قاعدة البيانات السابقة وبها عدد 8 فصول هى للصف الأول وسأقوم بتوزيعهم وعارف مقدما زى ما قلت لك ان الحصص ملغبطة وغير متتاليه المهم انه يوزع اولا بدون تضارب وهنا يأتى دور sandanet / استاذنا ليكمل النموذج الذى سوف يكون باسم نموذج 1 ليضع زر امر يستدعى عمل الوحدة النمطية تفضلا المرفق وشاهدا عرض وطباعة جميع جداول الصفوف من نموذج Class Information ثم شاهدا المطلوب بنموذج 1 معذرة حجم الملف كبير بقالى فتره باحاول حجم الملف كبير والله ما زلت احاول حتى الآن دون فائدة

استاذ / حمدى السلام عليكم ورحمة الله نعم أنا قلت أنى عملت تجربة على الصف الأول بمدرستى وهو يشمل 8 فصول من 1/1 حتى 8/1 وزع تمام التمام بعد ما غيرت جزء صغير فى الوحدة النمطية التى أشرت لك عليها وهى If ADDHSSALWM < 5 Then غيرتها ب If ADDHSSALWM < 8 Then وشوفت النتيجة فهمت انه وزع الحصص لكل مدرس و الوحدة النمطية المسئول عن التوزيع ده ()Public Function MAKEIT (Public Function RECORDHSA(MOALEM As Recordset, mada As Recordset, TABLE As Recordset حلو الكلام بعد ماخلص وجدت التوزيع كله تضارب يعنى ممكن 1/1 عندك وعندى ومعظم التوزيع كده شوفت كمان ملاحظه انه لم يراعى الحصص المتتالية وممكن العربى او الحساب الحصة الثامنة كمان عرفت انى لازم اكمل باقى الوحدة النمطية اللى بعدها وهى ()Public Function hlaltath (Public Function tbdelhss(TB As Recordset, tbimage As Recordset, I As Integer, B As Integer, E As Integer دول المسئولين عن فك التضارب وتبديل الحصص وبع التجربة عدة مرات وجدته أزل التضارب اللى كان موجود بس عدد الحصص فى اليوم مش تمام يعنى ممكن يسيب حصة فاضيه فى نص يوم مثلا طبعا هو وزع الخطة اللى فى جدول كل معلم يعنى خطة الصف الأول 32 حصة مثلا وهو عنده اقل من 8 يعنى ممكن 7 أو 6 الطريقة اللى انا قلت عنها بتاعة (f8) عشان تشوف بنفسك ادخل على الوحدة النمطية وظلل السطر الأول منها ()Public Function MAKEIT ثم اضغط (f8) ستجد لون التظليل الأزرق تحول الى أصفر استمر بالضغط وشاهد عمل الكود من البداية حتى النهاية بس نصيحة جربه عل فصلين الأول بكل موادهم ومدرسينهم عشان ما ياخدش معاك وقت طويل ولا تنسى استمر للنهاية بخصوص الأيام الأيام الوحدة النمطية المسئولة عن دخوها فى جدول (Ashgal) هى اسمها (Ashgall) غير فيها لو مش عاوز السبت وخليها كده Tb2.AddNew "السبت"=(Tb2.Fields(0) "الاحد" = ( Tb2.Fields(0 Tb2.Update Tb2.AddNew "الاثنين" = (Tb2.Fields(0) Tb2.Update Tb2.AddNew "الثلاثاء" = ( Tb2.Fields(0) Tb2.Update Tb2.AddNew "الاربعاء" =(Tb2.Fields(0) Tb2.Update Tb2.AddNew "الخميس" =(Tb2.Fields(0) Tb2.Update سوف تجد الأيام نزلت فى جدول اشغال تقريبا انت شايله ومسميه عندك الأيام تقريبا طبعا شغلت الوحدة النمطية بنفس الطريقة لغاية لما نشوف طريقة لاستدعاء الوحدة النمطية عن طريق زر أمر فى نموذج بقى لك ان تعلم بقية عمل الوحدة النمطية على قدر ما فهمت انها تبحث عن حصص الإشغال وتسجل اسم المعلم فى جدول اسمه (TAshgal) اخيرا ارجو ان تكون الأمور اتضحت لك والآن احاول ايجاد مخرج لعدد الحصص لليوم والصف تقبل تحياتى

اخوتى الأفاضل استاذ حمدى واستاذ sandanet تحياتى لشخصكما أولا :- هذه الوحدة النمطية خاصة بزر الأمر رقم 18 فى نموذج Class Information الموجود بالبرنامج الذى تعمل به وهو بعنوان تحديث كما تفضل بشرحها الأستاذ / على ثانيا لقد قمت بالتجربة مرات عديدة وقد توصلت الى التالى الوحدة النمطية رقم 1 بها Function TSFERTABLE خاصة بمسح البيانات الجدول لاحظ بعد كده ()Public Function MAKEIT Public Function RECORDHSA(MOALEM As Recordset, mada As Recordset, TABLE As Recordset) دول المسئولين عن التوزيع بيوزع معلم ومادة فى TABLE الجدول وهو نسخه من teacher class هو وزع معايا تجربة كده على الصف الأول بس عملت التجربة بطريقة بدائية شويه دخلت على الوحدة النمطية دى وضغت على زر f8 بدأ يمسك من المعلم الفصل ومن المادة المادة وعمل loop بس وقف لغاية الحصة الخامسة معرفتش اترجم عدد حصص اليوم ازاى اللى اعلن يا ريت يشرحها لنا اخيينا الأستاذ / على لنعرف بعدها الية عمل ()Public Function hlaltath ثم Public Function tbdelhss(tb As Recordset, tbimage As Recordset, i As Integer, B As Integer, E As Integer) الخاصة بتبديل الحصصحمدى الظابط.rar هذه قاعدتك السابقة أضفت لك فيها tb اسمه الجدول وزعت حصص حمدى ومنى بالطريقة السابقة جرب وشوف بنفسك

بالتوفيق ان شاء الله

اخبارك استاذ حمدى يا ترى وصلت لفين

أعانك الله أخى حمدى وأنا احاول أيضا فى ايجاد حلول بالبحث والسؤال فى المنتديات وخارج المنتديات وإن شاء الله نصل لحل بأمر الله تقبل تحياتى

فعلا هو الموضوع صعب لانه متشابك ولكنه ليس مستحيل انا احاول وأنت وغيرك لعل وعسى نصل لحل او يتكرم علينا احد الإخوة ممن لديهم دراية بعملية توزيع كهذه ونحن نكمل معهم بإذن الله والله المستعان

اخى الفاضل الذى أثقلنا عليه / sandanet السلام عليكم كل جدول موجود سوف تجد له حاجة على سبيل المثال جدول classes سوف تجد انه مصدر الحصص فى جدول teacher_class الأحد 1 ، الأحد2 لغاية الخميس 8 وكذلك جدول subjects سوف تجد انه مصدر الحصص m1 ، m2 حتى m8 _4 فى جدول teacher_class وكذلك جدول class_teacher طيب وجدول بيانات الفصل وبيانات المعلم لزومهم آيه جدول بيانات الفصل بيوضح ان الفصل رقم 1 اللى يعتبر 1/1 له عدد ايام 5 وامام كل يوم عدد حصص الفصل فى هذا اليوم جدول بيانات المعلم فيه ايه فيه على سبيل المثال المعلمة رقم 1 عبير ليها كام مادة بتدرسها فى كل فصل وامام المادة عدد حصص المادة اعنى أن عبير سوف تعطى 3 حصص دين فى 1/1 و12 حصة عربى فى 1/1 ومثلهم فى 2/1 انا كتبتهم يدوى فى جدول tawzee صفى على الفصل رقم 1 ستجد للمدرس رقم 1 عدد 15 رقم للمادة 3 للمادة رقم 1 اللى هى الدين + 12 رقم 2 اللى هى العربى لاحظ المرفق واكتب ملاحظاتكجدول مدرسى.rar