توزيع طلاب

[khasem]

السلام عليكم اخوتي الكرام 

 

كيف يمكن توزيع جلوس الطلاب ضمن الشروط التالية:

1- المقعد الواحد يجلس فيه طالبان كل طالب من صف

2- القاعة الواحدة تحتوي على 17 مقعد اي ممكن ان تضم 34 طالب  ( تتكون القاعة من قطاعين )

3- ان لايجلس طالبان من صفين بينهما مادة مشتركة ( اي يدرسون نفس المادة )  

4- يمكن أن تستوعب قاعة الاختبار كحد أقصى 30 طالب

5-ترتيب جلوس طلاب الصف الواحد خلف بعضهم وشرط أن لا يتجاور طالبان من نفس الصف

توزيع.mdb

[عفرنس]

في ٢٥‏/٥‏/٢٠٢٠ at 21:46, khasem said:

السلام عليكم اخوتي الكرام 

 

كيف يمكن توزيع جلوس الطلاب ضمن الشروط التالية:

1- المقعد الواحد يجلس فيه طالبان كل طالب من صف

2- القاعة الواحدة تحتوي على 17 مقعد اي ممكن ان تضم 34 طالب  ( تتكون القاعة من قطاعين )

3- ان لايجلس طالبان من صفين بينهما مادة مشتركة ( اي يدرسون نفس المادة )  

4- يمكن أن تستوعب قاعة الاختبار كحد أقصى 30 طالب

5-ترتيب جلوس طلاب الصف الواحد خلف بعضهم وشرط أن لا يتجاور طالبان من نفس الصف

توزيع.mdb 456 kB · 6 تنزيلات

انظر للتقرير St_Jloss_Qury 

مع العلم أن هناك غموض في طلبك .. وحتى يكون الأمر واضحا .. أضف في الجدول جميع الحقول التي تريد . 

أنت طلبت 

اقتباس

ان لايجلس طالبان من صفين بينهما مادة مشتركة ( اي يدرسون نفس المادة )

السؤال : أين هو حقل المادة في الجدول ؟؟؟؟؟ 

وهنا تقول : 

اقتباس

2- القاعة الواحدة تحتوي على 17 مقعد اي ممكن ان تضم 34 طالب  ( تتكون القاعة من قطاعين )

ثم بعدها تقول 

اقتباس

4- يمكن أن تستوعب قاعة الاختبار كحد أقصى 30 طالب

وكيف تكون طريقة ادخال البيانات ؟؟ هل هي عن طريق الجدول مباشرة ؟؟ أم عن طريق نموذج ؟؟ 

توزيع.mdb

[khasem]

9 hours ago, فايز.. said:

انظر للتقرير St_Jloss_Qury 

مع العلم أن هناك غموض في طلبك .. وحتى يكون الأمر واضحا .. أضف في الجدول جميع الحقول التي تريد . 

أنت طلبت 

السؤال : أين هو حقل المادة في الجدول ؟؟؟؟؟ 

وهنا تقول : 

ثم بعدها تقول 

وكيف تكون طريقة ادخال البيانات ؟؟ هل هي عن طريق الجدول مباشرة ؟؟ أم عن طريق نموذج ؟؟ 

توزيع.mdb 608 kB · 2 downloads

 

وعليكم السلام أستاذ فايز

انا ممتن لردك استاذنا الفاضل

الموجود في التقرير هو خارطة لجلوس الطلاب اثناء الامتحانات لمدة عشرة أيام  اول اقل حسب عدد المواد التي يدرسها والأيام التي تحددها الوزارة لاجراء الامتحان  مثلا :

اول يوم  يمتحن الصف الأول  إسلامية   والصف الثاني  عربية  والصف الثالث  كيمياء  هذا لايهم  .

والمقصود ان لايتجاور طالبان من صفين لهما نفس المادة  هو أحيانا تكون مواد مشتركة بين صفين  مثلا احتمال ان تكون مادة الاقتصاد تدرس في الصف الأول والصف الثالث والمطلوب  زر خيار يؤشر اشتراك الصفين بنفس المادة لكي لايجلس طالبان من الصفين متجاورين  

المطلوب في الخارطة  اسم الطالب وصفه ورقمه الامتحاني فقط وهذه المعلومات موجودة في جدول(  (Jloss_tpl

الطاقة الاستيعابية لكل قاعة  17 مقعد مزدوج ( أي يجلس طالبان على نفس المقعد ) واحيانا توجد قاعات اكبر تستوعب عدد اكثر من المقاعد

القاعة الواحدة تحتوي على قطاعين كما هو موجود في تقرير (  Jloss_report  )

مع تقديري واحترامي لشخصكم الكريم على تفضلك بالرد على منشوري

[khasem]

3 hours ago, khasem said:

 

 

 

تم تعديل مايو 27, 2020 بواسطه khasem

[ناقل]

10 ساعات مضت, khasem said:

 

وعليكم السلام أستاذ فايز

انا ممتن لردك استاذنا الفاضل

الموجود في التقرير هو خارطة لجلوس الطلاب اثناء الامتحانات لمدة عشرة أيام  اول اقل حسب عدد المواد التي يدرسها والأيام التي تحددها الوزارة لاجراء الامتحان  مثلا :

اول يوم  يمتحن الصف الأول  إسلامية   والصف الثاني  عربية  والصف الثالث  كيمياء  هذا لايهم  .

والمقصود ان لايتجاور طالبان من صفين لهما نفس المادة  هو أحيانا تكون مواد مشتركة بين صفين  مثلا احتمال ان تكون مادة الاقتصاد تدرس في الصف الأول والصف الثالث والمطلوب  زر خيار يؤشر اشتراك الصفين بنفس المادة لكي لايجلس طالبان من الصفين متجاورين  

المطلوب في الخارطة  اسم الطالب وصفه ورقمه الامتحاني فقط وهذه المعلومات موجودة في جدول(  (Jloss_tpl

الطاقة الاستيعابية لكل قاعة  17 مقعد مزدوج ( أي يجلس طالبان على نفس المقعد ) واحيانا توجد قاعات اكبر تستوعب عدد اكثر من المقاعد

القاعة الواحدة تحتوي على قطاعين كما هو موجود في تقرير (  Jloss_report  )

مع تقديري واحترامي لشخصكم الكريم على تفضلك بالرد على منشوري

اين الاجابة اخي الكريم ؟؟؟؟؟

[عفرنس]

19 دقائق مضت, ناقل said:

اين الاجابة اخي الكريم ؟؟؟؟؟

الى الان الصورة ليست واضحة بالنسبة لي .. 

لعل احد الاخوة يفيدنا 

[khasem]

7 minutes ago, فايز.. said:

الى الان الصورة ليست واضحة بالنسبة لي .. 

لعل احد الاخوة يفيدنا 

استاذي الفاضل 

اوضحت المطلوب

  (  JLOSS _ REPRT) فقط توزيع الطلاب ضمن الشروط  وكما موجود في تقرير

مع تقديري واحترامي لشخصكم الكريم  

[khasem]

للرفع 

[Gamal.Saad]

بعد اذن أخي وزميلي أستاذ فايز..

شوف أستاذ khasem  : 

هناك فكرة وهي :

1 - توزيع نصف الطلاب سواء تم الترتيب حسب الاسم أو حسب المادة على المقعد الأول بكل صف

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

أو تستخدم طريقة الدالة العشوائية أيضا مع نفس الشروط دون الحاجة للمرور على السجلات

3 - في نهاية التوزيع نقوم بترقيم القاعة حسب العدد المطلوب وهذه النقطة بسيطة

لكن القصور في تلك الفكرة  أن نصف الطلاب يتم تسكينهم على المقعد الأول بكل صف و تطبق الشروط على المقعد الثاني فقط بمعنى :

اذا كان لديك 50 طالب منهم 20 بالصف الأول والقاعة تتسع لعدد 15 مقعد  فسوف تجد أن معظم طلاب الصف الأول تتركز في القاعة الأولى بينما باقي الصفوف تتوزع على القاعات حسب الشرط

والفكرة الثانية هي نفس السابقة لكن يتم التوزيع واختبار الشرط على كلا المقعدين بكل صف

والفكرة الأولى أسرع في التنفيذ والثانية تحتاج لوقت وتركيز ، فهل تناسبك فكرة توزيع الطلاب على المقعد الأول أولا  في كل الصفوف والقاعات  ؟

 

[khasem]

8 hours ago, Gamal.Saad said:

بعد اذن أخي وزميلي أستاذ فايز..

شوف أستاذ khasem  : 

هناك فكرة وهي :

1 - توزيع نصف الطلاب سواء تم الترتيب حسب الاسم أو حسب المادة على المقعد الأول بكل صف

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

أو تستخدم طريقة الدالة العشوائية أيضا مع نفس الشروط دون الحاجة للمرور على السجلات

3 - في نهاية التوزيع نقوم بترقيم القاعة حسب العدد المطلوب وهذه النقطة بسيطة

لكن القصور في تلك الفكرة  أن نصف الطلاب يتم تسكينهم على المقعد الأول بكل صف و تطبق الشروط على المقعد الثاني فقط بمعنى :

اذا كان لديك 50 طالب منهم 20 بالصف الأول والقاعة تتسع لعدد 15 مقعد  فسوف تجد أن معظم طلاب الصف الأول تتركز في القاعة الأولى بينما باقي الصفوف تتوزع على القاعات حسب الشرط

والفكرة الثانية هي نفس السابقة لكن يتم التوزيع واختبار الشرط على كلا المقعدين بكل صف

والفكرة الأولى أسرع في التنفيذ والثانية تحتاج لوقت وتركيز ، فهل تناسبك فكرة توزيع الطلاب على المقعد الأول أولا  في كل الصفوف والقاعات  ؟

 

الاستاذ الفاضل جمال

رحم الله والديك لتعاونك معي 

اذا تركنا شرط المادة هل يتم التوزيع بشكل منتظم

[Gamal.Saad]

2 ساعات مضت, khasem said:

اذا تركنا شرط المادة هل يتم التوزيع بشكل منتظم

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

أنا بس أحب أنبهك لشيئ إن كنت تتحمل المسئولية أن تضع نفس مكان الطالب و مكان كل مشارك بالامتحانات عند التعامل مع نتيجة التوزيع تجنباً لحدوث مشاكل واستياء من برنامجك

 

[Gamal.Saad]

هناك 4 طرق توزيع للطلاب بالمرفق  :

1 - "صف مختلف + مادة مختلفة"

2 - "نفس الصف أو صف مختلف + نفس المادة أو مادة مختلفة"

3 - "صف مختلف + نفس المادة"

4 - "صف مختلف وتجاهل المادة"  وهذا يحافظ على الترنيب طبقاً لرقم الجلوس والصف إن كانوا في ترتيب تسلسلي

ولكن جميعها يستند لتوزيع المقعد الأول في كامل القاعات أولاً
وهذا هو الهيكل الرئيسي أو العقل المدبر للكود الذي يمكن العمل عليه لاجقاً للتعديل و جاري تعديل الكود للاختصار وحذف الزيادات ، واذا أتيح الوقت فهناك طريقة اضافية للتوزيع المتزامن للمقعدين معاً بكل صف بالقاعة
 

'Start ..................... إنشاء الجدول المؤقت من جديد  ........................
Call Clear_data_first

'start.......................................------ توزيع الحقل الأول بعدد نصف الصفوف ---- الطلاب .................

DoCmd.RunSQL "INSERT INTO Table1 ( Seat1_class, Seat1_Exam, Seat1_name, Jloss1_no ) " _
                   & "SELECT Qry1.Safe, Qry1.[N-EXSAM], Qry1.St_name, Qry1.Jloss_no FROM" _
           & "(SELECT TOP 50 PERCENT Jloss_tpl.Jloss_no, * FROM Jloss_tpl " _
                    & "ORDER BY Jloss_no , Jloss_tpl.Safe, Jloss_tpl.[N-EXSAM], Jloss_tpl.St_name ) Qry1;"
DoCmd.RunSQL GetSQL.update_action
'start.........................................  توزيع الحقل الثاني   .............................................
 Set rsQry = CurrentDb.OpenRecordset(GetSQL.select_action)
 Set rsTbl = CurrentDb.OpenRecordset(GetSQL.select_tbl1)
 
'start.........................................  المرور على سجلات الجدول المؤقت لإضافة الطالب بالمقعد الثاني   .............................................
 For h = 0 To rsTbl.RecordCount
  Set rsQry = CurrentDb.OpenRecordset(GetSQL.select_action)
     rsQry.MoveFirst
'start.........................................  المرور على سجلات الاستعلام من الجدول الاساسي لاختيار طالب حسب الشروط للمقعد الثاني   .............................................
           For i = 0 To rsQry.RecordCount
'start................... دالة اختيار طالب واحد عشوائي لأول ثلاثة اختيارات من الكومبوبكس
             Set rsQry = CurrentDb.OpenRecordset("SELECT  top 1 Jloss_no , * FROM Jloss_tpl WHERE (((Jloss_tpl.Action) = False) ) ORDER BY rnd(Jloss_no),Safe;")
                     s = Nz(DLookup("Jloss2_no", "Table1", "[Jloss2_no] = " & rsQry!Jloss_no & ""), 0) ' شرط عدم اختيار مسبق
                     y = (Val(rsTbl!Seat1_Exam) <> Val(rsQry("N-EXSAM"))) ' شرط اختلاف المادة
                     x = (Val(rsTbl!Seat1_Exam) = Val(rsQry("N-EXSAM"))) ' شرط تشابه المادة
'start................................. اختيارات طريقة التوزيع من النموذج
               Select Case Combo_choice
                      Case 1
                      If IsNull(rsTbl!Seat2_name) And rsTbl!Seat1_class <> rsQry!Safe And s = 0 And y = True Then: Call dist
                      Case 2
                      If IsNull(rsTbl!Seat2_name) And s = 0 Then: Call dist
                       Case 3
                      If IsNull(rsTbl!Seat2_name) And rsTbl!Seat1_class <> rsQry!Safe And s = 0 And x = True Then: Call dist
                      Case 4
'start................... إعادة اختيار بدون العشوائية للمحافظة على ترتيب رقم الجلوس للاختيار الرابع من الكومبوبكس
                      Set rsQry = CurrentDb.OpenRecordset("SELECT  Jloss_no , * FROM Jloss_tpl WHERE (((Jloss_tpl.Action) = False) ) ORDER BY Jloss_no;")
                      s = Nz(DLookup("Jloss2_no", "Table1", "[Jloss2_no] = " & rsQry!Jloss_no & ""), 0)
                      If IsNull(rsTbl!Seat2_name) And rsTbl!Seat1_class <> rsQry!Safe And s = 0 Then: Call dist
                  End Select
             Next  '  السجل التالي للاستعلام 
 If rsTbl.EOF Then: rsTbl.MoveFirst: Else: rsTbl.MoveNext
 Next  '  السجل التالي الجدول

 

توزيع 20.accdb

[khasem]

2 hours ago, Gamal.Saad said:

هناك 4 طرق توزيع للطلاب بالمرفق  :

1 - "صف مختلف + مادة مختلفة"

2 - "نفس الصف أو صف مختلف + نفس المادة أو مادة مختلفة"

3 - "صف مختلف + نفس المادة"

4 - "صف مختلف وتجاهل المادة"  وهذا يحافظ على الترنيب طبقاً لرقم الجلوس والصف إن كانوا في ترتيب تسلسلي

ولكن جميعها يستند لتوزيع المقعد الأول في كامل القاعات أولاً
وهذا هو الهيكل الرئيسي أو العقل المدبر للكود الذي يمكن العمل عليه لاجقاً للتعديل و جاري تعديل الكود للاختصار وحذف الزيادات ، واذا أتيح الوقت فهناك طريقة اضافية للتوزيع المتزامن للمقعدين معاً بكل صف بالقاعة
 

'Start ..................... إنشاء الجدول المؤقت من جديد  ........................
Call Clear_data_first

'start.......................................------ توزيع الحقل الأول بعدد نصف الصفوف ---- الطلاب .................

DoCmd.RunSQL "INSERT INTO Table1 ( Seat1_class, Seat1_Exam, Seat1_name, Jloss1_no ) " _
                   & "SELECT Qry1.Safe, Qry1.[N-EXSAM], Qry1.St_name, Qry1.Jloss_no FROM" _
           & "(SELECT TOP 50 PERCENT Jloss_tpl.Jloss_no, * FROM Jloss_tpl " _
                    & "ORDER BY Jloss_no , Jloss_tpl.Safe, Jloss_tpl.[N-EXSAM], Jloss_tpl.St_name ) Qry1;"
DoCmd.RunSQL GetSQL.update_action
'start.........................................  توزيع الحقل الثاني   .............................................
 Set rsQry = CurrentDb.OpenRecordset(GetSQL.select_action)
 Set rsTbl = CurrentDb.OpenRecordset(GetSQL.select_tbl1)
 
'start.........................................  المرور على سجلات الجدول المؤقت لإضافة الطالب بالمقعد الثاني   .............................................
 For h = 0 To rsTbl.RecordCount
  Set rsQry = CurrentDb.OpenRecordset(GetSQL.select_action)
     rsQry.MoveFirst
'start.........................................  المرور على سجلات الاستعلام من الجدول الاساسي لاختيار طالب حسب الشروط للمقعد الثاني   .............................................
           For i = 0 To rsQry.RecordCount
'start................... دالة اختيار طالب واحد عشوائي لأول ثلاثة اختيارات من الكومبوبكس
             Set rsQry = CurrentDb.OpenRecordset("SELECT  top 1 Jloss_no , * FROM Jloss_tpl WHERE (((Jloss_tpl.Action) = False) ) ORDER BY rnd(Jloss_no),Safe;")
                     s = Nz(DLookup("Jloss2_no", "Table1", "[Jloss2_no] = " & rsQry!Jloss_no & ""), 0) ' شرط عدم اختيار مسبق
                     y = (Val(rsTbl!Seat1_Exam) <> Val(rsQry("N-EXSAM"))) ' شرط اختلاف المادة
                     x = (Val(rsTbl!Seat1_Exam) = Val(rsQry("N-EXSAM"))) ' شرط تشابه المادة
'start................................. اختيارات طريقة التوزيع من النموذج
               Select Case Combo_choice
                      Case 1
                      If IsNull(rsTbl!Seat2_name) And rsTbl!Seat1_class <> rsQry!Safe And s = 0 And y = True Then: Call dist
                      Case 2
                      If IsNull(rsTbl!Seat2_name) And s = 0 Then: Call dist
                       Case 3
                      If IsNull(rsTbl!Seat2_name) And rsTbl!Seat1_class <> rsQry!Safe And s = 0 And x = True Then: Call dist
                      Case 4
'start................... إعادة اختيار بدون العشوائية للمحافظة على ترتيب رقم الجلوس للاختيار الرابع من الكومبوبكس
                      Set rsQry = CurrentDb.OpenRecordset("SELECT  Jloss_no , * FROM Jloss_tpl WHERE (((Jloss_tpl.Action) = False) ) ORDER BY Jloss_no;")
                      s = Nz(DLookup("Jloss2_no", "Table1", "[Jloss2_no] = " & rsQry!Jloss_no & ""), 0)
                      If IsNull(rsTbl!Seat2_name) And rsTbl!Seat1_class <> rsQry!Safe And s = 0 Then: Call dist
                  End Select
             Next  '  السجل التالي للاستعلام 
 If rsTbl.EOF Then: rsTbl.MoveFirst: Else: rsTbl.MoveNext
 Next  '  السجل التالي الجدول

 

توزيع 20.accdb 612 kB · 0 downloads

السلام عليكم استاذ جمال

حقيقة لا اعرف ماذا اصف هذا العمل العملاق

ربي يحفظك ويزيدك من فائض علمه 

   يظهر كما في الصورة  المرفقة (Jloss_report_class)لكن هل من الممكن جعل التقرير

اي يظهر في كل مقعد طالبين     اول - ثاني      ...        ثالث- اول      ....       ثاني - ثالث

ضمن فقرة صف مختلف وتجاهل المادة 

مع تقديري واحترامي

تم تعديل مايو 29, 2020 بواسطه khasem

[Gamal.Saad]

احتمال نعم كما بالصورة

 

توزيع 21.accdb

[khasem]

43 minutes ago, Gamal.Saad said:

احتمال نعم كما بالصورة

 

توزيع 21.accdb 624 kB · 0 downloads

كم انت رائع استاذ جمال 

ربي يحفظك ويرحم الله والديك 

فقط ان امكن طلب اخير 

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

     مثلا   عدد طلاب الصف الاول  =        وعدد طلاب الصف الثاني       وعدد طلاب الصف الثالث

القاعة ممكن ان تستوعب 34   او  36 

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

مع تقديري واحترامي لك استاذي الفاضل  

تم تعديل مايو 29, 2020 بواسطه khasem

[Gamal.Saad]

تسلم يا غالي
 

20 ساعات مضت, khasem said:

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

ممكن بعد التجربة
 

20 ساعات مضت, khasem said:

القاعة ممكن ان تستوعب 34   او  36

زي ما تحب ، أنت فقط تحتاج تجربة الكود
أنت قدر المستطاع أعطيت عنوان داخل الكود للأجزاء الرئيسية توضح عمل الكود والفكرة لتسهيل التعديل

 

20 ساعات مضت, khasem said:

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

طالما سيكون القطاع يساوي عدد مقاعد  القاعة مقسوما على 2 فليس هناك صعوبة
الصعوبة كانت في عدد مقاعد القاعة لو 17 مقعد عدد فردي لأن مش هنعرف ناخد نصف مقعد يجلس عليه طالب والنصف الآخر بقاعة أخرى
لذلك عدلت لك في اللوب Loop الخاص بالترقيم ليراعي وجود رقم فردي

 For i = 1 To Labs                                ' المرور على السجلات داخل الجدول لترقيم القاعات حسب عددها
     section_no = 1
     Lab_no = Lab_no + 1
        For h = 1 To 2                            ' المرور على صفوف كل قاعة
             For j = 1 To Me.Rows_count / 2       '..........   عدد قطاعين بكل قاعة
                 Call R("R")                       '  دالة اجرائية لتسجيل رقم القاعة ورقم القطاع
                If Not rsTbl.EOF Then rsTbl.MoveNext
             Next
             section_no = 2

            If Val(Me.Rows_count) Mod 2 <> 0 Then   '........ زيادة صف للعدد الفردي
              Call R("R")
              If Not rsTbl.EOF Then rsTbl.MoveNext
            End If
       Next
       If Val(Me.Rows_count) Mod 2 <> 0 And Not rsTbl.EOF Then rsTbl.MovePrevious
Next

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

توزيع 23.accdb

[khasem]

10 minutes ago, Gamal.Saad said:

تسلم يا غالي
 

ممكن بعد التجربة
 

زي ما تحب ، أنت فقط تحتاج تجربة الكود
أنت قدر المستطاع أعطيت عنوان داخل الكود للأجزاء الرئيسية توضح عمل الكود والفكرة لتسهيل التعديل

 

طالما سيكون القطاع يساوي عدد مقاعد  القاعة مقسوما على 2 فليس هناك صعوبة
الصعوبة كانت في عدد مقاعد القاعة لو 17 مقعد عدد فردي لأن مش هنعرف ناخد نصف مقعد يجلس عليه طالب والنصف الآخر بقاعة أخرى
لذلك عدلت لك في اللوب Loop الخاص بالترقيم ليراعي وجود رقم فردي

 For i = 1 To Labs                                ' المرور على السجلات داخل الجدول لترقيم القاعات حسب عددها
     section_no = 1
     Lab_no = Lab_no + 1
        For h = 1 To 2                            ' المرور على صفوف كل قاعة
             For j = 1 To Me.Rows_count / 2       '..........   عدد قطاعين بكل قاعة
                 Call R("R")                       '  دالة اجرائية لتسجيل رقم القاعة ورقم القطاع
                If Not rsTbl.EOF Then rsTbl.MoveNext
             Next
             section_no = 2

            If Val(Me.Rows_count) Mod 2 <> 0 Then   '........ زيادة صف للعدد الفردي
              Call R("R")
              If Not rsTbl.EOF Then rsTbl.MoveNext
            End If
       Next
       If Val(Me.Rows_count) Mod 2 <> 0 And Not rsTbl.EOF Then rsTbl.MovePrevious
Next

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

توزيع 23.accdb 1.22 MB · 0 downloads

اعزك الله استاذي الفاضل وزادك من فضله 

عادي استاذ 

من الممكن ان يكون كل قطاع في صفحة واحدة ولكل قطاع خلاصته   اي خلاصة بعدد الطلاب الموجودين في كل قطاع حسب الصف

حتى يكون التقرير بشكل منظم 

اتصور بذلت جهدا كبيرا واسال الله ان يجزيك عنا خير الجزاء ويجنبك كل مكروه باذنه تعالي 

احترامي واتقديري لشخصكم الكريم 

 

[Gamal.Saad]

2 دقائق مضت, khasem said:

حتى يكون التقرير بشكل منظم 

اتصور بذلت جهدا كبيرا واسال الله ان يجزيك عنا خير الجزاء ويجنبك كل مكروه باذنه تعالي 

احترامي واتقديري لشخصكم الكريم

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

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

[khasem]

2 minutes ago, Gamal.Saad said:

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

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

استاذنا ما اخبرتني 

هل من الممكن وضع كل قطاع في ورقة مع خلاصته  اي اعداد طلاب كل صف في القطاع

[Gamal.Saad]

4 دقائق مضت, khasem said:

استاذنا ما اخبرتني 

هل من الممكن وضع كل قطاع في ورقة مع خلاصته  اي اعداد طلاب كل صف في القطاع

إن شاء الله ممكن في أقرب فرصة ، ولو تحب تضع كل طالب في ورقة ، ماشي

 

[khasem]

1 minute ago, Gamal.Saad said:

إن شاء الله ممكن في أقرب فرصة ، ولو تحب تضع كل طالب في ورقة ، ماشي

 

والله ماتقصر استاذ ربي يحفظك

 

[ابو البشر]

46 دقائق مضت, Gamal.Saad said:

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

هو انت الى كنت عامل البرنامج .... كفشناك ..... ههههههههه ..... 

[khasem]

4 minutes ago, ابو البشر said:

هو انت الى كنت عامل البرنامج .... كفشناك ..... ههههههههه ..... 

عزيزي ابو البشر

السلام عليكم 

كلكم خير وبركة ان شاء الله

نتعلم منكم والجزاء من رب لايضيع عنده اجر من احسن عملا  

تم تعديل مايو 30, 2020 بواسطه khasem

[Gamal.Saad]

19 دقائق مضت, ابو البشر said:

هو انت الى كنت عامل البرنامج .... كفشناك ..... ههههههههه .

ههههههه ياباشا أنا مليش دعوة ، هما اللي طلبوا مساعدة الكمبيوتر 

 

منذ ساعه, khasem said:

هل من الممكن وضع كل قطاع في ورقة مع خلاصته  اي اعداد طلاب كل صف في القطاع

من خصائص Group رقم القطاع اختر كما بالصورة :

توزيع 24.accdb

[khasem]

لماذا اصبحت عمودين استاذ 

القاعة من ثلاث اعمدة