Bonjour,

Je code sous access et j'aurais besoin d'une petite aide car je n'arrive pas à insérer certaines données dans ma table.

Je vous explique, j'ai une requête paramétré dont je voudrais enregistrer les résultats pour ensuite les insérer dans une autre table.

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
 
 
Do Until Rec_1.EOF
            Dim Req_2 As DAO.QueryDef
            Dim rec_2 As DAO.Recordset
 
 
            Set Req_2 = Db.CreateQueryDef("", "SELECT .... WHERE ((Condition.Id)=[Condition:]));")
            Req_2("Condition:").Value = Rec_1.Fields("id")
            Set rec_2 = Req_2.OpenRecordset
 
                    Do Until rec_PrestationsPrix_Id_Sous_Jacent.EOF
       Set Req_Local = Db.CreateQueryDef("", chaine)
       Set rec_Local = Req_Local.OpenRecordset
        If rec_Local.EOF = True Then
                           chaine = " INSERT INTO TECH_PRESTA_APPLICA  (Id, Nom, Bool) VALUES  (" & rec_2.Fields("Id") & ",""" & rec_2.Fields("Nom") & """, " & rec_2.Field("Bool") & " )"
 
     Set Req_Local = Db.CreateQueryDef("", chaine)
                    Req_Local.Execute
                End If
                    rec_2.MoveNext
                    Loop
        Rec_1.MoveNext
      Loop
Donc c'est mon champs bool qui passe pas, j'ai toujours le même message d'erreur me disant que la méthode .Fields n'est pas reconnu. Apparement l'erreur est déjà au niveau de la chaine le bool ne passe pas au milieu de la chaine.

Savez vous le changement que je dois faire?

En tout cas, merci d'avance.