فرقدي قام بنشر نوفمبر 8, 2005 مشاركة قام بنشر نوفمبر 8, 2005 السلام عليكم اريد عمل قاعدة بيانات بها اسماء طلبة مثلا الطالب يوسف بالصف الاول اذا نجح بالضغط على زر أمر يتم ترفيعه الى الصف الثاني واذا رسب يبقى في نفس صفه .. ارجو ان يكون السؤال واضحا وننتظر الاجابة بارك الله فيكم :( رابط هذا التعليق شارك More sharing options...
التقني قام بنشر نوفمبر 8, 2005 مشاركة قام بنشر نوفمبر 8, 2005 وعليكم السلام ورحمة الله هل تقصد بالترحيل نقل البيانات من جدول لآخر أم تريد فقط تغيير تصنيف الطالب من مستوى دراسي لآخر ؟ رابط هذا التعليق شارك More sharing options...
فرقدي قام بنشر نوفمبر 9, 2005 الكاتب مشاركة قام بنشر نوفمبر 9, 2005 اهلا اخي اليك بعض التفصيل وشكرا لتفضلك بالرد علي لنفرض ان الجدول الرئيس في القاعدة هو جدول الطلاب وبه الأعمدة التالية : اسم الطالب : النتيجة ( ناجح / راسب ) : الصف : في العمود الاول ندخل بيانات الطالب وفي العمودين الثالث والرابع تنتقل نتيجته وصفه من نماذج ادخال او جداول للتجمع في العمود الاول لنفرض أن الطالب يوسف : بالصف الاول ، نجح هذا العام نريد عمل اقفال النتيجة بزر تحكم محمي بكلمة سر مثلا بالضغط عليه يتحول الطالب يوسف الى الصف الثاني في الجدول الرئيسي الاول يعني التغيير يكون في جدول واحد فقط هو الجدول المجمع المسمى بالطلاب ارجو ان يكون ذلك واضح واعذروني على التقصير رابط هذا التعليق شارك More sharing options...
التقني قام بنشر نوفمبر 9, 2005 مشاركة قام بنشر نوفمبر 9, 2005 السلام عليكم ورحمة الله وبركاته،، أخي الكريم إن كنت تريد (ترقية) الطالب الى المرحلة التي تلي مرحلته الحالية وذلك في حال النجاح طبعا يمكنك وضع هذا الكود في حدث عند النقر للزر : 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 والله أعلى وأعلم أخيك التقني رابط هذا التعليق شارك More sharing options...
التقني قام بنشر نوفمبر 9, 2005 مشاركة قام بنشر نوفمبر 9, 2005 وان كنت تريد مثالا على ذلك فعلى الرحب والسعة . رابط هذا التعليق شارك More sharing options...
الحوت2006 قام بنشر نوفمبر 9, 2005 مشاركة قام بنشر نوفمبر 9, 2005 السلام عليكم ورحمة الله وبركاته شكراً اخي التقني وبارك الله فيك والسلام عليكم رابط هذا التعليق شارك More sharing options...
فرقدي قام بنشر نوفمبر 10, 2005 الكاتب مشاركة قام بنشر نوفمبر 10, 2005 (معدل) بارك الله فيك أخي العزيز وجزاك الله كل الخير والبسك لياس الصحة والعافية والله اكون شاكرا مع المثال بارك الله فيك انتظرك أخي لكن سؤالي هل سيتغير فصل الطالب في نفس الجدول ؟ سأنتظر المثال منك حتى نرى النتيجة وشكرا مليون مرة (y) تم تعديل نوفمبر 10, 2005 بواسطه فرقدي رابط هذا التعليق شارك More sharing options...
التقني قام بنشر نوفمبر 10, 2005 مشاركة قام بنشر نوفمبر 10, 2005 تفضل المثال School.rar رابط هذا التعليق شارك More sharing options...
فرقدي قام بنشر نوفمبر 10, 2005 الكاتب مشاركة قام بنشر نوفمبر 10, 2005 اهلا بك اخي جميل هو المثال لكنه ليس طلبي بالضبط .. لنعد الى الجدول info عند الضغط على زر : تعديل نتيجة الطالب : الطالب : محمد ضاري مثلا وليكن ناجحا في الصف السادس تظهر لنا رسالة تؤكد ان الطالب ناجح وينقل للصف الأول الاعدادي لكن عند الرجوع الى الجدول نرى ان في خانة Class / الصف لم تتغير يعني لايزال الطالب في الصف السادس مع اننا عدلنا نتيجته ! وخانة Result تبين ان الطالب ناجح .. اذن المطلوب عند الضغط على تعديل نتيجة الطالب ان تتغير بيانات صفه من السادس الى الاول الاعدادي . ارجو ان تعذرني اخي لأني ازعجتك بطلبي ولكنكم كرماء ونحن اخوة لكم رابط هذا التعليق شارك More sharing options...
التقني قام بنشر نوفمبر 10, 2005 مشاركة قام بنشر نوفمبر 10, 2005 السلام عليكم ورحمة الله حياك الله أخي فرقدي في الحقيقة المثال المُعد يخص المرحلة الابتدائية :( بمعنى أن طالب الفصل السادس يجب أن يُشطب اسمه من جدول هذه المدرسة . وعمليا (برمجيا) يجب أن نضع كود مسح بيانات هذا الطالب من الجدول . والرسالة التي تؤكد أن الطالب ناجح ويجب أن ينقل الى الصف الأول اعدادي .. هي مجرد رسالة تذكير فقط لا غير . هناك حل بسيط وهو : إذا امعنت النظر في الكود التالي : 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 يمكنك التعديل عليه بإضافة المرحلة الاعدادية بل وحتى الثانوية . وكما أسلفت أن المثال ( منطقيا ) يجب أن يتبع المرحلة الابتدائية ولا فائدة من ادخال باقي المراحل الا اذا كانت الحاجة تستدعي ذلك . أرجو أن يكون الشرح وافٍ وكاف ، وأنا في الخدمة رابط هذا التعليق شارك More sharing options...
فرقدي قام بنشر نوفمبر 11, 2005 الكاتب مشاركة قام بنشر نوفمبر 11, 2005 اهلا اخي العزيز وعليكم السلام ورحمة الله وبركاته لربما لم يصلك المعنى بعد والعيب مني لنفترض ان الطالب بالصف الأول الابتدائي سنقوم بتعديل نتيجته بالضغط على زر تعديل النتيجة نريد الان ان يتغير صفه من الأول الابتدائي الى الثاني الابتدائي في الجدول وليس كرسالة تظهر فقط لتخبرنا بأنه ناجح وينقل للصف الثاني يعني انني عندما آتي السنة القادمة اجده تلقائيا انتقل الى الصف الثاني الابتدائي ولا حاجة لأن أقوم بتغيير اسم صفه . رابط هذا التعليق شارك More sharing options...
التقني قام بنشر نوفمبر 11, 2005 مشاركة قام بنشر نوفمبر 11, 2005 اهلا اخي العزيز وعليكم السلام ورحمة الله وبركاته لربما لم يصلك المعنى بعد والعيب مني لنفترض ان الطالب بالصف الأول الابتدائي سنقوم بتعديل نتيجته بالضغط على زر تعديل النتيجة نريد الان ان يتغير صفه من الأول الابتدائي الى الثاني الابتدائي في الجدول وليس كرسالة تظهر فقط لتخبرنا بأنه ناجح وينقل للصف الثاني يعني انني عندما آتي السنة القادمة اجده تلقائيا انتقل الى الصف الثاني الابتدائي ولا حاجة لأن أقوم بتغيير اسم صفه . <{POST_SNAPBACK}> عزيزي فرقدي اذا كنت تريد تغيير النتيجة بضغطة زر فهذا موجود بالمثال فعليا أي أن المثال يقوم بتغيير النتيجة في النموذج وفي الجدول افتح الجدول وسترى النتيجة . رابط هذا التعليق شارك More sharing options...
فرقدي قام بنشر نوفمبر 11, 2005 الكاتب مشاركة قام بنشر نوفمبر 11, 2005 (معدل) جزاك الله كل الخير بالفعل ضبط معي والله الظاهر اني كبرت ويحتاج لي نظارة :) النتيجة واضحة وانا ما شوف .. :h تسلم عزيزي والله يوفقك في كل ما تصبو اليه بقى طلب واحد بسيط : نريد التعديل يكون لجميع الطلبة بضغطة زر واحدة وليس كل طالب لوحده :( تم تعديل نوفمبر 11, 2005 بواسطه فرقدي رابط هذا التعليق شارك More sharing options...
التقني قام بنشر نوفمبر 12, 2005 مشاركة قام بنشر نوفمبر 12, 2005 الأخ فرقدي اطلع على هذا البرنامج المتكامل http://www.officena.net/ib/index.php?showtopic=8230&hl=مدرسة رابط هذا التعليق شارك More sharing options...
فرقدي قام بنشر نوفمبر 12, 2005 الكاتب مشاركة قام بنشر نوفمبر 12, 2005 اخي العزيز بارك الله فيك والله اني خجل منك شديد الخجل فقد اتعبتك معي .. رحم الله والديك ووالدينا .. هذا البرنامج في الرابط اطلعت عليه من قبل فلك خالص الشكر ولكني طماع فقط تساعدني في جعل زر الأمر ينفذ على جميع الطلبة دفعة واحدة بدل عن كل طالب لوحده .. في المثال الذي ارفقته حضرتك . وبارك الله فيك مرة أخرى ودمتم بخير اخي رابط هذا التعليق شارك More sharing options...
rudwan قام بنشر نوفمبر 13, 2005 مشاركة قام بنشر نوفمبر 13, 2005 من بعد اذن أخي التقني بارك الله فيه اذا كان تعديل النتيجه يكون عن طريق نموذج النتائج , اذا يمكن الاستغناء عن زر تعديل النتيجه و تنفيذ الكود بمجرد تعديل النتيجه في مربع اختيار ( ناجح - راسب ) كما في المثال التالي School.rar رابط هذا التعليق شارك More sharing options...
rudwan قام بنشر نوفمبر 13, 2005 مشاركة قام بنشر نوفمبر 13, 2005 أما اذا كنت ستقوم بتعبئة النتائج يدويا فيمكن عمل الاجارء التالي الذي يقوم بنقل الطلاب الى الصفوف الأعلى تلقائيا School1.rar رابط هذا التعليق شارك More sharing options...
فرقدي قام بنشر نوفمبر 14, 2005 الكاتب مشاركة قام بنشر نوفمبر 14, 2005 مرحبا أخي رضوان وبارك الله فيك وفي أخي التقني المثال الأول لا أدري لم يعمل معي ؟ المثال الثاني جيد ولكن طلبي هو تغيير نتيجة الجميع بضغطة زر واحدة بدون الرجوع لتعديل النتيجة يدويا يعني يكون هنالك عمود تظهر في النتيجة تلقائيا اذا كانت ناجح او راسب عموما اشكركم جزيل الشكر وبدأت بالفعل تغيير الكود بما يتناسب معي حتى اصل لنتيجة مرضية باذن الله وبارك الله فيكم رابط هذا التعليق شارك More sharing options...
rudwan قام بنشر نوفمبر 14, 2005 مشاركة قام بنشر نوفمبر 14, 2005 هل جربت النموذج الأول في المثال الثاني ؟ انه يعمل بضغطة زر واحده لجميع الطلاب رابط هذا التعليق شارك More sharing options...
فرقدي قام بنشر نوفمبر 15, 2005 الكاتب مشاركة قام بنشر نوفمبر 15, 2005 هل جربت النموذج الأول في المثال الثاني ؟انه يعمل بضغطة زر واحده لجميع الطلاب <{POST_SNAPBACK}> الملف بعه عطل في الماكرو ، هكذا تقول رسالة الخطأ التي تظهر عند فتح الملف مع شكري لاهتمامك الكريم رابط هذا التعليق شارك More sharing options...
rudwan قام بنشر نوفمبر 15, 2005 مشاركة قام بنشر نوفمبر 15, 2005 الملف بعه عطل في الماكرو ، هكذا تقول رسالة الخطأ التي تظهر عند فتح الملف بينما قلت سابقا المثال الثاني جيد ولكن طلبي هو تغيير نتيجة الجميع بضغطة زر واحدة بدون الرجوع لتعديل النتيجة يدويا يعني يكون هنالك عمود تظهر في النتيجة تلقائيا كيف عرفت أن المثال ليس هو طلبك في حين لم يفتح معك الملف أصلا :( افتح الملف الثاني , النموذج المسمى Adjust Results يقوم بتعديل النتائج لكل الطلاب دفعه واحده رابط هذا التعليق شارك More sharing options...
فرقدي قام بنشر نوفمبر 17, 2005 الكاتب مشاركة قام بنشر نوفمبر 17, 2005 الملف بعه عطل في الماكرو ، هكذا تقول رسالة الخطأ التي تظهر عند فتح الملف بينما قلت سابقا المثال الثاني جيد ولكن طلبي هو تغيير نتيجة الجميع بضغطة زر واحدة بدون الرجوع لتعديل النتيجة يدويا يعني يكون هنالك عمود تظهر في النتيجة تلقائيا كيف عرفت أن المثال ليس هو طلبك في حين لم يفتح معك الملف أصلا :( افتح الملف الثاني , النموذج المسمى Adjust Results يقوم بتعديل النتائج لكل الطلاب دفعه واحده <{POST_SNAPBACK}> اعتذر منك اخي قصدت المثال الأول اي المرفق الأول هو الذي يظهر لدي المشكلة بينما المرفق الثاني بالفعل بالضغط على الزر يتم ترفيع الطلبة كلهم وهذا ما عنيته لكن قصدي الا يكون الخيار في عمود النتيجة باختيار الصح للناجح اريد فقط ان يكون العمود تلقائيا به النتيجة ناجح أو راسب مرتبط بعمود يسبقة فيه المجموع مثلا 100 فاذا كان العمود المسمى بالمجموع فيه 100 ينتج في عمود النتيجة ( ناجح ) اذا اقل من 100 ينتج راسب مثلا عموما اشكر طولة بالكم معي وجزاكم الله عني كل الخير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.