[مصمم هاوي]

هل ممكن التعديل على كود الاستعلام وإدراج (ناجح) أو (راسب) ومن ثم عرض الطلبة الناجحين في الجدول

كود :

If MSHFlexGrid1.Row = 0 Then Exit Sub

If Trim(CombCategory.Text) = "" Then
MsgBox "يجب إختيار نظام الدراسة", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه"
Exit Sub
End If

If Trim(CombClass.Text) = "" Then
MsgBox "يجب إختيار الصف", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه"
Exit Sub
End If

If Trim(CombCClass.Text) = "" Then
MsgBox "يجب غختيار الشعبة", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه"
Exit Sub
End If

ComboStudent.Clear
If Trim$(CombCategory.Text) = "" Or Trim$(CombClass.Text) = "" Or Trim$(CombCClass.Text) = "" Then Exit Sub
Call ConnectionDatabase
If rs.State = adStateOpen Then rs.Close
rs.Open "Select * From Q_Enrolt Where Category='" & Trim$(CombCategory.Text) & "' And Clas='" & Trim$(CombClass.Text) & "'And CClas='" & Trim$(CombCClass.Text) & "' order by iD", DB, adOpenStatic, adLockOptimistic
   
If rs.RecordCount > 0 Then
rs.MoveFirst
   Do Until rs.EOF
   
          ComboStudent.AddItem rs![Name_Student]
          rs.MoveNext
   Loop
   '
   rs.MoveFirst
'
End If

MSHFlexGrid1.Clear
If rs.RecordCount > 0 Then
   
       Set MSHFlexGrid1.DataSource = rs
Else
       Set MSHFlexGrid1.DataSource = Nothing

End If

MSHFlexgridAlignment
'
'áÇÚÇÏÉ ÊÑÊíÈ ÇáÊÓáÓá

   For I = 0 To rs.RecordCount - 1
       MSHFlexGrid1.Row = I + 1
       MSHFlexGrid1.Text = I + 1
   Next I
   

Label00.Caption = rs.RecordCount