[مصمم هاوي]

عذرا على الازعاج؛ ولكنه حب الإطلاع واستعجال النتائج وانتظار الجواب.
ههههههه
وإذا لم يكن أحدٌ من الأساتذة له وقتٌ لينظر هذا السؤال ويحلَّ الإشكال فليعدل على هذا الكود فقط
حيث استطعتُ أن أعرض مادة رسوب واحدة مثل ما في هذا الكود ( tr1 < 40)  حسب الاختيار من الكومبوس Combo1
ولكن أريدُ أن أعرض 12 مـادة إذا كانت درجة النجاح أقل من 40 ماعدا مادة واحدة درجة النجاح أقل من 80 وهى tr5
tr1 - tr2 - tr3 - tr4 - tr5 - tr6 - tr7 - tr8 - tr9 - tr10 - tr11 - tr12

كود :

Call ConnectionDatabase
If rs.State = adStateOpen Then rs.Close
rs.Open "SELECT * FROM [TB1] WHERE [CClas]='" & Trim(CombCClass.Text) & _
"' AND [Clas] = '" & Trim(CombClass.Text) & _
"' AND tag=3 AND tr1 < 40 AND [Category] = '" & Trim(CombCategory.Text) & _
"'", DB, adOpenStatic, adLockOptimistic

L1.Clear
For I = 0 To rs.RecordCount - 1
L1.AddItem rs![Name_Student]
L1.ItemData(L1.NewIndex) = rs![ID]
rs.MoveNext
Next
'