محتاج عمل مربع نص لجمع المواد الدراسية الى تم رصدها

[The best]

السلام عليكم 
أقوم برصد مواد دراسية محتاج اعمل مربع نص يحسب عدد المواد المرصودة

[kkhalifa1960]

تفضل أخي حسب مافهمت ووافني بالرد 

DD457.rar

[The best]

10 ساعات مضت, kkhalifa1960 said:

تفضل أخي حسب مافهمت ووافني بالرد 

DD457.rar 51.8 kB · 0 downloads

ليس هذا ما اريده .. أرسلت لك مرفقا به مواد درجاتها مرصودة وأخرى غير مرصودة للتمييز 

رصد المواد.accdb

[kanory]

9 ساعات مضت, osn said:

20 ساعات مضت, kkhalifa1960 said:

 

ليس هذا ما اريده .. أرسلت لك مرفقا به مواد درجاتها مرصودة وأخرى غير مرصودة للتمييز 

مشاركة مع الاساتذة .....

ضع هذا الفانك في النموذج 

Function CountFields()
    Set db = CurrentDb()
    Set RS = db.OpenRecordset("SELECT tb_1.[لغة عربية], tb_1.رياضيات, tb_1.علوم, tb_1.[تربية إسلامية], tb_1.[دراسات اجتماعية] FROM tb_1;")
    RS.MoveFirst
    Do While Not RS.EOF
        Countt = 0
        For Each Item In RS.Fields
            If RS.Fields(Item.Name).Value <> "" Then Countt = Countt + 1
        Next Item
        RS.MoveNext
    Loop
[نص35] = Countt
End Function

واستدعيه من حدث الحالي للنموذج بهذا الشكل CountFields

جرب واعلمنا هل هذا هو المطلوب <<<<<<<<<<<<<<<<<<

 

تم تعديل يناير 26, 2024 بواسطه kanory

[The best]

5 ساعات مضت, kanory said:

مشاركة مع الاساتذة .....

ضع هذا الفانك في النموذج 

Function CountFields()
    Set db = CurrentDb()
    Set RS = db.OpenRecordset("SELECT tb_1.[لغة عربية], tb_1.رياضيات, tb_1.علوم, tb_1.[تربية إسلامية], tb_1.[دراسات اجتماعية] FROM tb_1;")
    RS.MoveFirst
    Do While Not RS.EOF
        Countt = 0
        For Each Item In RS.Fields
            If RS.Fields(Item.Name).Value <> "" Then Countt = Countt + 1
        Next Item
        RS.MoveNext
    Loop
[نص35] = Countt
End Function

واستدعيه من حدث الحالي للنموذج بهذا الشكل CountFields

جرب واعلمنا هل هذا هو المطلوب <<<<<<<<<<<<<<<<<<

 

تمام الله ينور عليك ... شكرا جزيلا لكم جميعا على سرعة الاستجابة