سؤال حول ترحيل البيانات للسنة القادمة

[فرقدي]

السلام عليكم

اريد عمل قاعدة بيانات بها اسماء طلبة

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

واذا رسب يبقى في نفس صفه ..

ارجو ان يكون السؤال واضحا وننتظر الاجابة بارك الله فيكم :(

[التقني]

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

هل تقصد بالترحيل نقل البيانات من جدول لآخر أم تريد فقط تغيير تصنيف الطالب من مستوى دراسي لآخر ؟

[فرقدي]

اهلا اخي اليك بعض التفصيل وشكرا لتفضلك بالرد علي

لنفرض ان الجدول الرئيس في القاعدة هو جدول الطلاب

وبه الأعمدة التالية :

اسم الطالب : النتيجة ( ناجح / راسب ) : الصف :

في العمود الاول ندخل بيانات الطالب

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

او جداول للتجمع في العمود الاول

لنفرض أن الطالب يوسف : بالصف الاول ، نجح هذا العام

نريد عمل اقفال النتيجة بزر تحكم محمي بكلمة سر مثلا

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

الرئيسي الاول

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

المسمى بالطلاب

ارجو ان يكون ذلك واضح واعذروني على التقصير

[التقني]

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

أخي الكريم

إن كنت تريد (ترقية) الطالب الى المرحلة التي تلي مرحلته الحالية وذلك في حال النجاح طبعا يمكنك وضع هذا الكود في حدث عند النقر للزر :

Private Sub Doresult_Click()
If Result.Value = "راسب" Then
MsgBox "الطالب راسب ولا يحتاج الى تعديل", vbOKOnly, "ممنوع التعديل"
GoTo FFF:
    Else
    Re = InputBox("أدخل كلمة السر لتعديل النتيجة", "تعديل نتيجة طالب")
    If Re = 1234 Then
        Select Case Result = "ناجح"
            Case Is = Class = "الأول"
            Class = "الثاني"
            Case Is = Class = " الثاني "
            Class = "الثالث"
            Case Is = Class = " الثالث "
            Class = "الرابع"
            Case Is = Class = " الرابع "
            Class = "الخامس"
            Case Is = Class = " الخامس "
            Class = "السادس"
            Case Is = Class = " السادس "
            MsgBox "ناجح وينقل الى الصف الأول اعدادي", vbOKOnly, "هذه آخر مرحلة في الابتدائية "
    
        End Select
    Else
    MsgBox "كلمة السر خطأ ", vbOKOnly, "خطأ في الادخال"
    GoTo FFF:

FFF:
    End If

علماً بأن :

كلمة السر للتعديل هي : 1234

حقل النتيجة اسمه :Result

وحقل الفصل اسمه : Class

والزر الذي فيه الحدث أعلاه اسمه : Doresult

والله أعلى وأعلم

أخيك التقني

[التقني]

وان كنت تريد مثالا على ذلك فعلى الرحب والسعة .

[الحوت2006]

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

شكراً اخي التقني وبارك الله فيك

والسلام عليكم

[فرقدي]

بارك الله فيك أخي العزيز وجزاك الله كل الخير والبسك لياس الصحة والعافية

والله اكون شاكرا مع المثال بارك الله فيك

انتظرك أخي

لكن سؤالي هل سيتغير فصل الطالب في نفس الجدول ؟

سأنتظر المثال منك حتى نرى النتيجة وشكرا مليون مرة (y)

تم تعديل نوفمبر 10, 2005 بواسطه فرقدي

[التقني]

تفضل المثال

School.rar

[فرقدي]

اهلا بك اخي جميل هو المثال لكنه ليس طلبي بالضبط ..

لنعد الى الجدول info

عند الضغط على زر : تعديل نتيجة الطالب :

الطالب :

محمد ضاري مثلا

وليكن ناجحا في الصف السادس تظهر لنا رسالة تؤكد ان الطالب ناجح وينقل للصف الأول الاعدادي

لكن عند الرجوع الى الجدول نرى ان في خانة Class / الصف

لم تتغير يعني لايزال الطالب في الصف السادس مع اننا عدلنا نتيجته !

وخانة Result تبين ان الطالب ناجح ..

اذن المطلوب عند الضغط على تعديل نتيجة الطالب ان تتغير بيانات

صفه من السادس الى الاول الاعدادي .

ارجو ان تعذرني اخي لأني ازعجتك بطلبي

ولكنكم كرماء ونحن اخوة لكم

[التقني]

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

حياك الله أخي فرقدي

في الحقيقة المثال المُعد يخص المرحلة الابتدائية :( بمعنى أن طالب الفصل السادس يجب أن يُشطب اسمه من جدول هذه المدرسة .

وعمليا (برمجيا) يجب أن نضع كود مسح بيانات هذا الطالب من الجدول .

والرسالة التي تؤكد أن الطالب ناجح ويجب أن ينقل الى الصف الأول اعدادي ..

هي مجرد رسالة تذكير فقط لا غير .

هناك حل بسيط وهو :

إذا امعنت النظر في الكود التالي :

Select Case Result = "ناجح"
           Case Is = Class = "الأول"
           Class = "الثاني"
           Case Is = Class = " الثاني "
           Class = "الثالث"
           Case Is = Class = " الثالث "
           Class = "الرابع"
           Case Is = Class = " الرابع "
           Class = "الخامس"
           Case Is = Class = " الخامس "
           Class = "السادس"
           Case Is = Class = " السادس "
           MsgBox "ناجح وينقل الى الصف الأول اعدادي", vbOKOnly, "هذه آخر مرحلة في الابتدائية "

       End Select

يمكنك التعديل عليه بإضافة المرحلة الاعدادية بل وحتى الثانوية .

وكما أسلفت أن المثال ( منطقيا ) يجب أن يتبع المرحلة الابتدائية ولا فائدة من ادخال باقي المراحل الا اذا كانت الحاجة تستدعي ذلك .

أرجو أن يكون الشرح وافٍ وكاف ، وأنا في الخدمة

[فرقدي]

اهلا اخي العزيز

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

لربما لم يصلك المعنى بعد والعيب مني

لنفترض ان الطالب بالصف الأول الابتدائي

سنقوم بتعديل نتيجته بالضغط على زر تعديل النتيجة

نريد الان ان يتغير صفه من الأول الابتدائي الى الثاني الابتدائي في الجدول

وليس كرسالة تظهر فقط لتخبرنا بأنه ناجح وينقل للصف الثاني

يعني انني عندما آتي السنة القادمة اجده تلقائيا انتقل الى الصف الثاني

الابتدائي ولا حاجة لأن أقوم بتغيير اسم صفه .

[التقني]

اهلا اخي العزيز

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

لربما لم يصلك المعنى بعد والعيب مني

لنفترض ان الطالب بالصف الأول الابتدائي

سنقوم بتعديل نتيجته بالضغط على زر تعديل النتيجة

نريد الان ان يتغير صفه من الأول الابتدائي الى الثاني الابتدائي  في الجدول

وليس كرسالة تظهر فقط لتخبرنا بأنه ناجح وينقل للصف الثاني

يعني انني عندما آتي السنة القادمة اجده تلقائيا انتقل الى الصف الثاني

الابتدائي ولا حاجة لأن أقوم بتغيير اسم صفه .

<{POST_SNAPBACK}>

عزيزي فرقدي

اذا كنت تريد تغيير النتيجة بضغطة زر فهذا موجود بالمثال فعليا

أي أن المثال يقوم بتغيير النتيجة في النموذج وفي الجدول افتح الجدول وسترى النتيجة .

[فرقدي]

جزاك الله كل الخير بالفعل ضبط معي والله الظاهر اني كبرت

ويحتاج لي نظارة :)

النتيجة واضحة وانا ما شوف .. :h

تسلم عزيزي والله يوفقك في كل ما تصبو اليه

بقى طلب واحد بسيط :

نريد التعديل يكون لجميع الطلبة بضغطة زر واحدة وليس كل طالب لوحده :(

تم تعديل نوفمبر 11, 2005 بواسطه فرقدي

[التقني]

الأخ فرقدي

اطلع على هذا البرنامج المتكامل

http://www.officena.net/ib/index.php?showtopic=8230&hl=مدرسة

[فرقدي]

اخي العزيز بارك الله فيك

والله اني خجل منك شديد الخجل فقد اتعبتك معي ..

رحم الله والديك ووالدينا ..

هذا البرنامج في الرابط اطلعت عليه من قبل فلك خالص الشكر

ولكني طماع فقط تساعدني في جعل زر الأمر ينفذ على جميع الطلبة

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

وبارك الله فيك مرة أخرى ودمتم بخير اخي

[rudwan]

من بعد اذن أخي التقني بارك الله فيه

اذا كان تعديل النتيجه يكون عن طريق نموذج النتائج , اذا يمكن الاستغناء عن زر تعديل النتيجه و تنفيذ الكود بمجرد تعديل النتيجه في مربع اختيار ( ناجح - راسب )

كما في المثال التالي

School.rar

[rudwan]

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

School1.rar

[فرقدي]

مرحبا أخي رضوان وبارك الله فيك وفي أخي التقني

المثال الأول لا أدري لم يعمل معي ؟

المثال الثاني جيد ولكن طلبي

هو تغيير نتيجة الجميع بضغطة زر واحدة بدون الرجوع

لتعديل النتيجة يدويا يعني يكون هنالك عمود تظهر في النتيجة تلقائيا

اذا كانت ناجح او راسب

عموما اشكركم جزيل الشكر وبدأت بالفعل تغيير الكود بما يتناسب معي

حتى اصل لنتيجة مرضية باذن الله وبارك الله فيكم

[rudwan]

هل جربت النموذج الأول في المثال الثاني ؟

انه يعمل بضغطة زر واحده لجميع الطلاب

[فرقدي]

هل جربت النموذج الأول في المثال الثاني ؟

انه يعمل بضغطة زر واحده لجميع الطلاب

<{POST_SNAPBACK}>

الملف بعه عطل في الماكرو ، هكذا تقول رسالة الخطأ التي تظهر عند فتح الملف

مع شكري لاهتمامك الكريم

[rudwan]

الملف بعه عطل في الماكرو ، هكذا تقول رسالة الخطأ التي تظهر عند فتح الملف

بينما قلت سابقا

المثال الثاني جيد ولكن طلبي

هو تغيير نتيجة الجميع بضغطة زر واحدة بدون الرجوع

لتعديل النتيجة يدويا يعني يكون هنالك عمود تظهر في النتيجة تلقائيا

كيف عرفت أن المثال ليس هو طلبك في حين لم يفتح معك الملف أصلا :(

افتح الملف الثاني , النموذج المسمى Adjust Results

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

[فرقدي]

الملف بعه عطل في الماكرو ، هكذا تقول رسالة الخطأ التي تظهر عند فتح الملف

بينما قلت سابقا

المثال الثاني جيد ولكن طلبي

هو تغيير نتيجة الجميع بضغطة زر واحدة بدون الرجوع

لتعديل النتيجة يدويا يعني يكون هنالك عمود تظهر في النتيجة تلقائيا

كيف عرفت أن المثال ليس هو طلبك في حين لم يفتح معك الملف أصلا :(

افتح الملف الثاني , النموذج المسمى Adjust Results

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

<{POST_SNAPBACK}>

اعتذر منك اخي قصدت المثال الأول اي المرفق الأول هو الذي يظهر لدي المشكلة

بينما المرفق الثاني بالفعل بالضغط على الزر يتم ترفيع الطلبة كلهم وهذا ما عنيته

لكن قصدي الا يكون الخيار في عمود النتيجة باختيار الصح للناجح اريد فقط ان يكون

العمود تلقائيا به النتيجة ناجح أو راسب مرتبط بعمود يسبقة فيه المجموع مثلا 100

فاذا كان العمود المسمى بالمجموع فيه 100 ينتج في عمود النتيجة ( ناجح )

اذا اقل من 100 ينتج راسب مثلا

عموما اشكر طولة بالكم معي وجزاكم الله عني كل الخير