18-11-21, 02:11 AM
السلام عليكم رحمة الله وبركاته،،
هل هذا الاختصار يعتبر مريح ؟؟
هل هذا الاختصار يعتبر مريح ؟؟
كود :
' عرض الطلبــة الراسبين حسب المــادة الراسبين فيها
Dim strSearh As String
Select Case CombSClas.ListIndex
Case 0
strSearh = "Semester=3 AND tr1 < 40"
Case 1
strSearh = "tr2 < 40"
Case 2
strSearh = "tr3 < 40"
Case 3
strSearh = "tr4 < 40"
Case 4
strSearh = "tr5 < 80"
Case 5
strSearh = "tr6 < 40"
Case 6
strSearh = "tr7 < 40"
Case 7
strSearh = "tr8 < 40"
Case 8
strSearh = "tr9 < 40"
Case 9
strSearh = "tr10 < 40"
Case 10
strSearh = "tr11 < 40"
Case 11
strSearh = "tr12 < 40"
End Select
Call ConnectionDatabase
If Rs.State = adStateOpen Then Rs.Close
Rs.Open "SELECT * FROM [TBL_Final5] WHERE [CClas]='" & Trim(CombCClass.Text) & "' AND [Clas] = '" & Trim(CombClass.Text) & "' AND tag=3 " & strSearh & " AND [Category] = '" & Trim(TextCategory.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
'
Form_Exim2.LCount.Caption = " عدد الطلبــة الراسبين في مــادة : " & " " & Form_Exim2.CombSClas.Text & " - " & Rs.RecordCount & ""
'
Exit Sub
'
ShowDegree 1
''''''''''''''
TextB_GotFocusقال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
