تعديل على كود المجموع - نسخة قابلة للطباعة

كود :

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

'

كود :

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;