je suis entrain de créer un code permettant d'actualiser une table a partir d'un autre mais seulement il m'envoie un message d'erreur disant que rs2!cq2 ne peut pas être trouver alors qu'il existe dans la table

qu'est ce que je peut faire dans un cas pareil

en dessous le
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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