[ تمت الإجابة ]طلب تعديل الفرقة بناء علي تسجيل النتيجة

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

تفضل اخوي المفرق ان شاء الله يكون طلبك

اخوك محمد المسيفري

natega.rar

اخي الكريم مشارف اشكرك علي سرعة الرد

ولكن ارجوا توضيح ما تم لان هناك مشكلة اكيد لم اتمكن من ادراجها

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

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

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

هلا اخوي تفضل هذا الكود المسوؤل عن العملية

Private Sub natega_AfterUpdate()
If natega = "ناجح" Or natega = "ناجح بمادة" Or natega = "ناجح بمادتين" Then
Me.ferqa = "الفرقة الثانية"
Me.ferqa1 = "مستجد"
Else
Me.ferqa = "الفرقة الاولى"
Me.ferqa1 = "باقي للاعادة"
End If
End Sub

في حدث بعد التحديث تم اضافة الكود لمربع النص natega

ليتاكد من انه يساوي ناجح او ناجح بمادة او ناجح بمادتين يتم جعل حقل ferqa يساوي الفرقة الثانية وحقل ferqa1 يساوي مستجد

واذا لم تكن نتيجة حقل ferga يساوي ما اشرنا له فوق

تكون قيمة حقل ferqa تساوي الفرقة الاولى وحقل ferqa1 تساوي الفرقة الاولى

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

اتمنى يكون الشرح واضح

حاول اتجرب قيم ثانية وشوف النتيجة

اخوك محمد المسيفري

اخي العزيز محمد

اشكرك جزيلا علي التوضيح وساحاول ان اضيف القيم وارجوا ان لا اكون قد اطلت عليك

سم الله الرحمن الرحيم

أشكر الاخ مشارف على حبه للمساعدة ومبادرته الطيبة وفقه الله

لكن لي رأي يا أخ محمد الشاعر في تصميم قاعدة البيانات

أولا - يجب أن يكون للتلاميذ جدول

وللشعب جدول

ولحالة القيد جدول

وللتقديرات جدول

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

يناسب الفرقة الجديدة

حل الاخ مشارف يؤدي الغرض لو كان الانتقال من الفرقة الاولى للفرقة الثانية فقط

لكن ماذا لو كان لدينا طلاب ينقلون من الثانية للثالثة وأخرون من الثالثة للرابعة وهكذا .. الامر مرهق ومربكك

هذا ما أراه والله أعلم

اخي الفاضل المشرف

ekseer

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

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

تفضل هذا المثال يعمل بتقنية ADO

به كل احتمالات التحديث

1- اعتماد النتيجة الحالية لكل الطلاب يعمل ترحيل لنتيجة الطالب حسب

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

2 - اعتماد النتيجة لكل طالب على حدة مثل السابق لكن سجل سجل

3 - اعادة الطلاب للوضع الافتراضي يعيد كل الطلاب في الفرقة 1 ويضعهم مستجدون

هناك شيء هام وهو ان الطالب حين يصل للفرقة الرابعة فأن عمل التحديث يتوقف لأنه لايوجد فرقة أعلى

موفق أخي الكريم .. دعواتك الطيبة

Ek_Update.rar

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

الله يبارك فيك

اخي اكسير اشكرك جزيلا ولك مني كل التقدير

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

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

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

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

اقتباس

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

الأن يحدث بالفعل ماطلبته إن شاء الله

أخوك / اكسيرالحياة

Ek_Update2.rar

اخي اكسير انت رائع ربنا يزيدك علم ودامت صحتك اشكرك كثيرا الشكر

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

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

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

اقتباس

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

حاضر من اعيوني اليك ماطلبت

On Error Resume Next   'السطر الاول لتجاوز الخطأ إن وجد
Dim rst As ADODB.Recordset 'إنشاء متغير أدو للسجلات
Set rst = New ADODB.Recordset 'اسناد المتغير بعبارة ست
rst.Open "[tbl_s]", CurrentProject.Connection, _
adOpenDynamic, adCmdTable 'فتح الاتصال مع الجدول المراد
Do Until rst.EOF 'بدء اللوب على البيانات

If rst!N > 3 Then 'شرط اذا كان راسب أو غائب تبقى الفرقة كما هي ويوضع له باق للإعادة في سجل الحالة
rst!F = rst!F - 1
rst!H = 2
End If

If rst!F = 4 Then ' شرط اذا كان بالفرقة العليا ان لايتم تحديث البيانات
rst!F = rst!F - 1
End If

If rst!N < 4 And rst!H <> 1 Then 'شرط اذا كان باق للاعادة او من الخارج ثم نجح يكون مستجد في الفرقة 
rst!H = 1
End If

rst!F = rst!F + 1 ' ماعدا ذلك ينقل الطالب للفرقة الاعلى ويكون مستجدا بفرقته الجديدة
rst!H = 1
rst.Update ' تحديث السجل
rst.MoveNext 'انتقال للسجل التالي
Loop 'استمرار الدوران اللوب
rst.Close 'قطع الاتصال عند الانتهاء من جميع السجلات
Me.Nf.SetFocus 'تركيز المشيرة على حقل الفرقة

MsgBox "تم التحديث بنجاح", _
	vbInformation + vbOKOnly, _
	"EKSEER"  'رسالة التحديث

والسلام

بارك الله فيك اخي الفاضل

عمل رائع وشرح عظيم ولقد استفدت منه كثيرا وباذن الله يستفيد منه كل اعضاء المنتدي الطالبين للعلم

ادام الله عليك الصحة