[مصمم هاوي]

بارك الله فيكم تم حل المشكلة بهذا الكود، لكنه ينقص شرط نحديد الدور (الأول أو الثاني / نظام الدراسة / الصف / الشعبة) حسب الإختيار من الكومبوكس
فنأمل من الأستاذة التكرم بحل هذه الجزئية

كود :

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

If CombClas.Text = "" Then
MsgBox ("الرجـاء ... إختر اسم الصف الدراسي"), vbCritical, ("تنبيه")
CombClas.SetFocus
Exit Sub
End If

If CombCClas.Text = "" Then
MsgBox ("الرجـاء ... إختر اسم الشعبة"), vbCritical, ("تنبيه")
CombCClas.SetFocus
Exit Sub
End If

If CombExim.Text = "" Then
MsgBox ("الرجـاء ... إختر اسم الدور"), vbCritical, ("تنبيه")
CombExim.SetFocus
Exit Sub
End If

Dim X As String
X = CombExim.Text

Call ConnectionDatabase
If rs.State = adStateOpen Then rs.Close
rs.Open "Select ID,Name_Student,Clas,CClas,Category," & _
"SETNO2,ToTal,FINAL,takdeer,result,tag From Q_Semesters_Total where result = 'ناجح' order by Name_Student", 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
'