تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعديل على كود المجموع
#1
هذا كود رائع من روائع الأستاذ الفاضل والمهندس الخبير أحمد عبد العليم لجمع الدرجات في الجدول وهو فعالٌ 100%
كود :
Dim RsSum As New ADODB.Recordset
Dim RsShow As New ADODB.Recordset
Dim s As String
s = "100"
If RsShow.State = 1 Then RsShow.Close

RsShow.Open "select * from TBL_Final1", DB, adOpenKeyset, adLockPessimistic
If RsShow.RecordCount > 0 Then
Do While Not RsShow.EOF

If RsSum.State = 1 Then RsSum.Close
RsSum.Open "select ID,tag,TOTAL,result,FINAL,takdeer,iif([result]='ÑÇÓÈ',0,(tr1+tr2+tr3+tr4+tr5+tr6)), " _
& " IIf([tr1]<50 And [tr2]<50 And [tr3]<50 And [tr4]<50 And [tr5]<50 And " _
& " [tr6]<50,'راسب,IIf([tr1]<50 Or [tr2]<50 Or [tr3]<50 Or [tr4]<50 Or [tr5]<50 Or " _
& " [tr6]<50,ناجح,'راسب')),IIf([result]='راسب,0,[TOTAL]/600*100), " _
& " IIf([result]='ÑÇÓÈ',0,IIf([TOTAL]>=550,'ããÊÇÒ',IIf([TOTAL]>500,'ÌíÏ ÌÏÇð',IIf([TOTAL]>400,'ÌíÏ',IIf([TOTAL]>300,'ãÞÈæá',IIf([TOTAL]<78,'/','/')))))) " _
& " from TBL_Final1 where ID=" & RsShow.Fields(0).Value & " and tag=" & RsShow.Fields(33).Value, DB, adOpenKeyset, adLockPessimistic

RsSum.Fields(2).Value = RsSum.Fields(6).Value
RsSum.Fields(3).Value = RsSum.Fields(7).Value
For I = 0 To 1
RsSum.Fields(4).Value = RsSum.Fields(8).Value * 1
RsSum.Fields(5).Value = RsSum.Fields(9).Value

RsSum.Update
RsSum.Requery
Next
RsSum.Update
RsSum.Requery
RsShow.MoveNext
Loop
'
End If
'

المطلوب: التعديل عليه بحيث يشمل عدد مواد الرسوب أي:
* إذا نجح في جميع المواد فهو = ناجح
* وإذا رسب في أقل من 4 مواد فهو = مكمل
* وإذا رسب في أكثر من 3 مواد فهو = راسب

وهذا هو إستعلام من الأكسس أريده تضمينه في الكود السابق
كود :
SELECT TBL_Final2.ID, TBL_Final2.Name_Student, TBL_Final2.alqayd, TBL_Final2.Clas, TBL_Final2.CClas, TBL_Final2.Category, TBL_Final2.Semester, TBL_Final2.on1, TBL_Final2.on2, TBL_Final2.on3, TBL_Final2.on4, TBL_Final2.on5, TBL_Final2.on6, TBL_Final2.on7, TBL_Final2.to1, TBL_Final2.to2, TBL_Final2.to3, TBL_Final2.to4, TBL_Final2.to5, TBL_Final2.to6, TBL_Final2.to7, TBL_Final2.tr1, TBL_Final2.tr2, TBL_Final2.tr3, TBL_Final2.tr4, TBL_Final2.tr5, TBL_Final2.tr6, TBL_Final2.tr7, ([tr1])+([tr2])+([tr3])+([tr4])+([tr5])+([tr6]) AS TOTALL, [TOTALL]/600 AS FINALL, IIf([resultt]="راسب",0,IIf([TOTALL]>=550,"ممتاز",IIf([TOTALL]>=500,"جيد جدا",IIf([TOTALL]>=350,"جيد",IIf([TOTALL]>=300,"مقبول",IIf([TOTALL]<300,"/","/")))))) AS takdeerr, IIf([tr1]>=50,0,1)+IIf([tr2]>=50,0,1)+IIf([tr3]>=50,0,1)+IIf([tr4]>=50,0,1)+IIf([tr5]>=50,0,1)+IIf([tr6]>=50,0,1) AS mcount, IIf([mcount]>3,"راسب",IIf([mcount]<=0,"ناجح",IIf([mcount]<4,"مكمل"))) AS resultt, TBL_Final2.tag
FROM TBL_Final2;
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}
تم الشكر بواسطة: awidan76 , awidan76


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل ترتيب أرقام الصفحات تصاعدياً مصمم هاوي 3 212 13-07-22, 03:20 AM
آخر رد: مصمم هاوي
  تعديل كود نهى علي 2 259 13-05-22, 12:01 AM
آخر رد: نهى علي
  تعديل كود الدرجات المحصورة بين عددين مصمم هاوي 7 757 10-12-21, 07:10 PM
آخر رد: مصمم هاوي
  (تم التعديل) تعديل كود حذف بيانات طالب مصمم هاوي 1 658 24-06-21, 12:13 PM
آخر رد: مصمم هاوي
  [vb6.0] تعديل كود الطباعة من منفذ com1 الى طابعة معينة او منفذ usb. Abd elraof 1 754 07-06-21, 02:23 PM
آخر رد: السيد الغالي
  تعديل كود أظهار بيانات الحضور والغياب مصمم هاوي 3 1,050 09-05-21, 01:06 AM
آخر رد: مصمم هاوي
  سوال بخصوص حساب المجموع الاختباري wolf1120 4 1,178 02-04-21, 12:42 AM
آخر رد: messry
  اهدي اليكم طريقة الاتصال بقاعدة البيانات عن طريقة المشاركه بدون تعديل كود الاتصال ahmed201 1 1,094 25-03-21, 11:35 AM
آخر رد: رضوان الجماعي
  تعديل كود تحديث مخزن الكتب بعد الإعارة مصمم هاوي 7 1,728 07-08-20, 08:16 AM
آخر رد: Ahmed_Mansoor
  مشكلة اظهار المجموع في فاكتيف ريبورت hannileo 3 1,335 09-06-20, 06:19 PM
آخر رد: hannileo

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم