[مصمم هاوي]

(10-07-21, 01:06 AM)y6767 كتب :

(10-07-21, 12:50 AM)مصمم هاوي كتب :

(08-06-21, 03:00 PM)مصمم هاوي كتب : الرجاء تعديل هذا الكود حيث يظهر خطأ كما هو موضحٌ في الصـورة المرفقة والمثال موجود في رد الأستاذ أحمد منصـور جزاهُ الله خيراً

كود :

Private Sub Get_Students_Info(gClass As String, _
                             gCClass As String, _
                             gSClass As String, _
                             gSemester As String, _
                             gExim As String)

If Trim$(gClass) = "" Or Trim$(gCClass) = "" Or Trim$(gSClass) = "" Or Trim$(gSemester) = "" Or Trim$(gExim) = "" Then
  Text1.Visible = False
  MSHFlexGrid1.Clear
  MSHFlexGrid1.Rows = 2
  Call MSHFlexgridAlignment
  Exit Sub
End If

Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close
RS.Open "Select TBL_Student.ID as ÇáÑÞã" & _
             ",TBL_Student.Name_Student as [ÇÓÜÜÜã ÇáØÇáÜÜÈ]" & _
             ",TBL_Student.Clas as ÇáÕÜÝ" & _
             ",TBL_Student.CClas as ÇáÔÚÈÉ" & _
             ",TBL_Student.SETNO1 as ÇáÌáæÓ" & _
             ",TBL_Student.SETNO2 as ÇáãÑÇÞÈÉ" & _
             ",TBL_Student.Category as ÇáÞíÏ" & _
             ",TBL_Final2.Semester as ÇáÝÕá" & _
             ",TBL_Final2.on" & CombSClas.ListIndex + 1 & " as ÃÚãÜÜÇá " & _
             ",TBL_Final2.to" & CombSClas.ListIndex + 1 & " as ÇãÊÍÜÇä " & _
             ",TBL_Final2.tr" & CombSClas.ListIndex + 1 & " as ÇáãÌãÜæÚ " & _
             "From (Select ID,Semester,tag,on,to,tr" & CombSClas.ListIndex + 1 & " From TBL_Final2 Where Semester=" & Trim$(gSemester) & " And tag=" & Trim$(gExim) & ") as TBL_Final2 " & _
             "right join TBL_Student " & _
             "on TBL_Final2.ID = TBL_Student.ID " & _
             "Where TBL_Student.Clas='" & Trim(gClass) & "' And TBL_Student.CClas='" & Trim$(gCClass) & "' And TBL_Student.Category='" & Trim$(TextCategory.Text) & "' And TBL_Student.Result='" & Trim$(Textresult.Text) & "' order by TBL_Student.ID", DB, adOpenStatic, adLockOptimistic

LSUM.Caption = " عدد طلبــة الصــف : " & RS.RecordCount

If RS.RecordCount > 0 Then
   
       Set MSHFlexGrid1.DataSource = RS
       Call MSHFlexgridAlignment
MSHFlexGrid1.Col = 8
MSHFlexGrid1.Row = 1
Show_TextBox

Else
Text1.Visible = False
MSHFlexGrid1.Clear
MSHFlexGrid1.Rows = 2
       Set MSHFlexGrid1.DataSource = Nothing
Call MSHFlexgridAlignment

End If

End Sub

هل يوجد حل؟؟؟؟

الخطا انك عملت اسم مشابه لاسم الجدول في
as TBL_Final2

---

الصحيح تعطيه اسم مختلف عن الجدول اللي في الاستعلام مثلا
as TBL_F2

---

وكمان لازم تغير اسم الجدول في اسماء الحقول مثل
TBL_Final2.Semester
فيكون
TBL_F2.Semester

بارك الله فيك وجزاك كل خير على اهتمامك ولاحظ غير مأمور أن الحقلين المطلوبين on . To
في نفس الجدول TBL_Final2
وهذه الإشكالية عندي بداية وكلامك أو ردك ينطبق في حالة الاستدعاء من الجدولين  TBL_Final1
TBL_Final2