التعديل على نموذج بحث

[ابو عبدلله]

السلام عليكم ورحمة الله وبركاته

لدي نموذج بحث فهل بالامكان تنفيذ الفكرة ؟؟

في المرفق

لكم مني كل التقدير

stu.rar

[Shivan Rekany]

3 دقائق مضت, ابو عبدلله said:

السلام عليكم ورحمة الله وبركاته

لدي نموذج بحث فهل بالامكان تنفيذ الفكرة ؟؟

في المرفق

لكم مني كل التقدير

stu.rar

سؤال
كيف نعرف ان هذا الطالب ناجح ام لا

[ابو عبدلله]

11 ساعات مضت, Shivan Rekany said:

كيف نعرف ان هذا الطالب ناجح ام لا

ناجح الدرجة اكبر من 40 ولا الدرجة اصغر من 40

شكرا اخي شفان على مرورك واهتمامك

[ابو عبدلله]

للرفع

[Shivan Rekany]

15 ساعات مضت, ابو عبدلله said:

ناجح الدرجة اكبر من 40 ولا الدرجة اصغر من 40

شكرا اخي شفان على مرورك واهتمامك

 

45 دقائق مضت, ابو عبدلله said:

للرفع

اتفضل

استخدمت هذا الكود في نموذج فرعي في الحالي

Private Sub Form_Current()
If Forms!Form!FRAME7 = 1 Then
Me.RecordSource = "SELECT جدول_الطالب.[رقم الطالب], جدول_الطالب.[اسم الطالب], جدول_المواد.[اسم المادة], جدول_الدرجة.الدرجة FROM جدول_المواد INNER JOIN (جدول_الطالب INNER JOIN جدول_الدرجة ON جدول_الطالب.[رقم الطالب] = جدول_الدرجة.[رقم الطالب]) ON جدول_المواد.[رقم المادة] = جدول_الدرجة.[رقم المادة] WHERE (((جدول_الطالب.[رقم الطالب])=[Forms]![form]![com]));"
ElseIf Forms!Form!FRAME7 = 2 Then
Me.RecordSource = "SELECT جدول_الطالب.[رقم الطالب], جدول_الطالب.[اسم الطالب], جدول_المواد.[اسم المادة], جدول_الدرجة.الدرجة FROM جدول_المواد INNER JOIN (جدول_الطالب INNER JOIN جدول_الدرجة ON جدول_الطالب.[رقم الطالب] = جدول_الدرجة.[رقم الطالب]) ON جدول_المواد.[رقم المادة] = جدول_الدرجة.[رقم المادة] WHERE (((جدول_الطالب.[رقم الطالب])=[Forms]![form]![com]) AND ((جدول_الدرجة.الدرجة)>39));"
ElseIf Forms!Form!FRAME7 = 3 Then
Me.RecordSource = "SELECT جدول_الطالب.[رقم الطالب], جدول_الطالب.[اسم الطالب], جدول_المواد.[اسم المادة], جدول_الدرجة.الدرجة FROM جدول_المواد INNER JOIN (جدول_الطالب INNER JOIN جدول_الدرجة ON جدول_الطالب.[رقم الطالب] = جدول_الدرجة.[رقم الطالب]) ON جدول_المواد.[رقم المادة] = جدول_الدرجة.[رقم المادة] WHERE (((جدول_الطالب.[رقم الطالب])=[Forms]![form]![com]) AND ((جدول_الدرجة.الدرجة)<40));"
End If
End Sub

وهذا عند تختار اسم من كومبوبوكس البحث

Private Sub com_AfterUpdate()
Me.FRMSUB.Requery
End Sub

اضفت اطار مجموعة الاختيارات بدل الطريقتك لكي يسهل علينا اكثر
وهذا عند اختيار الكل ام رسوب ام ناجح

Private Sub FRAME7_AfterUpdate()
Me.FRMSUB.Requery
End Sub

اتفضل قاعدة بياناتك بعد تعديل

stu.rar

[ابو عبدلله]

11 ساعات مضت, Shivan Rekany said:

اتفضل قاعدة بياناتك بعد تعديل

ما شاء الله عليك أخي الكريم شفان بارك الله بك

سؤال ان كان بالامكان هل نستطيع جعل الخيارات تشيك بوكس ؟

مرة اخرى اشكرك كل الشكر للمساعدة

[Shivan Rekany]

11 دقائق مضت, ابو عبدلله said:

هل نستطيع جعل الخيارات تشيك بوكس

ما فهمت قصدك ممكن توضح لي اكثر

[ابو عبدلله]

11 ساعات مضت, Shivan Rekany said:

ما فهمت قصدك ممكن توضح لي اكثر

بدل دائرة الاختيار مربع اختيار اخي شفان

[Shivan Rekany]

23 دقائق مضت, ابو عبدلله said:

بدل دائرة الاختيار مربع اختيار اخي شفان

مافيه مشكلة
لكن قدي باستخدام اطار مجموعة الاختيارات لكي يختصر الكود
اتفضل نفس الاكواد فقط غيرت من الدائرة الاختيارات الى مربع الاختيارات

stu (1).rar

[ابو عبدلله]

13 ساعات مضت, Shivan Rekany said:

اتفضل نفس الاكواد فقط غيرت من الدائرة الاختيارات الى مربع الاختيارات

وهو المطلوب اخي شفان ولكن كيف نعدل من إلى مربع الاختيار ؟

[Shivan Rekany]

16 دقائق مضت, ابو عبدلله said:

وهو المطلوب اخي شفان ولكن كيف نعدل من إلى مربع الاختيار ؟

اولا نختار

ثم نكتب 

ثم نيمست نيكست حتى وصول الى هنا

واختر ما تريد

تقبل تحياتي

[ابو عبدلله]

بارك الله بك وزادك علماً ونفعاً اخي شفان

دامكم الله نوراً ينير لنا ظلمات ما نجهل