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 |
Partager