omran2015

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

بارك الله فيك أخي الحبيب وزادك الله من فضله, وجارٍ ترقية المشروع ولكن هذا المشروع كبير في جحمه وعملتُ عليه أكثر من ثلاث سنوات وهو بمثابة البرنامج الرئيسي في المعهد. وهذا هو الكود بدون جزئية استخراج عدد مواد الرسوب 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

الأساتذة الكرام تقبل اللهُ منا ومنكم صالح الأعمال وبعد: هذا مشروع بالفيجوال بيسك6 يتم تسجيل الدرجـات في الجدول TBL_Final1 وفي الفورم Form_Semester1 يوجد بوتن لجمع الدرجات tr1 + tr2 + tr3 + tr4 + tr5 + tr6 واستخراج المعدل والتقدير وعدد مواد الرسوب والنتيجة النهائية المشروع قديم حاولت التعديل عليه ولكن هناك مشكلة تتمثل في الآتي: عندما اضغط بوتن الجمع يقوم بالجمع واستخراج المعدل تمام ولكن عدد مواد الرسوب يتم حفظه خطأ في حقل التقدير ويبقى حقل عدد مواد الرسوب فارغ كذلك لا يتم تحقق الشروط التالية في حقل النتيجة النهائية: 1/ إذا كان عدد مواد الرسوب (0) فهو ناجح 2/ إذا كان عدد مواد الرسوب (3) فأقل فهو مكمل 3/ إذا كان عدد مواد الرسوب أكثر من (4) فهو راسب للعلم اليوتن رقم (1) : الكود يعمل تمام بدون إضافة جزئية كود استخراج عدد مواد الرسوب ولكن البوتن رقم (2) عند إضافة جزئية كود استخراج عدد مواد الرسوب تظهر المشكلة أسف لم أجد القسم المناسب لأضع فيه السؤال؟ School.rar

تم الحل بارك الله فيك ورحم والديك

بارك الله فيكم أساتذتي الكرام والإخوة الأفاضل ولكن لماذا الاستعلامات عندي ما تفتح

بارك الله فيك أخي الفلاحجي على ردك الطيب ولكن ليس هذا ما أريد أريد أن اتخلص من إظهار المجموع الكلي والمعدل والتقدير وعدد مواد الرسوب والنتيجة النهائية (ناجح / دور ثان / مكمل / راسب) حسب الشرح السابق في منشئ التعبير والاحتساب يكون عن طريق الكود ثم يتم الاستدعاء الى الاستعلام فقط. هذا أفضل تقريباً من منشئ التعبير ولهذا أرفقت المثال للتعديل عليه ملاحظة: أنا أتعامل مع الفيجوال بيسك وأعتقد أن العمليات الحسابية في الاستعلام أكثر مرونة وأدق من الفيجوال بيسك

أسف أخي الحبيب تم إظهار الجداول والاستعلامات ملاحظة: درجة النجاح: الحصول على النهاية الصغرى 50 الاحتساب يكون عن طريق TR1 - TR2 - TR3 - TR4 - TR5 - TR6 أما TR7 فغير داخلة في المجموع Data_Base.rarData_Base.rar

هل يمكن إحتساب النتيجة في الاستعلامين عن طريق وحدة نمطية بحيث يتم يتم استدعاء النتيجة إلى الاستعلامين من الوحدة النمطية: بحيث يكون كالتالي: أولاً: استعلام Q_Final1 (الدور الأول (1) Semester ) يتم احتساب النتيجة إذا نجح الطالب في جميع المواد فهو ناجح - وإذا رسب في مادة أو أكثر له دور ثان ثانياً: استعلام Q_Final2 (الدور الثاني (2) Semester) يتم احتساب النتيجة إذا كان الطالب نجح في جميع المواد فهو ناجح - وإذا رسب في أقل من أربع مواد فهو مكمل وإذ رسب في أكثر من ثلاث مواد فهو راسب (باقٍ للإعادة) Data_Base.rarData_Base.rar

للأسف تم حل المشكلة بفرمتة الجهاز بارك الله فيكم وجزاكم كل خير على التفاعل

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

سأحاول إن شاء الله تعالى واخبرك بالأمر

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

بارك الله فيك مجموع الفصل الأول + مجموع الفصل الثاني+ مجموع الفصل الثالث + مجموع الفصل الرابع + مجموع الفصل الخامس + مجموع االفصل السادس/ مجموع النهاية الكبرى×100 حيث مجموع النهاية الكبرى لدرجات جميع الفصول= 3600 (600×6)

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

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

عندي جدول (TBL_Final1) لترصيد درجـات الطلاب لـ 6 فصول دراسية حسب الحقل (tag) لكل فصل دراسي (tag) رقم يقابله: الفصل الأول =1 الفصل الثاني =2 الفصل الثالث = 3 الفصل الرابع = 4 الفصل الخامس = 5 الفصل السادس = 6 تم تجزئة الفصول الدراسية إلى ( 6 إستعلامات) ثم وضعها أفقياً في استعلام (Q_Final2) والموضوع لعند الآن تمام المطلوب فقط: احتساب المعدل التراكمي لجميع الفصول الدراسية الست والتقدير العام علماً لأن عدد الساعات غير داخلة في احتساب المعدل التراكمي حقول المجموع والمعدل الفصلي والتقدير في الاستعلام هى: حقل المجموع : TOTALL حقل المعدل : takdeer حقل التقدير : takdeerr Database3.mdb

Data_BaseD.rar

السللم عليكم ورحمة الله وبركاته حياكم الله أساتذتي الكرام وصراحة كلما عجزتُ في أمرٍ في قواعد الأكسس ألجأ إلى منتداكم الكبير، فهو بمثابة مرجعٌ لكل الناس وليس المبرمجين فقط ومشكلتي تتلخص في فلترة الطلبــة المكملين هو الذين رسبوا في (ثلاث مواد فأقل) ويحق لهم الترفيع للفصل التالي مع المواد الدراسية التي رسبوا فيها في الدور الثاني. فأريد من خلال استعلام (لأنني أتعامل مع الفيجوال بيسك) وليس الأكسس مباشرة أن أقوم بفلترة الطلبـة الذين لم ينجحوا أيضاً في امتحانات الدور الثاني أو الذين نجحوا في مواد ورسبوا في آخرى. وشرط الفلترة أن يكون الطلبة قد رسبوا في ثلاث مواد او أقل ... أما لو كانت مواد الرسوب أكثر من ثلاث فلا يحق له التكميل فيبقى راسباً ويُعيد الفصل مرة آخرى المهم الطلبة المكملين يكونوا في استعلام مع مواد الرسوب فقط الجدول المطلوب فلترة بياناته هو جدول الدور الثاني TBL_Final3 ليُصبح كما هو موضح في الجدول TBL_Final4 أسف الملف في المرفقات Data_Base.rar

أبو جودي أبو خليل لله دركما ودَرُّ أبيكما جزاكما الله كلَّ خير وبارك الله فيكما ومتعكما بالصحة والعافية

هذا هو الذي أريده بالضبط أن يكون الترتيب إلى العاشر حتى لو تكرر الترتيب وهو العدل

بارك الله فيك أخي الحبيب وأتستاذنا الكريم أبا خليل وهذا هو المطلوب نوعاً ما, وقد كنت أتمنى ألا يقفز الترتيب عند تكرار ترتيب ما فمثلاً: في الملف تم تكرار الترتيب الخامس ثلاث مرات, ولكن المفروض ياخذ الطالب الذي بعده الترتيب السادس وليس الثامن, وكذلك الثامن يأخذ الترتيب التاسع وهذا فيه إشكالية في عدم تسلسل الترتيب, فلا أدري هذا فيه حلُ نهائي لهذه المشكلة