مساعدة في توزيع الطلاب على حافلات

[JAMAL SINANI]

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

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

بوركت جهودكم الطيبة في نشر العلم والمعرفة

كما توجد صورة توضيحية للمطلوب

توزيع.rar

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

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

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

On Error GoTo Err:
    If IsNull(Me.txtClassCnt) Then
        MsgBox "ادخل عدد المجموعات اولاً"
        Exit Sub
    Else

    X = Round(Me.Form.Recordset.RecordCount / 2 + 0.5)
    DoCmd.GoToRecord , , acFirst
    
    I = 0
    
    Do
        I = I + 1
        J = 0
            Do
                J = J + 1
                Me.group = I
                DoCmd.GoToRecord , , acNext
            Loop Until J = X
    Loop Until I >= Me.txtClassCnt
            
            Me.Requery
    End If
Err:
    Me.Undo
    Exit Sub

توزيع.rar

تجياتي

[ابوخليل]

السلام عليكم

مشاركة معكم احبتي علما انني لم اطلع على المرفق

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

[JAMAL SINANI]

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

الكود جيد الا انه هل من الممكن ان تأتي الارقام بشكل متسلسل

مثال

اذا خترت مجموعتين الارقام التي تظهر (1 و 2 ) وستأتي كالتالي

1

1

1

2

2

2

هل من الممكن ان تظهر

1

2

1

2

1

2

والف شكر لك استاذي

[husamwahab]

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

  ملاحظة : التعديل حسب ما طلبت بالاضافة الا انه يتقبل اكثر من مجموعتين 

Root300.rar

تم تعديل أكتوبر 15, 2020 بواسطه husamwahab

[JAMAL SINANI]

الف شكر استاذي husamwahab

وكل من ساهم في مساعدتي واسال الله تعالى لكم جميعا التوفيق