22-05-21, 09:20 PM (آخر تعديل لهذه المشاركة : 23-05-21, 08:57 AM {2} بواسطة مصمم هاوي.)
ليس لي إلا الأساتذة الكرام بعد أن عجزتُ صراحةً عن معرفة الخطأ في الإدخال اليدوي والحفظ من خلال MSHFlexGrid1.
فهل يمكن التعديل على المثال ؟
مع طلب بسيط هو: عند اختيار من (CombSemester) و (CombõExim) كيف يتم الحفظ في جدول قاعدة البيانات (TBL_Final2)
فطريقة إدخال البيانات دفعة واحدة أسرع وأوفر للجهد من التكست بوكس، خاصة مع العدد الكبير للطلبــة
بالإضافة إلى أن MSHFlexGrid أفضل من أداة MSFlexGrid من حيث الخصائص, وكذلك احتاج إلى تظليل الدرجة لسهولة الحفظ والتعديل
والمطلوب
أولا: استدعاء أسماء الطلبة حسب الصف والشعبة وألقيد ورقم الجلوس والمراقبة من جدول بيانات الطلبة.
ثانيا: حفظ البيانات في جدول الدرجات حسب المادة.
ثاليا: يشترط حفظ أرقام الفصل الدراسي والدور من الكومبوكس
وأشكر الأستاذ القدير أحمد منصور فقد استفدتُ من مثاله وأحاول تطبيقه؛ ولكن لايمكن مجاراة الكبار (ابتسامة)
(23-05-21, 10:58 AM)Ahmed_Mansoor كتب : أهلا بك أخي الكريم, يرجى التوضيح أكثر ماهي الحقول التي يحفظ فيها قيم ومن أين تأخذ قيمها.
حياك الله وبياك وجعل الجنة مأوى لك ولأسرتك الكريمة أستاذي العزيز أحمد منصور
والمثال قديم معدل بدل من استخدام أداة الداتا قريد ثم استخدام أداة الفليكس قريد لمرونتها وشكلها الجمالي وقابليتها لتوسيط الكتابة وتضليل الكتابة
وبالنسبة لسؤالك عن القيم فهى كاتالي:
أولاً: يتم استدعاء أسماء الطلبة والصف الدراسي والشعبة وصفة القيد ورقم الجلوس ورقم المراقبة من جدول ( TBL_Student)
ثانياً: يتم استدعاء المواد الدراسية حسب الصف والشعبة من جدول (TBL_SCless)
ثالثاً: يتم تسجيل الدرجات حسب المــادة الدراسية للصف والشعبة في جدول (TBL_Final2)
المشكلة الأولى: هى كيفية استدعاء البيانات المحددة من جدول (TBL_Student) وعرضها في الفليكس قريد
وكذلك عند إختيار رقم الصف الدراسي والدور من الكومبوكس؛ كيف يتم حفظ القيم المختارة في جدول (TBL_Final2)
المشكلة الثانية: كيفية حفظ الدرجات حسب مـادة الصف الدراسي والشعبة في جدول (TBL_Final2)
للتوضيح: قيم (CombSemester + CombõExim) هذين استخدمها في عملية الجمع, وتشتغل تمام .
أتمنى أنني قد وفقتُ في شرح المطلــوب, والله خيرُ موفِق
25-05-21, 02:47 AM (آخر تعديل لهذه المشاركة : 25-05-21, 02:48 AM {2} بواسطة مصمم هاوي.)
(24-05-21, 10:00 AM)Ahmed_Mansoor كتب : أهلا بك أخي الكريم , اللهم آمين وإياك أخي العزيز, تم تعديل المثال قم بالتجربه إذا كان هو ماتريد, بالتوفيق .
أخي الحبيب وأستاذي القدير أحمد منصور
عندما تبعثرت الحروف وتقطعت الكلمات عندها تشتت الأفكار وعجز اللسان عن الكلام.
فكيف اوفيك حقك من الشكر والتقدير وأنت لم تبخل بعطاءك الجميل وخيرك العميم وعلمك الغزير.
ولكن أسأل رب السموات والارضين أن ينزلك منازل العليين من النبيين والمرسلين والصديقين والصالحين.
(24-05-21, 10:00 AM)Ahmed_Mansoor كتب : أهلا بك أخي الكريم , اللهم آمين وإياك أخي العزيز, تم تعديل المثال قم بالتجربه إذا كان هو ماتريد, بالتوفيق .
أخي الحبيب وأستاذي القدير أحمد منصور
عندما تبعثرت الحروف وتقطعت الكلمات عندها تشتت الأفكار وعجز اللسان عن الكلام.
فكيف اوفيك حقك من الشكر والتقدير وأنت لم تبخل بعطاءك الجميل وخيرك العميم وعلمك الغزير.
ولكن أسأل رب السموات والارضين أن ينزلك منازل العليين من النبيين والمرسلين والصديقين والصالحين.
أهلا بك أخي العزيز مصمم هاوي، أشكرك جزيل الشكر على كلماتك ودعواتك الطيبه أسأل الله أن يتقبلها لي ولك جزاك الله كل خير وأرجو من الله لي ولك دوام التوفيق والنجاح .
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
أستاذي الحبيب
أثقلت عليك الأسئلة ولكن ليس لنا من معين في مثل الأمور بعد آلله تعالى إلا أهل الخبرة، وخاصة أن هذا ألبرنامج ماهو إلا صدقة وأتمنى أن تكون جارية لوجه تعالى.
وهذا أحد أسباب اصراري على اكماله وهو الآن في المرحلة الأخيرة.
البرنامج يعمل لدى المعهد بامتياز ولكن رصد الدرجات دائما يأخذ وقتا وصراحة لا أحب الاكسل.
نعود إلى مثالنا السابق:
قمت بتطبيق ماتفضلت به في فورم جديد بحيث أنني أرصد درجات اعمال الجزئي وامتحان الجزئي واجمع الدرجات ولكن يظهر خطأ هذا اولا.
والمقصود أن الفورم الأول مخصص لرصد درجات اعمال وامتحان الجزئي.
والفورم الثاني مخصص لرصد درجات نهاية الفصل حيث أن مجموع درجات اعمال الفترة وامتحان الفترة هى درجات أعمال الفصل و باخد قيمتها من الجدول TBL_Final1
وبالتالي نقوم برصد درجات نهاية الفصل فقط
صدقني والله العظيم حاولت أعمل على هذا الأمر ولكنني فشلت، وأساسا حتى مجال تخصصي بعيد جدا عن البرمجة غير أنني بمساعدة هذا المنتدى العظيم استطعت أن أتعلم الكثير من الأمور البرمجية
اكتب من الجوال ولذى أجد صعوبة في الكتابة والتعبير..
الرجاء تعديل هذا الكود حيث يظهر خطأ كما هو موضحٌ في الصـورة المرفقة والمثال موجود في رد الأستاذ أحمد منصـور جزاهُ الله خيراً
كود :
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
(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
10-07-21, 02:47 AM (آخر تعديل لهذه المشاركة : 10-07-21, 02:50 AM {2} بواسطة مصمم هاوي.)
(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
الخطا انك عملت اسم مشابه لاسم الجدول في
as TBL_Final2
الصحيح تعطيه اسم مختلف عن الجدول اللي في الاستعلام مثلا
as TBL_F2
وكمان لازم تغير اسم الجدول في اسماء الحقول مثل
TBL_Final2.Semester
فيكون
TBL_F2.Semester
بارك الله فيك وجزاك كل خير على اهتمامك ولاحظ غير مأمور أن الحقلين المطلوبين on . To
في نفس الجدول TBL_Final2
وهذه الإشكالية عندي بداية وكلامك أو ردك ينطبق في حالة الاستدعاء من الجدولين TBL_Final1
TBL_Final2