(23-05-21, 10:58 AM)Ahmed_Mansoor كتب : أهلا بك أخي الكريم, يرجى التوضيح أكثر ماهي الحقول التي يحفظ فيها قيم ومن أين تأخذ قيمها.

(24-05-21, 10:00 AM)Ahmed_Mansoor كتب : أهلا بك أخي الكريم , اللهم آمين وإياك أخي العزيز, تم تعديل المثال قم بالتجربه إذا كان هو ماتريد, بالتوفيق .

(25-05-21, 02:47 AM)مصمم هاوي كتب :

(24-05-21, 10:00 AM)Ahmed_Mansoor كتب : أهلا بك أخي الكريم , اللهم آمين وإياك أخي العزيز, تم تعديل المثال قم بالتجربه إذا كان هو ماتريد, بالتوفيق .

أخي الحبيب وأستاذي القدير أحمد منصور
عندما تبعثرت الحروف وتقطعت الكلمات عندها تشتت الأفكار وعجز اللسان عن الكلام.
فكيف اوفيك حقك من الشكر والتقدير وأنت لم تبخل بعطاءك الجميل وخيرك العميم وعلمك الغزير.
ولكن أسأل رب السموات والارضين أن ينزلك منازل العليين من النبيين والمرسلين والصديقين والصالحين.

(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

(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