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

زر التوزيع ده خاص بالتحديث بيحدث البيانات من جدول تيتشر كلاس لبيانات المادة وبيانات المعلم فسيادتك عاوزه يوزع حصص ازاى شرح هذا الكود موجود فى المشاركه السابقة وقلت لك ان الذى يوزع فصل ومادة للمعلم هو الوحدة النمطيه 1 وقلت لك هى مقسمه كالتالى الجزء الأول ()Public Function TSFERTABLE خاص بمسح البيانات من جدول تيتشر كلاس ثم الجزء الثانى ()Public Function MAKEIT مسئول عن توزيع الفصل والمادة ()Public Function hlaltath مسئول عن حل التضارب ثم Public Function tbdelhss(tb As Recordset, tbimage As Recordset, I As Integer, B As Integer, E As Integer) تبديل الحصص وكل ده موجود فى المشاركه السابقه العمليه مش صعبه استاذ حمدى اقرأ المشاركه السابقه وانظر الى النماذج مرة اخرى ستجد ماقلته لك وستجد ايضا من خلال محاولاتى اين الخلل كما ذكرته فى عدد حصص اليوم للصف الواحد وكيف نتعامل مع الحصص المتتالية دى العقبات غير كده البرنامج شغال عموما أخ حمدى انا فى انتظار ان تسمح الظروف ويجمعنى الوقت بصديق لى مبرمج اوراكل ليصحح لى أو بمعنى أدق أن يعدل لى الوحدة النمطية لتحقق التوزيع كما ينبغى

اشكر الجميع تمت عملية السحب والإفلات بصورة أخرى

يا اخواننا الكرام فى المنتدى هل المطلوب غير واضح

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

وانت بالصحة والسلامة استاذ حمدى

للرفع

بارك الله فيك استاذ على وكل عام وانتم بكل خير

للرفع

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

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 تقولى امال مين اللى هيدخل الحصص السابعة أو الثامنة لو وجدت المواد اللى مفيش امامها رقم فى خانة اقصى حصة للمادة وأنا معاك واحدة واحدة لو عندك استفسار ولو فى جزءغير واضح فى الجزء ده من البرنامج مش واضحه بالنسبة لك تحت امرك من البداية قبل ما أنزل باقى الجداول والنماذج واحدة واحدة ونستفيد منه كلنا تقبل تحياتى