omran2015

بارك الله فيك أستاذ (أبو ) أبا خليل فقد أطلعت على قواعد المشاركة، والنقطة الثالثة عشرة هى التي تقصدها: 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؛ ولكنني بعد دخولي إليها وجدت عالما مختلفا جدا حتى صرت انظر للغتي الأم أنها لغة باهتة شاحبة. عذرا إليك لغتي الجميلة؛ ولكن المصلحة البرمجية تقتضي التطوير

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

وهذا مثال عملته بالفيجوال بيسك6 شغال 100 % لكنني فشلت في برمجته بالدوت نت 2013 https://top4top.io/downloadf-2587zzq0v1-rar.html

السلامُ عليكم ورحمةُ اللهِ وبركاتُهُ بعد محاولاتِ عديدةٍ فإنه ليس لي بعد الله تعالى إلا هذا المنتدى النشيط بأعضائه الكرام والمشكلة تتلخص في الآتي: أريد عند اختيار الصف الدراسي من الليست بوكس يتم تعبئة الداتا قريدفيو بأسماء الطلبـة فقط بدون أن تظهر درجـات المـواد الدراسية ورقم الفصل الدراسي إلا عندما يتم اختيار المـادة والفصل الدراسي. لأن الحفظ يتم حسب المادة ولا يمكن أن تظهر درجات المادة بدون تحديد اسم المادة والفصل الدراسي فأتمنى التعديل على المثال، وأنا متأكد إن شاء الله من مساعدتكم جـزاكم اللـــهُ كلَّ خير وبارك اللــهُ فيكم، وفتح اللــهُ عليكم فتوحَ العارفين Exam.rar

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

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

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

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

عملٌ ممتازٌ وجهدٌ جبارٌ شاكراً لك اهتمامك الكبير أخي الفاضل 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

الأساتذة الكرام تقبل اللهُ منا ومنكم صالح الأعمال وبعد: هذا مشروع بالفيجوال بيسك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