[مصمم هاوي]

أريد التعديل على الكود التالي حسب التالي:
جلب الدرجات المحصورة بين (34) و (40)
وبين (75) و(80)
أي: التعديل على كود تقرير الدرجات الحرجة (التي تحتاج إلى درجات قليلة للنجاح) حسب الحقول التالية:
* (tr1 - tr2 - tr3 - tr4 - tr6 - tr7 - tr8 - tr9 - tr10 - tr11 - tr12) إذا كانت الدرجات أقل من (40) وأكبر من (34)  
ما عدا (tr5) إذا كانت الدرجة أقل من (80) وأكبر من (74)

المشكلة في الكود أنه يعرض درجات المواد في التقرير بدون أن يتحقق الشرط المطلوب

كود :

Dim strSearh As String
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 = "tr" & CStr(CombSClas.ListIndex + 1) & " < 40"
       strSearh = "tr" & CStr(CombSClas.ListIndex + 1) & " > 34"
  
   Case 4
       strSearh = "tr5 < 80 and tr5 > 74"
End Select

Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close
RS.Open "SELECT * FROM TBL_Final2 Where Category='" & Trim(CombCategory.Text) & "' And Clas='" & Trim(CombClass.Text) & "' And CClas='" & Trim(CombCClass.Text) & "' And Semester=" & Trim$(TextExim.Text) & " order by ID ASC", DB, adOpenStatic, adLockOptimistic

If RS.RecordCount <= 0 Then
   If RS.State = adStateOpen Then RS.Close
   MsgBox " ÚÝÜÜæÇð ... áÇ ÊæÌÏ ÏÑÌÜÜÜÇÊ ÍÑÌÜÜÉ Ýí ÇãÊÍÇäÜÜÇÊ ÇáÏæÑ ÇáÃæá Ýí ãÜÜÇÏÉ : " & " " & CombSClas.Text & " - ááÕÜÜÜÝ : " & CombClass.Text & " - ÇáÔÚÈÜÜÜÉ : " & CombCClass.Text & " - ÕÝÉ ÇáÞíÏ : " & CombCategory.Text & "", vbInformation + vbMsgBoxRight, "ÊäÈíÜÜå ..."
   Exit Sub: End If

If RS.State = adStateOpen Then RS.Close

x = CombClass.Text

Unload Report_FinaLAC5

Report_FinaLAC5.DataControl1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\Data.Base\Data_Base.mdb;Persist Security Info=False"
Report_FinaLAC5.DataControl1.Source = "Select * From TBL_Final2 Where Category='" & Trim(CombCategory.Text) & "' And Clas='" & Trim$(CombClass.Text) & "' And CClas='" & Trim$(CombCClass.Text) & "' And Semester=" & Trim$(TextExim.Text) & " And " & strSearh & ""

Report_FinaLAC5.Caption = " ßÔÜÜÝ ÈÇáÏÑÌÜÜÇÊ ÇáÍÑÌÉ Ýí ÇãÊÍÜÜÇä ÇáÏæÑ ÇáÃæá Ýí ãÜÜÇÏÉ : " & " " & Form_Cdegree.CombSClas.Text & "  - ÇáÔÚÈÜÜÜÉ : " & Form_Cdegree.CombCClass.Text & "  - ááÕÜÜÜÝ : " & Form_Cdegree.CombClass.Text & "  - ÕÝÉ ÇáÞíÏ : " & Form_Cdegree.CombCategory.Text & "  - ááÚÇã ÇáÏÑÇÓí : " & Form_school.TextM.Text
Report_FinaLAC5.LExim.Caption = " ßÔÜÜÝ ÈÇáÏÑÌÜÜÇÊ ÇáÍÑÌÉ Ýí ÇãÊÍÜÜÇä ÇáÏæÑ ÇáÃæá Ýí ãÜÜÇÏÉ : " & " " & Form_Cdegree.CombSClas.Text & "  - ÇáÔÚÈÜÜÜÉ : " & Form_Cdegree.CombCClass.Text & "  - ááÕÜÜÜÝ : " & Form_Cdegree.CombClass.Text & "  - ÕÝÉ ÇáÞíÏ : " & Form_Cdegree.CombCategory.Text & "  - ááÚÇã ÇáÏÑÇÓí : " & Form_school.TextM.Text

Report_FinaLAC5.Show: Report_FinaLAC5.Visible = True: Report_FinaLAC5.Show

عذراً على الكلمات العربية التي تظهر على شكل رموز