1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49
| While Not rs.EOF
Dim s As String
Dim l As String
Dim t As String
Dim q As String
Dim e1 As String
Dim e2 As String
s = rs!student
l = rs!lesson
t = rs!teacher
q = rs!Quarter
If rs.EOF Then
Set rs2 = Nothing
Exit Sub
End If
While Not rs2.EOF
If rs2!teacher = t And rs2!student = s And rs2!lesson = l Then
rs2.Update
rs2!teacher = t
rs2!student = s
rs2!lesson = l
If rs!cote = 16 Then rs2!cq2 = "F"
If rs!cote = 15 Then rs2!cq2 = "D"
If rs!cote = 14 Then rs2!cq2 = "C"
If rs!cote = 13 Then rs2!cq2 = "B"
If rs!cote = 12 Then rs2!cq2 = "A"
If rs!cote = 31 Then rs2!cq2 = "Fail"
If rs!cote = 30 Then rs2!cq2 = "Pass"
If rs!Point = "INC" Then rs2!cq2 = "INC"
rs2!q2 = rs!Point
rs2.Update
t = ""
s = ""
l = ""
End If
rs2.MoveNext
Wend
rs.MoveNext
Wend
Set rs = Nothing
Set rs2 = Nothing |
Partager