توزيع اللجان علي الطلبة حسب تحديد عدد اللجان

[ابوصلاح]

السلام عليكم 

لدي مرفق اريد فيه عمل لجان لكل صف 

حسب اللجان المطلوبة في مربع النص بحيث اكتب 4 لجان مثلا يقوم اكسس بوضع اللجنة 1 و2 الخ ....

في المرفق يتضح الامر

توزيع اللجان علي الطلبة.rar

[ابوصلاح]

الفكره ربما تكون غير موضحه جيدا هو وضع رقم اللجنه في  عمود اللجنه حسب العدد الصف الرابع ٤ لجان  وعدد الصف الرابع ١٠٠ تكون كل لجنه ٢٥ طالب توضع في عمود اللجنه وشكرا

 

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

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

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

جرب الحل التالي

On Error GoTo Err:

    Dim mySQL As String
    Dim rst As Recordset
    Dim i As Double, J As Double
    
    If IsNull([cbo_saf]) Then
        MsgBox "اختر الصف اولا", vbCritical, "اوفيسنا"
    Else
       DoCmd.SetWarnings False
       DoCmd.RunSQL "UPDATE emthan_tbl_bianat SET emthan_tbl_bianat.lagna = 0 WHERE (((emthan_tbl_bianat.saf)=[forms]![frm_golos_sry]![cbo_saf]));"
       DoCmd.SetWarnings True
                
        mySQL = "Select * From emthan_tbl_bianat"
        mySQL = mySQL & " WHERE saf ='" & Me.cbo_saf & "'"
        mySQL = mySQL & " ORDER BY golos1"
        
        Set rst = CurrentDb.OpenRecordset(mySQL)
        rst.MoveLast: rst.MoveFirst
        
        For J = 1 To Me.count_legan
            For i = 1 To Me.kk
                rst.Edit
                rst![lagna] = J
                rst.Update
                rst.MoveNext
            Next
        Next
        Me.Requery
    End If
Err:
    If Err.Number = 3121 Then
    Else
    End If

توزيع اللجان علي الطلبة.rar

تحياتي

[ابوصلاح]

اخي محمد عبد الله عمل ممتاز بارك الله فيك 

لكن علي فرض اريد ان يبدا اللجنة مش من رقم واحد لا من ثلاثة بمعني لجنة (3 ) لجنة (4)وشكرا

تم تعديل سبتمبر 18, 2020 بواسطه ابوصلاح