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

[عبد الفتاح كيرة]

السلام عليكم

هذا الموضوع أصله هنا

 

الكود

Private Sub ÃãÑ11_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("q_New_Stu_Tawzee3")
rs.MoveFirst
Do Until rs.EOF
   On Error GoTo 1
    For x = 0 To 5
        For i = 1 To Me.tfasl
            If x = i Then GoTo skipeme
                      
        rs.Edit
        rs!CurrFasl = i
        rs.Update
        rs.MoveNext
skipeme:
        Next i
    Next x
Loop
    Me.Requery
    Me.Refresh
    Set rs = Nothing
    Set db = Nothing
    
1:  End Sub

 

[Amr Ashraf]

جزاك الله خير

[عبد الفتاح كيرة]

4 ساعات مضت, Amr Ashraf said:

جزاك الله خير

بوركت أخى