[Taha Okla]

عدل كود التحقق إلى الكود التالي :

كود :

   Dim strSearh As String, strS2 As String
   
   strS2 = "tr" & CStr(CombSClas.ListIndex + 1)
   
   Select Case CombSClas.ListIndex
       Case 0
           strSearh = "Semester=3 AND tr1 < 40 AND tr1 > 34"
       Case 1, 2, 3, 5, 6, 7, 8, 9, 10, 11
           strSearh = strS2 & " < 40 And " & strS2 & " > 34"
       Case 4
           strSearh = "tr5 < 80 And tr5 > 74"
   End Select