omran2015

بارك الله فيك أخي العزيز منتصر فقد استطعت أن أعدل على ملفك الأول وأجلب النتائج وهو يعمل بكفاءة وسأجرب تعديلك الأخير مرة أخرى جبر خاطرك وأسعد أوقاتك

بارك الله فيكما أحبابي الأكارم وأساتذتي الأفاضل ومن فضلك اخي الفاضل منتصر هل أكملت جميلك لأن النتيجة لا تظهر في الاستعلام نتيجة مجموع الفصلين = المجموع - التقدير - النسبة - عدد مواد الرسوب - النتيجة ليكتمل الاستعلام نهائياً؛ لأنني جربت ففشلت خاصة أن النتيجة موجودة في الجدول الرئيسي

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

أحسنت بارك الله فيك وجزاك كل خير وفتح عليك فتح العارفين وزادك الله بسطةً في العلم الجسم هذا هو المطلوب تماماً وبما أن الاستعلام خرج بهذا الشكل الرائع و التنسيق الجمالي فأتمنى تعديل بسيط فقط ليشمل: 1- اســم الطالب 2- الصف الدراسي 3- اسم المادة وليس رقمها علماً بأن عدد المواد الدراسية = (9 ) كما في الجدول TBL_Coursess على الترتيب الحقول حقل رقم المادة = CoursesID حقل اسم المادة = CoursesName 1 = التربية الإسلامية 2 = اللغة العربية 3 = الكتابة 4 = اللغة الأنجليزية 5 = الحاسوب 6 = الرياضيات 7 = العلوم 8 = التاريخ 9 = الجغرافيا بصراحة أعرف أن هناك خبراء حباهم الله بالخبرة والذكاء والفطنة لحل هذه المشكلة انتظر رفع الملف

لا عليك أخي الحبيب قلت لعل هناك طريقة أخرى تغني عن تقسيم الجدول إلى ثلاث استعلامات وتم جمع هذه الاستعلامات الثلاثة في استعلام واحد القصد: هل يمكن استخدام الوحدات النمطية ثم جلب البيانات في استعلام واحد فقط بدل الاستعلامات الكثيرة

بارك الله فيك على سرعة اهتمامك بالموضوع ولكن طريقة استخلاص الكود عن طريق تجميع الاستعلامات أعرفها جيداً وهذا هو الكود المستخدم ويعمل بنجاح SELECT Q_Students.StudentID, Q_Students.StudentName, Q_Students.ClassName, Q_S1.StudentID, Q_S1.SemesterID, Q_S1.on1, Q_S1.on2, Q_S1.on3, Q_S1.on4, Q_S1.on5, Q_S1.on6, Q_S1.on7, Q_S1.on8, Q_S1.on9, Q_S1.to1, Q_S1.to2, Q_S1.to3, Q_S1.to4, Q_S1.to5, Q_S1.to6, Q_S1.to7, Q_S1.to8, Q_S1.to9, Q_S1.tr1, Q_S1.tr2, Q_S1.tr3, Q_S1.tr4, Q_S1.tr5, Q_S1.tr6, Q_S1.tr7, Q_S1.tr8, Q_S1.tr9, Q_S2.StudentID, Q_S2.SemesterID, Q_S2.on1, Q_S2.on2, Q_S2.on3, Q_S2.on4, Q_S2.on5, Q_S2.on6, Q_S2.on7, Q_S2.on8, Q_S2.on9, Q_S2.to1, Q_S2.to2, Q_S2.to3, Q_S2.to4, Q_S2.to5, Q_S2.to6, Q_S2.to7, Q_S2.to8, Q_S2.to9, Q_S2.tr1, Q_S2.tr2, Q_S2.tr3, Q_S2.tr4, Q_S2.tr5, Q_S2.tr6, Q_S2.tr7, Q_S2.tr8, Q_S2.tr9, Q_S3.StudentID, Q_S3.SemesterID, Q_S3.on1, Q_S3.on2, Q_S3.on3, Q_S3.on4, Q_S3.on5, Q_S3.on6, Q_S3.on7, Q_S3.on8, Q_S3.on9, Q_S3.to1, Q_S3.to2, Q_S3.to3, Q_S3.to4, Q_S3.to5, Q_S3.to6, Q_S3.to7, Q_S3.to8, Q_S3.to9, Q_S3.tr1, Q_S3.tr2, Q_S3.tr3, Q_S3.tr4, Q_S3.tr5, Q_S3.tr6, Q_S3.tr7, Q_S3.tr8, Q_S3.tr9, Q_S3.TotalSum, Q_S3.average, Q_S3.Grade, Q_S3.FailCount, Q_S3.Result FROM Q_S3 INNER JOIN (Q_S2 INNER JOIN (Q_S1 INNER JOIN Q_Students ON Q_S1.StudentID = Q_Students.StudentID) ON Q_S2.StudentID = Q_Students.StudentID) ON Q_S3.StudentID = Q_Students.StudentID; لكن لا أريد هذه الطريقة !!! قلت لعله يوجد طريقة اخرى غير هه الطريقة والتي أضطر إلى تقسيم أو تجزئة الجدول إلى ثلاث استعلامات ثم عمل استعلام يتم تجميع فيه هذه الاستعلامات الثلاث في استعلام واحد والجدول يوضح نجاح هذه الطريقة

عندي جدول باسم TBL_Final1 يتم فيه حفظ درجات الطلاب عن طريق الفيجوال دوت نت 2019 المشكلة أريد عرض الدرجات عمودياً في التقرير حسب الفصول الدراسية وفق الشرح الآتي: درجات الفصل الأول درجات الفصل الثاني مجموع درجات الفصلين أعمال امتحان أعمال امتحان المجموع الطريقة في حفظ الدرجات أفقياً حسب المصفوفات التالية: SemesterID = رقم الفصل الدراسي 1 = الفصل الأول 2 = الفصل الثاني 3 = مجموع درجات الفصلين حقول الدرجات حسب عدد المواد (9) مواد دراسية 1- المصفوفة on = درجات أعمال الفصلين الأول والثاني 2- المصفوفة to = درجات امتحان الفصلين الأول والثاني 3- المصفوفة tr = مجموع درجات أعمال الفصلين الأول والثاني المطلوب: كيف أستطيع تقسيم الجدول TBL_Final1 إلى ثلاث استعلامات بحيث يكون لكل فصل دراسي استعلام حتى أستطيع عرض الدرجات في التقرير بطريقة عمودية؛ لأنني قمت بتقسيم الجدول إلى ثلاث استعلامات وجعلت لكل فصل دراسي استعلام ولكن أراها طريقة غير مقبولة ومن الشهل التلاعب بهذه الاستعلامات فهل يوجد طريقة أذكى وأضمن وأفضل من هذه الطريقة علماً بأن طريقة التقرير وتنسيقه موضحة في الصورة المرفقة مع قاعدة البيانات مرفق قاعدة البيانات DataBase.zip

بارك الله فيك أستاذ (أبو ) أبا خليل فقد أطلعت على قواعد المشاركة، والنقطة الثالثة عشرة هى التي تقصدها: 13. - يمنع وضع السؤال داخل المرفق، يجب شرح السؤال بالتفصيل لتعم الفائدة، ولا مانع من اضافة صورة توضيحية ولهذا فإنني أتأسفُ أشد الأسف لعدم انتباهي لهذه النقطة؛ لأن المحاولات المتكررة التي أجريتها وفشلت أفقدتني صوابي

اساتذتي الكرام أريد التعديل على الاستعلام حسب الشرح المرفق في ملف وورد مع قاعدة البيانات .......................... عندي 4)) جـداول وهى: 1: جدول الطلاب (TBL_Student) 2: جدول الدرجات (TBL_grades) :3جدول المواد الدراسية (TBL_Subject) :4 جدول الفصول الدراسية – السمستر - (TBL_Semester) الشرح: لدي قاعدة بيانات تحتوي على مجموعة من الجداول وعلى افتراض الآتي: :1 نفترض أن عدد المواد الدراسية (8) كما في الملف المرفق (قابلة للزيادة والنقصان). 2: كذلك نفترض أن عدد الصفوف الدراسية (9) (قابلة للزيادة والنقصان). :3 وكذلك معلوماً أن عدد الفصول الدراسية (2😞 الفصل الأول + الفصل الثاني. المطلوب: بعد فشل المحاولات الكثيرة للوصول إلى النتيجـة فأرجــو التعديل على استعلام (Q_grades) بحيث وفق الشرح المرفق في ملف word المقصود: · عند اختيار الصف من كومبوكس الصف الدراسي · واختيار المادة الدراسية للصف الدراسي · وكذلك اختيار رقم الفصل الدراسي · يتم تعبئة الداتا قريدفيو باسم الصف والمادة الدراسية ورقم الصف فقط كما في الاستعلام · في حالة لم يتم تسجيل درجات مـادة معينة لطالب معين في صف مـا فإن حقول الاستعلام (ON – TO - TR) تظهر فارغة أو صفر · كما في موضح باللون الأصفر في الجدول لمـادة اللغة الإنجليزية – الفصل الأول هذا الشرح يشمل جميع الطلبـة . تعديل الاستعلام.rar

لو طلبت تنشيط منتدى الدوت نت لكان أفضل، فأنا أعمل على الفيجوال بيسك6 لسنوات عديدة. وهى لغة جميلة وستظل لغة سهلة وجميلة حتى لو تم رفع الدعم عنها. ولكن يجب تنشيط منتدى الدوت نت فهو بحاجة لإزالة الغبار عن جدرانه المهترئة. وعندما تدخل لعالم الدوت نت ستجد الفرق الكبير بينها وبين الفيجوال بيسك6 وهذا عن تجربة. ولعلمك كنت سابقا أرفض الانتقال من لغتي المحببة الفيجوال بيسك6؛ ولكنني بعد دخولي إليها وجدت عالما مختلفا جدا حتى صرت انظر للغتي الأم أنها لغة باهتة شاحبة. عذرا إليك لغتي الجميلة؛ ولكن المصلحة البرمجية تقتضي التطوير

جعله الله في ميزان حسناتك يوم القيامة

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

بارك الله فيك وجزاك كل خير استاذي الفاضل أبو خليل، وصراحة لم ار ردك إلا الساعة بسبب تذبذب النت عندنا. اطلع عليه عند العودة للمنزل وأخبرك رائي

أعذرني كنت في سفر خارج بنغازي، وما وصلت إلا أمس الخميس ليلا، وقد شاهدت الملف منذ قليل وتبين لي أنه يؤدي الغرض المطلوب مع بعض التعديلات الطفيفة التي لا تذكر. بارك الله فيك وجزاك كل خير أخي الحبيب على المجهود المبذول والرائع والفكرة الجميلة في حل الإشكالية، ويكفي أنها قلصت عدد الاستعلامات.

نعم هذا هو بارك الله فيك وجزاك كل خير أخي الحبيب

عملٌ ممتازٌ وجهدٌ جبارٌ شاكراً لك اهتمامك الكبير أخي الفاضل abuuahmed said ولكن أريد أيضا إدراج درجات الأعمال (ON) ودرجات الامتحان (TO) في الاستعلام حتى يتم إظهارها في التقرير وكذلك استخراج النسبة المئوية والتقدير والنتيجة (راسب - ناجح) وعدد مواد الرسوب

بارك الله فيك وجزاك كل خير أنا الآن خارج المنزل واتصفح من الجوال وعندما أعود للمنزل اطلع على المثال واخبرك بالنتيجة

سبحان الله !!! كلما صادفتني مشكلةً معقدةً لجأتُ إلى هذا المنتدى الرائع, والذي ساعدني كثيراً في حل جميع المشاكل البرمجية في برامجي اكسس واكسل وصراحةً إلى هذه الساعة لم أصادف منتدى رائعاً كهذا المنتدى. ولا أقول هذا تزلفاً أو مجاملة؛ فإنني قد استفدت كثيراً منه وتعلمت أشياء كنتُ أجهلها تماماً. واليوم أواجهُ مشكلة صعبةٌ علىَّ وسهلةٌ عليكم وهى: أريد أن أقوم بتجزئة عمود المواد الدراسية إلى عدة أعمدة بحيث أن كل مادة تكون في عمود حتى أستطيع أن أظهر التقرير أفقياً ويكون في استعلام الجدول المطلوب العمل عليه هو (TBL_grades) والحقل هو (Subject) للعلم قمتُ بمحاولة تتمثل في عمل استعلام لكل مادة ثم إنشاء استعلام واحدة من جميع استعلامات المواد الدراسية؛ ولكن هذه الطريثة أراها غير ذات جدول لا سيما إن تغيرت مادة أو تم زيادة مادة دراسية. عموماً المحاولة التي قمتُ بها موجودة في القاعدة والاستعلام المجمع هو (Q_result) فهل يوجد طريقة أفضل من هذه الطريقة بارك الله فيكم وجزاكم كلّ خير ؟ Gradedata.rar

أستاذ أبو خليل هل تتكرم بارك الله فيك وجزاك كل خير بالتعديل على الملف المرفق بحيث تظهر البيانات في الاستعلام Data_Base.rar

السلام عليكم ورحمة الله وبركاته أرجو سؤال حيرني جدا وربما أجد الإجابة الشافية عندكم وهو: اعمل بمشروع على الفيجوال دوت نت ومشكلتي في جلب بيانات من الجدولين وعرضها في الداتا قريدفيو بسبب أن جدول بيانات الطلاب يوجد به بيانات بعكس جدول رصد الدرجات لا يوجد به بيانات وهو مرتبط مع جدول الطلاب. وعند انشاء استعلام لا تظهر البيانات. السؤال: كيف امشي استعلام من جدولين أحدهما يوجد به بيانات والآخر فارغ بحيث تظهر البيانات في الاستعلام؟ علما انني قمت بإضافة سجل افتراضي واحد فنجح الاستعلام وتم عرض البيانات؛ ولكن هذا حل غير منطقي باعتبار السجل المضاف وهمي. ارجو ان اجد عندكم الحل عن طريق الاستعلام حتى أطبقه في مشروعي

تم بحمد الله وفضله حل الإشكالية وجزى الله كل خير من قدم نصيحة أو استشارة فنية

انتظر ردك د. كاف يار

بارك الله فيك أخي الحبيب وزادك الله من فضله, وجارٍ ترقية المشروع ولكن هذا المشروع كبير في جحمه وعملتُ عليه أكثر من ثلاث سنوات وهو بمثابة البرنامج الرئيسي في المعهد. وهذا هو الكود بدون جزئية استخراج عدد مواد الرسوب Private Sub Command1_Click() '''''''''''''''''''''''''''' Dim RsSum As New ADODB.Recordset Dim RsShow As New ADODB.Recordset Dim s As String s = "100" If RsShow.State = 1 Then RsShow.Close RsShow.Open "select * from TBL_Final1", DB, adOpenKeyset, adLockPessimistic If RsShow.RecordCount > 0 Then Do While Not RsShow.EOF If RsSum.State = 1 Then RsSum.Close RsSum.Open "select ID,tag,TOTAL,result,FINAL,takdeer,iif([result]='راسب',0,(tr1+tr2+tr3+tr4+tr5+tr6)), " _ & " IIf([tr1]<50 And [tr2]<50 And [tr3]<50 And [tr4]<50 And [tr5]<50 And " _ & " [tr6]<50,'راسب',IIf([tr1]<50 Or [tr2]<50 Or [tr3]<50 Or [tr4]<50 Or [tr5]<50 Or [tr6]<50,'راسب','ناجح')), " _ & " IIf([result]='راسب',0,[TOTAL]/600*100), " _ & " IIf([result]='راسب',0,IIf([TOTAL]>=550,'ممتاز',IIf([TOTAL]>500,'جيد جداً',IIf([TOTAL]>400,'جيد',IIf([TOTAL]>300,'مقبول',IIf([TOTAL]<78,'/','/')))))) " _ & " from TBL_Final1 where ID=" & RsShow.Fields(0).Value & " and tag=" & RsShow.Fields(33).Value, DB, adOpenKeyset, adLockPessimistic RsSum.Fields(2).Value = RsSum.Fields(6).Value RsSum.Fields(3).Value = RsSum.Fields(7).Value For I = 0 To 1 RsSum.Fields(4).Value = RsSum.Fields(8).Value * 1 RsSum.Fields(5).Value = RsSum.Fields(9).Value RsSum.Update RsSum.Requery Next RsSum.Update RsSum.Requery RsShow.MoveNext Loop ' End If ' End Sub وهذا هو الكود توجد به مشكلة بعد إضافة جزئية استخراج عدد مواد الرسوب Private Sub Command2_Click() Dim RsSum As New ADODB.Recordset Dim RsShow As New ADODB.Recordset Dim s As String s = "100" If RsShow.State = 1 Then RsShow.Close RsShow.Open "select * from TBL_Final1", DB, adOpenKeyset, adLockPessimistic If RsShow.RecordCount > 0 Then Do While Not RsShow.EOF If RsSum.State = 1 Then RsSum.Close RsSum.Open "select ID,tag,TOTAL,result,FINAL,takdeer,iif([result]='راسب',0,(tr1+tr2+tr3+tr4+tr5+tr6)), " _ & " IIf([tr1]<50 And [tr2]<50 And [tr3]<50 And [tr4]<50 And [tr5]<50 And " _ & " [tr6]<50,'راسب',IIf([tr1]<50 Or [tr2]<50 Or [tr3]<50 Or [tr4]<50 Or [tr5]<50 Or " _ & " [tr6]<50,'راسب','ناجح')),IIf([result]='راسب',0,[TOTAL]/600*100), " _ & " IIf([tr1]>=50,0,1)+IIf([tr2]>=50,0,1)+IIf([tr3]>=50,0,1)+IIf([tr4]>=50,0,1)+IIf([tr5]>=50,0,1)+IIf([tr6]>=50,0,1) AS mcount, IIf([mcount]>3,'راسب',IIf([mcount]<=0,'ناجح',IIf([mcount]<4,'مكمل'))) AS result, " _ & " IIf([result]='راسب',0,IIf([TOTAL]>=550,'ممتاز',IIf([TOTAL]>500,'جيد جداً',IIf([TOTAL]>400,'جيد',IIf([TOTAL]>300,'مقبول',IIf([TOTAL]<78,'/','/')))))) " _ & " from TBL_Final1 where ID=" & RsShow.Fields(0).Value & " and tag=" & RsShow.Fields(33).Value, DB, adOpenKeyset, adLockPessimistic RsSum.Fields(2).Value = RsSum.Fields(6).Value RsSum.Fields(3).Value = RsSum.Fields(7).Value For I = 0 To 1 RsSum.Fields(4).Value = RsSum.Fields(8).Value * 1 RsSum.Fields(5).Value = RsSum.Fields(9).Value RsSum.Update RsSum.Requery Next RsSum.Update RsSum.Requery RsShow.MoveNext Loop ' End If ' End Sub

الا يوجد أحد ملم بلغة الفيجوال بيسك6