توزيع الأيام للطلاب

[عفرنس]

السلام عليكم .. 

لدي هذا البرنامج أرغب فيه  لكل سبعة أو ستة طلاب من الشعبة يوم واحد فقط .. 

مثلا ( لو الشعبة عدد طلابها 33 طالب يوزع هؤلاؤ الطلاب على أيام الأسبوع . فيكون يوم الأحد للطلاب السبعة الأولين ، والاثنين للسبعة الذين بعدهم وهكذا بقية الأيام لبقية الطلاب . 

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

@الفلاحجى @محمد أبوعبدالله

faiz.mdb

تم تعديل يوليو 12, 2020 بواسطه فايز..

[محمد أبوعبدالله]

وعليكم السلام ورحمة الله وبركاته

بالخدمة اخي الكريم

تحياتي

[عفرنس]

1 دقيقه مضت, محمد أبوعبدالله said:

وعليكم السلام ورحمة الله وبركاته

بالخدمة اخي الكريم

تحياتي

وفقك الله .. 

أرجو أن تكون فكرتي وضحت لديك . 

[محمد أبوعبدالله]

السلام عليكم

تفضل اخي الكريم

جرب واعلمني بالنتيجة

faiz.rar

 

تحياتي

تم تعديل يوليو 12, 2020 بواسطه محمد أبوعبدالله

[محمد أبوعبدالله]

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

وهذا الكود كاملاً

On Error GoTo Error_ErrorZ

    ' تصفير حقل XDay
    mySQL = "Update Student"
    mySQL = mySQL & " SET XDay = 0"
    CurrentDb.Execute (mySQL)
    
    mySQL = "Select * From Student"
    mySQL = mySQL & " ORDER BY Xclass"
    Debug.Print mySQL
    
    Set rst = CurrentDb.OpenRecordset(mySQL)
    rst.MoveFirst
    
    Do Until rst.EOF
        For i = 1 To 5
            rst.Edit
            rst!XDay = i
            rst.Update
            rst.MoveNext
        
        Next
        
     Loop
        
Error_ErrorZ:
    If Err.Number = 3021 Then
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If

تحياتي

تم تعديل يوليو 12, 2020 بواسطه محمد أبوعبدالله

[عفرنس]

2 ساعات مضت, محمد أبوعبدالله said:

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

وهذا الكود كاملاً

On Error GoTo Error_ErrorZ

    ' تصفير حقل XDay
    mySQL = "Update Student"
    mySQL = mySQL & " SET XDay = 0"
    CurrentDb.Execute (mySQL)
    
    mySQL = "Select * From Student"
    mySQL = mySQL & " ORDER BY Xclass"
    Debug.Print mySQL
    
    Set rst = CurrentDb.OpenRecordset(mySQL)
    rst.MoveFirst
    
    Do Until rst.EOF
        For i = 1 To 5
            rst.Edit
            rst!XDay = i
            rst.Update
            rst.MoveNext
        
        Next
        
     Loop
        
Error_ErrorZ:
    If Err.Number = 3021 Then
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If

تحياتي

جزاك الله خيرا أخي @محمد أبوعبدالله مجهود جميل ورائع .. 

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

هل بالإمكان أن نجعل الكود يقسم الطلاب على عدد الأيام . 

بمعنى : اذا عدد الطلاب في شعبة 1 ( 33 ) طالبا  يقسم مجموع الطلاب على 5  فيصبح يضع يوم الأحد لعدد 6 طلاب والاثنين للـ 6 الذين بعدهم وهكذا . والزائد يضعه في آخر شعبة . 

وهكذا في شعبة 2 و  شعبة  3 ... 

شكر الله لك .. 

 

faiz.mdb

[محمد أبوعبدالله]

تفضل اخي الكريم

جرب المرفق الجديد

faiz101.rar

تحياتي

[عفرنس]

7 ساعات مضت, محمد أبوعبدالله said:

تفضل اخي الكريم

جرب المرفق الجديد

faiz101.rar 34.83 kB · 4 تنزيلات

تحياتي

أخي @محمد أبوعبدالله جزاك الله خير على جهدك معي .. 

مازالت المشكلة قائمة . 

يعني استعلام 4 نريد إعادة النظر فيه لأن التوزيع غير صحيح . 

انظر الصورة : 

 

جزاك الله كل خير .. ممكن أتعبك معي لكن تحملني . 

تم تعديل يوليو 13, 2020 بواسطه فايز..

[husamwahab]

مشاركة مع اخي واستاذي محمد أبوعبدالله

تفضل اخي العزيز

ارجو ان يكون طلبك

 

faiz-12.rar

تم تعديل يوليو 13, 2020 بواسطه husamwahab

[husamwahab]

وهذا كود لايتقيد بعدد الطلاب 

حيث هو الذي يختار العدد المناسب لتوزيعه على عدد الايام

لانه بوجود اكثر من 35 طالب ستكون هناك مشكلة حيث لايمكن توزيع كل سبعة طلاب على يوم حيث ستكون عدد الايام اكثر من خمسة

faiz-15.rar

تم تعديل يوليو 13, 2020 بواسطه husamwahab

[عفرنس]

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

مشاركة مع اخي واستاذي محمد أبوعبدالله

تفضل اخي العزيز

ارجو ان يكون طلبك

 

faiz-12.rar 37.96 kB · 1 تنزيلات

جزاك الله خيرا .. المطلوب حصل 90 بالمائة ..

واجهتني مشكلة وهي عدم اضافة الأيام لمجموعة كبيرة من الطلاب . أرفقت ملف الاكسل لعمل اللازم . 

وأشكرك على جهدك . 

1442.rar

[Barna]

مشارك مع حبايبي الاساتذه ....

 

‏‏faiz - نسخة.mdb

[عفرنس]

26 دقائق مضت, Barna said:

مشارك مع حبايبي الاساتذه ....

 

‏‏faiz - نسخة.mdb 356 kB · 1 تنزيلات

أستاذي الفاضل ياليت تحل المشكلة من خلال المرفق التالي 

لم يضف الأيام لشعبة 11 - 12 - 13- 14 

ويعطي رسالة الخطأ 

1442.rar

تم تعديل يوليو 13, 2020 بواسطه فايز..

[husamwahab]

اخي العزيز 

المشكلة هي بنقل البيانات من الاكسيل للاكسيس

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

المهم اعتمد هذا التعديل  

faiz-20.rar

[Barna]

جرب الملف ,,,,

 

‏‏faiz - نسخة.mdb

[عفرنس]

الأستاذ @محمد أبوعبدالله @husamwahab @Barna 

شكر الله لكم على ما بذلتم ، واسمحوا لي أن أجعل مشاركة الأخ @Barna كأفضل إجابة .. وذلك أنها هي التي وافقت المراد .

مرة أخرى أقول ( لا حرمكم الله أجر المشاركة ونفع الناس ) 

[husamwahab]

بالخدمة اخي العزيز

وبالفعل افضل معالجة هي للاستاذ Barna 

[محمد أبوعبدالله]

جزاك الله خيرا اخي الكريم

وما شاء الله الاخوة قاموا بالواجب

وحقيقة اخونا @Barna عملاق ويستحق كل تقدير

بالتوفيق اخي الكريم

تحياتي

[Barna]

الأستاذة @محمد أبوعبدالله @husamwahab @فايز..

بارك الله فيكم ..... إنما أنا تليذكم ولا زلت اتعلم منكم 

احسن الله اليكم وبحسن ظنكم بي ..... هذا دأب الكبار أمثالكم التواضع .... رفع الله قدركم   

[عفرنس]

أخي @Barna في حال ارت وزيع الطلاب على أربعة أيام أو ثلاثة ما الذي يمكن تعديله في الكود ؟ 

* واذا يسمح لك وقتك تشرح لي الكود حتى افهمه فلا بأس . 

وفقك الله .. 

تم تعديل يوليو 14, 2020 بواسطه فايز..

[Barna]

1 ساعه مضت, فايز.. said:

أخي @Barna في حال ارت وزيع الطلاب على أربعة أيام أو ثلاثة ما الذي يمكن تعديله في الكود ؟ 

* واذا يسمح لك وقتك تشرح لي الكود حتى افهمه فلا بأس . 

وفقك الله .. 

تفضل ---------->

ba_T21.mdb

[عفرنس]

منذ ساعه, Barna said:

تفضل ---------->

ba_T21.mdb 436 kB · 2 تنزيلات

ما شاء الله عليك @Barna .. فكرة جميلة جدا جدا جدا .. وفرت الكثير من الأمور . 

الله يجعله في موازين حسناتك .. 

 أخي محمد : 

** لماذا الجدول المرتبط ؟؟ student1  هل أحتاجه والا أحذفه ؟؟ 

** أيضا وضح لي عمل الاستعلامين ( التحديث ) استعلام 1 واستعلام 4  التي أضفتها .. هل أحتاجها كلها أم واحد فقط ؟؟ 

 

 

 

تم تعديل يوليو 14, 2020 بواسطه فايز..

[Barna]

13 دقائق مضت, فايز.. said:

ما شاء الله عليك @Barna .. فكرة جميلة جدا جدا جدا .. وفرت الكثير من الأمور . 

الله يجعله في موازين حسناتك .. 

 أخي محمد : 

** لماذا الجدول المرتبط ؟؟ student1  هل أحتاجه والا أحذفه ؟؟ 

** أيضا وضح لي عمل الاستعلامين ( التحديث ) استعلام 1 واستعلام 4  التي أضفتها .. هل أحتاجها كلها أم واحد فقط ؟؟ 

 

 

 

كل الاستعلامات لاتحتاجها ما عدا bar  وايضا الجدول student1  لاتحتاجه ..... احذفه

[عفرنس]

10 دقائق مضت, Barna said:

كل الاستعلامات لاتحتاجها ما عدا bar  وايضا الجدول student1  لاتحتاجه ..... احذفه

تمام .. 

 لو قريب منك حبيت خشمك بدون كمامة 😍

[ناقل]

23 دقائق مضت, فايز.. said:

تمام .. 

 لو قريب منك حبيت خشمك بدون كمامة 😍

 

🌷

تم تعديل يوليو 14, 2020 بواسطه ناقل