Bonjour à tous,

J'ai créer un code pour incrémenter une table à partir d'une autre table et d'une requête (je ne sais pas si c'est très claire!)

Voilà le code :
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
50
51
52
53
54
55
56
57
58
Dim qdf1, qdf2, qdf3 As DAO.QueryDef
Dim rcs1, rcs2, rcs3 As DAO.Recordset
Dim present As String
Dim id, nb As Integer
 
present = ""
nb = 0
id = 0
 
'Definition des Recordset
Set qdf1 = CurrentDb.TableDefs("Rencontre")
Set qdf2 = CurrentDb.QueryDefs("R_Rencontre_present")
Set qdf3 = CurrentDb.TableDefs("Rencontre_present")
 
'ouverture des tables  et de la requete
Set rcs1 = qdf1.OpenRecordset
Set rcs2 = qdf2.OpenRecordset
Set rcs3 = qdf3.OpenRecordset
 
' nettoyage de la table Rencontre_present
rcs3.MoveFirst
While Not rcs3.EOF
    rcs3.Delete
Wend
 
'navigation dans la table rencontre
rcs1.MoveFirst
While Not rcs1.EOF
 
    'parcourir la requete
    rcs2.MoveFirst
    While Not rcs2.EOF
    id = rcs2!id_renc
        If rcs1!id_renc = rcs2!id_renc Then
            nb = nb + 1
            Select Case nb
            Case 1
                present = rcs2!Nom
            Case Is > 1
                present = present & Chr(10) & rcs2!Nom
            End Select
            MsgBox present
        Else
        End If
    Wend
 
    'incrémentation de la table Rencontre present
    With rcs3
        .AddNew
        !id_renc = id
        !Nom = present
        .Update
    End With
Wend
 
Set qdf1 = Nothing
Set qdf2 = Nothing
Set qdf3 = Nothing
Mon problème est sur la ligne 13 :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set qdf3 = CurrentDb.TableDefs("Rencontre_present")
J'ai un message d'erreur "incmpatibilité de type" alors que le nom de la table est bon et que ceà fonctionne pour la table précédent. D'oû pourrait provenir cette erreur?

Merci d'avance