[مصمم هاوي]

(22-11-21, 10:56 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

الكود لم يعمل ليدك بسبب خطأ برمجي حيث أن حقل "Semester" حقل رقمي في قاعدة البيانات
بينما في الكود وضعت له اشارة البحث النصي الشرطة العلوية "  '  " قم بمسحها من الكود وسيعمل.

أما عن كفاءة الكود في البحث - فلا أدري - عند عرض النتائج تعرف هل هذا ما تريد ام لاا - وهل الشروط التي وضعتها صحيحة أم لا  ..

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

كود :

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

If Trim(Combccless.Text) = "" Then
       MsgBox "الرجـــاء ... إختيار الشعبة", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه"
       Combccless.SetFocus
       Exit Sub: End If

Set RS = New ADODB.Recordset
If RS.State = adStateOpen Then RS.Close
RS.Open "Select ID,Name_Student,Clas,CClas,Semester,result,tag from TBL_Final1 Where Semester  union all select * from TBL_Final2 Where Semester=3" & _
"' AND [CClas] = '" & Trim(Combccless.Text) & _
"' And result='äÇÌÍ'  AND [Clas] = '" & Trim(Combcless.Text) & _
"'", db, adOpenStatic, adLockOptimistic

Lsum.Caption = " عدد طلبة الصف الناجحين : " & RS.RecordCount & ""

L1.Clear
For I = 0 To RS.RecordCount - 1
L1.AddItem RS![Name_Student]
L1.ItemData(L1.NewIndex) = RS![ID]
RS.MoveNext
Next
'

والشروط صحيحة ولكن الكود غير شغال