أريد التعديل على الكود التالي حسب التالي:
جلب الدرجات المحصورة بين (34) و (40)
وبين (75) و(80)
أي: التعديل على كود تقرير الدرجات الحرجة (التي تحتاج إلى درجات قليلة للنجاح) حسب الحقول التالية:
* (tr1 - tr2 - tr3 - tr4 - tr6 - tr7 - tr8 - tr9 - tr10 - tr11 - tr12) إذا كانت الدرجات أقل من (40) وأكبر من (34)
ما عدا (tr5) إذا كانت الدرجة أقل من (80) وأكبر من (74)
المشكلة في الكود أنه يعرض درجات المواد في التقرير بدون أن يتحقق الشرط المطلوب
عذراً على الكلمات العربية التي تظهر على شكل رموز
جلب الدرجات المحصورة بين (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
عذراً على الكلمات العربية التي تظهر على شكل رموز
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ