التصفيه في نموذج درجات الطلاب يجمع بيانات جدولين

[عبدالعزيزالمدني]

اخواني الاعزاء اعذروني لانني مبتدء فلاتبخلوا علينا بالاجابه وجزاكم الله خير ومطلوبي كالتالي:ـ

المطلوب 

1- كيف اعمل نموذج يجمع الجدولين  درجات الطلاب وبيانات الطلاب بحيث

2- يكون فيه ازرار تصفيه كما في الصوره لاقوم بتصفية البيانات التي اريدها في كل مره اريد ادخال درجات مدرسه او ماده او صف معين وشكرا لكمبرنامجي المطلوب.rar

انا اعمل على اكسس 2010 لان فيه حقول محسوب في الجداول ماينفع تتعدل الى 2003

تم تعديل مارس 5, 2015 بواسطه عبدالعزيزالمدني

[jjafferr]

السلام عليكم اخي عبدالعزيز 

 

ياريت تعطينا مثال او مثالين علشان نحاول نوصل لنفس نتائجهم ،

مع مراعاة استخدام اسماء الجداول والحقول التي في البرنامج.

 

 

جعفر

[عبدالعزيزالمدني]

السلام عليكم اخي عبدالعزيز 

 

ياريت تعطينا مثال او مثالين علشان نحاول نوصل لنفس نتائجهم ،

مع مراعاة استخدام اسماء الجداول والحقول التي في البرنامج.

 

 

جعفر

شكرا لك اخي جعفر

 

الجداول

1- بيانات الطلاب فيه ( العام الدراسي ــ المدرسه ــ الصف ــ الشعبه  ــ  كود الطالب  ــ اسم الطالب )

2- درجات الطلاب  فيه( كود الطالب  ــ  كود الماده  ــ كود الشهر  ــ  الواجب ـ المواضبه ــ الشفهي ــ التحريري ـ المجموع ـ المحصله الشهريه ـ  المستوى الشهري )

وهناك جداول اخرى ( الصفوف  ــ الشعب  ــ  المواد  ــ الاعوام الدراسيه  ــ الفصول الدراسيه )

 

الجداول المرتبطه هي  جدول بيانات الطلاب مرتبط  بكود الطالب مع جدول درجات الطلاب  وجدول الشهر مرتبط مع جدول الدرجات  وجدول الماده مرتبط مع جدول الدرجات

وهذه الصوره توضيحيه واعذرني انا ضعيف جدا في الانجليزي

[jjafferr]

اخي عبدالعزيز 

 

اسئلتي كانت:

 

ياريت تعطينا مثال او مثالين علشان نحاول نوصل لنفس نتائجهم ،

مع مراعاة استخدام اسماء الجداول والحقول التي في البرنامج.

 

فلا اعطيتنا مثال تطبيقي علشان نفهم ،

ولا اعطيتنا اسماء الجداول والحقول التي في البرنامج 

 

طلبك واضح لك ، لكننا لا نرى إلا جداول وحقول وبيانات ،

1. فمن ايهم ،

2. تريد ماذا ،

3. للوصول الى ماذا.

 

مثال من برنامجك لوسمحت 

 

 

جعفر

[عبدالعزيزالمدني]

اخي عبدالعزيز 

 

اسئلتي كانت:

 

ياريت تعطينا مثال او مثالين علشان نحاول نوصل لنفس نتائجهم ،

مع مراعاة استخدام اسماء الجداول والحقول التي في البرنامج.

 

فلا اعطيتنا مثال تطبيقي علشان نفهم ،

ولا اعطيتنا اسماء الجداول والحقول التي في البرنامج 

 

طلبك واضح لك ، لكننا لا نرى إلا جداول وحقول وبيانات ،

1. فمن ايهم ،

2. تريد ماذا ،

3. للوصول الى ماذا.

 

مثال من برنامجك لوسمحت 

 

 

جعفر

 العفو منك اخي جعفر

مثلا اريد في نموذج ازرار تصفيه  كما في الصوره التاليه والتسميات موجوده في الصوره  اختار منه مثلا مدرسة الفاروق الصف الاول الثانوي  الماده رياضيات شهر اكتوبر

فتظهر لي النتائج لاقوم بتعبئة الدرجات فيها بشكل جماعي  ( نسخ لصق من اكسل او اي مكان فيه الدرجات )

تم تعديل مارس 5, 2015 بواسطه عبدالعزيزالمدني

[عبدالعزيزالمدني]

الاخ جعفر

هذا مثال

[ابو الآء]

السلام عليكم

ارجوا التكرم برفع نسخه 2007

بارك الله فيك

[ابو الآء]

اخى الحبيب

معلمنا الجليل الاستاذ جعفر يقصد مثالا على الاكسس 

[عبدالعزيزالمدني]

اضطررت لحذف الحقول المحسوبه في الجداول لكي يتم حفظها بتنسيق 2003  وغيرت اسماء الجداول حتى تتضح الصوره  وارجو منكم استحملوني لاني مبتدء ولكم جزيل الشكر والعرفان

برنامجي3.rar

[عبدالعزيزالمدني]

لو استطعت ان اعمل ما سالت عنه  ماضطررت للسؤال وما سالت انا الا لانني عجزت تماما عن التنفيذ لما اريده

لكنني حاولت الشرح بالصوره

[ابو الآء]

السلام عليكم

انظر المرفق كبدايه 

وانطر الى ملاحظاتى فى التعليق التالى 

برنامجي4.rar

[ابو الآء]

اولا رقم ان خبرتى قليله

لكن لى بعض الملاحظات

اولا حضرتك عملت جدول للفصول وجدول للمدارس ورغم ذلك ليسم مدرجين فى جدول بيانات الطلاب طاعمده بحث

ما السبب فى ذلك

[عبدالعزيزالمدني]

اولا رقم ان خبرتى قليله

لكن لى بعض الملاحظات

اولا حضرتك عملت جدول للفصول وجدول للمدارس ورغم ذلك ليسم مدرجين فى جدول بيانات الطلاب طاعمده بحث

ما السبب فى ذلك

فقط لاجعل منها مرجع لمربع التحرير والسرد

[ابو الآء]

انظر الى المرفق فى المشاركه السابقة لى 

واجعل الجداول مرجع فى مربعات التحرير والسر ولنكمل عمليه التصفيه بسهول ويسر

[عبدالعزيزالمدني]

العفو منك الذي اريده ازرار تعمل نفس عمل ازرار التصفيه في الاستعلام الموجود في القاعده المرفقه والصوره التوضيحيه

 

Desktop.rar

[jjafferr]

اعطني شوية وقت لوسمحت ، انا اعمل على المطلوب 

 

 

جعفر

[ابو الآء]

تفضل

رغم عدم اقتناعى بالطريق

انظر هل توافقكك ام لا

برنامجي4.rar

[ابو الآء]

اعطني شوية وقت لوسمحت ، انا اعمل على المطلوب 

 

 

جعفر

اعتزر بشده استاذى الفاضل لم انتبه الى مشاركتك الا بعد الرد

الرجاء المعزرة

[ابو الآء]

اخى الحبيب 

الرجاء الافاده فى ترتيب التصفيه

يعنى المدرسه ثم الفصل ثم الشعبه ثم الشهر ثم الماده ام ماذا

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

مثل البخث عن طالب لتعديل درجاته وغيره

________________________

ولعنا ننتظر الاجابه الشافيه من معلمنا الجليل الاستاذ جعفر

بارك الله فيه

[jjafferr]

العفو ابو الآء ، احنا نتعلم من بعض ، وبالعكس ، لما انتهي من عملي ، ساقارن عملي بعملك ، ونتوصل الى النتيجة الافضل للرد على السؤال ، ونتعلم شئ جديد 

يعني ، في سباق بيننا نحن الاثنين لإرضاء الاخ عبدالعزيز 

 

 

جعفر

[عبدالعزيزالمدني]

تسلموا احرجتمونا والله

[عبدالعزيزالمدني]

اخى الحبيب 

الرجاء الافاده فى ترتيب التصفيه

يعنى المدرسه ثم الفصل ثم الشعبه ثم الشهر ثم الماده ام ماذا

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

مثل البخث عن طالب لتعديل درجاته وغيره

________________________

ولعنا ننتظر الاجابه الشافيه من معلمنا الجليل الاستاذ جعفر

بارك الله فيه

بالنسبه للترتيب بديهي ان تكون المدرسه قبل الصف والصف قبل الماده وهكذا لكن انا لا ابحث عن طالب فقط او ماده فقط بل اريد فرز متعدد كما في الاستعلام

[عبدالعزيزالمدني]

العفو ابو الآء ، احنا نتعلم من بعض ، وبالعكس ، لما انتهي من عملي ، ساقارن عملي بعملك ، ونتوصل الى النتيجة الافضل للرد على السؤال ، ونتعلم شئ جديد 

يعني ، في سباق بيننا نحن الاثنين لإرضاء الاخ عبدالعزيز 

 

 

جعفر

شكرا لكما جميعا ومنتضر لحل مشكلتي وافادتنا بخبرتكما وجزاكم الله خير

[jjafferr]

السلام عليكم 

 

1. عملت استعلام يربط الجداول ، ويكون فيه الحقول المطلوبة:

 

 

2. ثم نموذج عادي يأخذ نتائجه من هذا الاستعلام ، وعملت نسخة من الحقول المطلوبة للبحث في الاعلى:

 

 

3. بعض الحقول تحتوي على ارقام ، واسماء هذه الحقول موجودة في جداول اخرى ، فكان لازم نغيرها من نص الى مربع سرد:

 

 

وهذه طريقة ربط الجداول للحقل اعلاه:

 

 

والنتيجة:

 

 

4. عملت حدث بعد التحديث لحقول البحث ، وهذا هو الكود:

Option Compare Database


Private Sub Form_Close()

    Me.Filter = ""
    Me.FilterOn = False
End Sub

Private Sub Check_Selected()
    
    Dim FF As String

'cmb_alaam_aldrasy
    If Len(Me.cmb_alaam_aldrasy & "") = 0 Then
        FF = ""
    Else
        FF = "[alaam-aldrasy] ='" & Me.cmb_alaam_aldrasy & "'"
    End If
'---------

'cmb_almadrasa
    If Len(Me.cmb_almadrasa & "") = 0 Then
    
    Else
        FF = FF & " And [almadrasa] ='" & Me.cmb_almadrasa & "'"
    End If
'---------

'cmb_alsaf
    If Len(Me.cmb_alsaf & "") = 0 Then
    
    Else
        FF = FF & " And [alsaf] ='" & Me.cmb_alsaf & "'"
    End If
'---------

'cmb_alsuaph_aldrasy
    If Len(Me.cmb_alsuaph_aldrasy & "") = 0 Then
    
    Else
        FF = FF & " And [alsuaph-aldrasy] ='" & Me.cmb_alsuaph_aldrasy & "'"
    End If
'---------

'cmb_IDalmada
    If Len(Me.cmb_IDalmada & "") = 0 Then
    
    Else
        FF = FF & " And [IDalmada] =" & Me.cmb_IDalmada
    End If
'---------

'cmb_IDalsahr
    If Len(Me.cmb_IDalsahr & "") = 0 Then
    
    Else
        FF = FF & " And [IDalsahr] =" & Me.cmb_IDalsahr
    End If
'---------

    If Left(FF, 4) = " And" Then FF = Mid(FF, 6)
    Me.Filter = FF
    Me.FilterOn = True
    
End Sub

Private Sub cmb_alaam_aldrasy_AfterUpdate()

    Call Check_Selected
End Sub

Private Sub cmb_alaam_aldrasy_DblClick(Cancel As Integer)

    Me.cmb_alaam_aldrasy = ""
    Call Check_Selected
End Sub

وتركت لك في الكود بونص    انقر مرتين على اي حقول البحث ، وسيتنحذف الكلمات اللي فيه 

 

 

5. والنتيجة:

 

 

 

يا الله يا ابوآلآء ، خلينا نشوف اللي عملته ونستفيد ان شاء الله 

 

 

 

جعفر

6.برنامجي2.accdb.zip

تم تعديل مارس 5, 2015 بواسطه jjafferr

[ابو الآء]

الله

الله

الله

لا املك سوى ان اقول الله ينور

وعاوز 4 اسابيع دراسه وتحليل لعلى افهم البعض من عملك الجميل والرائع

جعله الله فى ميزان حسناتك 

هشوف واحاول افهم واردس وارد عليك ان شاء الله

______________________-

بارك الله فيك فى مالك وفى اهلك وفى عملك واعاطك من الخير قدر كرمه

اللهم أمين