اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

السلام عليكم

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

 

الكود

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

 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information