حمدى الظابط

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

واضح ان حضرتك بتستخدم نسخة برنامج فك ضغط حديثة لم تفتح عند معظم الاعضاء فيصعب الرد على الموضوع قبرجاء تغير النسخة وكل عام وحضرتك بخير

للرفع

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

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

الراقى استاذ خالد شكرا لك اولا الفكرة جميلة ان تحدد عدد الحصص لايام الاسبوع ثانيا وضعت بيانات خاصتى وعند تجربة التوزيع بيتم تهنيج البرنامج ولم يتم التوزيع علما بان تم العمل ايضا على بياناتك حدث ايضا تهنيك لبرنامج ارجوا تشعيل البرنامج فى جهاز اخر ربما يكون هناك خلال فى الاكواد علما بانى اعمل على افيس 2007 لك تحياتى Database9_Backup.rar

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

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

استاذ ى الراقى sandanet اولا يجب تحديد المواد الدراسية للمراحل المختلفة لانها تحتلف من مرحله الى مرحلة وعدد حصصها ثانيا تحديد المدرس ومادته وعدد الحصص الاسبوعية واحيانا لظروف تخص المدرس عدم اعطائه الحصص الاولى او الاخيرة ثالثا اذا كانت الحصص متتالية اى حصتين بعدهم على الاقل حصة فارغة او حصتين مع مراعات ان تكون الحصص الاساسية لاتزيد عن 5 او 6 حصص على الاكثر فى اليوم

المحترم استاذ خالد عبد الغفار لم افلح فى عملية التوزيع التلقائى سواء بزر امر او عن طريق f8 علما بانى عملت النصاب القانونى للحصص والمواد ولكن هناك بعض الالغاز التى يجب ان نفكها - ماذا لو بعض حصص ايام الاسبوع اقل من 8 حصص والبعض الاخر 8 حصص - كما نريد ان نعطى نصاب الحصص اليومية لكل مدرس يوميا بمعنى ان لايزيد كل مدرس عن 4 او 5 حصص يوميا - كذلك الحصص المتتالية يجب ان يكو حصتان بعدهم حصه فارغة سوف اصمم لك نموذج يعطى عدد حصص اليوم لكل مدرس وكذلك عدد حصص اليوم لكل مرحلة حتى يتم التحكم فى توزيع عدد الحصص اليومية والاسبوعية اشكرك على المساعدة واتمنى مشاركة الاخوة الافاضل معنا للانتهاء من هذا العمل الذى يحتاجة الجميع على اكمل وجه

استاذ خالد حضرتك بتقول هو وزع معايا تجربة كده على الصف الأول بس عملت التجربة بطريقة بدائية شويه دخلت على الوحدة النمطية دى وضغت على زر f8 بدأ يمسك من المعلم الفصل ومن المادة المادة وعمل loop بس وقف لغاية الحصة الخامسة ------------------------------------- انا جربت وحاولت وعدلت لم اصل لعملية التوزيع الالى ممكن اعرف ازاى اضغط على f8 لتشعيل الوحدة النمطية وحاول تمسح البيانات ودخلها تانى مع تغير عدد الحصص مع العلم انا لاحظت ان البرنامج موزع يوم السبت مع العلم ان يوم السبت غير موجود بالجدول ايام الاسبوع جرب وقولى النتيجة ولك تحياتى

للرفع

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

الفاضل استاذ sandanet اشكرك على الشرح وبما ان حضرتك من المهتمين بالبرنامج منذ ان عرضه فأتمنى ان ننهيه سويا وانا ضفت عليه الكثير من الامكانيات وقد حصلت على هذا الكود بعد تعب وعناء ليتحقق التوزيع التلقائى ولكن ينقصه بعض الشئ وهو ان يحسب الحصص المتتالية حصتين كما اريد ان يوزع عدد حصص يومية محددة لكل معلم بمعنى ان نصاب المدرس 25 حصة تنقسم على 5 ايام فيكون نصيب كل يوم 5 حتى لا يتم توزيع 6 او 7 حصص فى اليوم وجارى التجربة على الكود اتمنى ان انجح فى ذلك شكرا لك ولكل من يساهم فى هذا المشروع

السلام عليكم ارجوا من عباقرة المنتدة شرح لى هذا الكود بالتفصيل ولكم كل الشكر والتقدير والاحترام Dim i, sf, mrhla, sfofco, sfof(20) As String Dim tb1 As Recordset Dim tb2 As Recordset Dim tb3 As Recordset Dim tb4 As Recordset Set tb1 = CurrentDb.OpenRecordset("teacher class", dbOpenDynaset) Set tb2 = CurrentDb.OpenRecordset("الفصل", dbOpenDynaset) Set tb3 = CurrentDb.OpenRecordset("بيانات المادة", dbOpenDynaset) Set tb4 = CurrentDb.OpenRecordset("بيانات المعلم", dbOpenDynaset) If tb3.RecordCount <> 0 Then tb3.MoveFirst Do While tb3.EOF = False tb3.Delete tb3.MoveNext Loop End If If tb4.RecordCount <> 0 Then tb4.MoveFirst Do While tb4.EOF = False tb4.Delete tb4.MoveNext Loop End If tb2.MoveFirst sfofco = 1 sfof(1) = tb2![الصف] mrhla = tb2![المرحلة] Do While tb2.EOF = False If mrhla <> tb2![المرحلة] Then sfofco = sfofco + 1 sfof(sfofco) = tb2![الصف] mrhla = tb2![المرحلة] End If tb2.MoveNext Loop '_____________________ For sf = 1 To sfofco tb1.MoveFirst Do While tb1.EOF = False For i = 3 To 100 Step 2 If tb1.Fields(i) = sfof(sf) Then tb2.FindFirst "[الصف] = " & "'" & sfof(sf) & "'" tb3.FindFirst "[الصف]=" & tb2![المرحلة] & " and [المادة] = '" & tb1.Fields(i + 1) & "'" If tb3.NoMatch = True Then tb3.AddNew tb3![الصف] = tb2![المرحلة] tb3![المادة] = tb1.Fields(i + 1) tb3![عدد الحصص] = 1 tb3.Update Else tb3.Edit tb3![عدد الحصص] = tb3![عدد الحصص] + 1 tb3.Update End If End If Next i tb1.MoveNext Loop Next sf '_____________________ tb1.MoveFirst Do While tb1.EOF = False For i = 3 To 100 Step 2 tb4.FindFirst "[الفصل]='" & tb1.Fields(i) & "'" & " and [المادة] = '" & tb1.Fields(i + 1) & "'" & "and [رقم] =" & tb1.Fields(0) If tb4.NoMatch = True And IsNull(tb1.Fields(i)) = False Then tb4.AddNew tb4![رقم] = tb1.Fields(0) tb4![اسم المعلم] = tb1.Fields(1) tb4![الفصل] = tb1.Fields(i) tb4![المادة] = tb1.Fields(i + 1) tb2.FindFirst "[الصف]='" & tb1.Fields(i) & "'" tb4![الصف] = tb2![المرحلة] tb4.Update Else End If Next i tb1.MoveNext Loop End Function

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

للرفع

عندك حق اشكرك تم التعديل

السلام عليكم فى نموذج msq يوجد خطأ فى بحث باسم الفصل ولم اعرف السبب ارجوا المساعدة مع تعريف السبب ولسيادتكم جزيل الشكر ‫‫جدول.rar

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

الراقى استاذ عبد الغفار بخصوص ما تفضل به الفاضل استاذ sandanet بخصوص يوم الاحد الحصة الاولى تم التجربة وكانت النتيجة اظهار رسالة تقول ان هذه الحصة مشغولة لدى استاذ فلان واسم المادة ومحاولة ومجهود ومساعدة يشكر عليه وبخصوص ان نكثف مجهودنا على ان يكون التوزيع اليا انا ايد هذه الفكرة بشدة ولكن يجب ان يكون البرنامج متكامل به توزيع يدوى واليا لمن يرغب ان يختار احدهما واعتقد ان هناك كود الحلقة الدورانية كما حضرتك ذكرت يكشف تعارض الحصص فى التوزيع اليدوى اول باول للنموذج msq ومازلنا فى انتظار خبراء الاكواد لايجاد وحدة للتوزيع الالى تحياتى لكم السادة الافاضل عبقرة المنتدى نحن فى انتظار كود يوزع الحصص اليا شروط التوزيع الالى فى حالة لو الحصص متتالية ( حصتين متتاليتين ) حقل نعم ولا - فى حالة تفرغ المدرس يوم كامل فى الاسبوع للاشراف - فى حالة تفرغ المدرس حصص محددة (محجوزة) سواء اول اليوم او اخره فى انتظار ابدعاتكم حتى يكتمل العمل والافادة للجميع الجدول.rar

جارى التجربة وسوف اوفيك بالنتيجة واشكرك على مشاركتك الفعالة ولك تحياتى

فى نموذج msq يتم وضع الجدول يدويى اريد عند ادخال الحصة الاولى مثلا يوم الاحد للاستاذ حمدى مادة عربى لفصل 2/1 ب ثم تم ادخال مادة الدرسات للاستاذة منى فى نفس الحصة لنفس الفصل يعطى لى رسالة تقول (هذه الحصة مشغولة بالفعل ) او (رسالة تقول هناك تعارض ) وينطبق هذا على كل حقول النموذج ولكم الشكر جدول 1.rar

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

الاستاذ خالد عبد الغفار والاستاذ sandanet تم حل المشكلة بفضل الله تعالى وبفضل مشاركتكم الفعالة والسؤال هنا للقائمين على اداراة المنتدى الراقى باعضائة هل انهى العمل كله فى هذا الموضوع حتى يستفاد الجميع ولا افتح موضوع جديد لاجاد حلول افضل لبعض التسألات فى انتظار الرد واشكر الجميع على التفاعل والمشاركة وللجميع تحياتى