Discussion :

[dalmasma]

Bonjour,

Le code suivant est censé prendre des données dans une table (Fluids) et les ajouter dans uen autre table (FluidProperties)
Mais il ne fait pas du tout cela : il réajoute dans la première table et pas du tout comme je veux magiiiiie !!

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
Private Sub CopyFluidData2Table()
 
Dim i As Integer 
Dim SQL As String 
Dim DB As DAO.Database
Set DB = CurrentDb
Dim rs As DAO.Recordset
Dim rsProp As DAO.Recordset
 
SQL = "SELECT * FROM Fluids WHERE [Fluids].[IDFluid] = " & Me.IDFluid 
 
MsgBox Me.IDFluid
 
' Crée un recordset contenant l'enregisrement qui m'intéresse à partir de la table Fluids
Set rs = DB.OpenRecordset(SQL, dbOpenDynaset) 
 
' crée un recordset de la table FLuidProperties dans laquelle je dois insérer les données
Set rsProp = CurrentDb.OpenRecordset("FluidProperties") 
 
'là on définit dans quel recordset les insertions vont se faire, donc dans la table FluidProperties
With rsProp 
For i = 3 To rs.Fields.Count
 
        If rs.Fields(i).Value Then GoTo Nxt
          .AddNew
          rsProp!IDProperty = DLookup("[IDProperty]", "PropertiesList", "(Property = " & rs.Fields(i).Name & ")")
          rsProp!IDFluid = rs.Fields("IDFluid").Value
          rsProp!PropValue = rs.Fields(i).Value
         .Update
 
Nxt:
Next
End With
 
End Sub

Mais le résultat est une copie du premier élément de la table Fluids (dans tous les cas, dans la table FLuids, alors que je n'ai pas du tout demandé ça

Merci d'avance de m'expliquer si vous comprenez pourquoi ça donne ça

[dalmasma]

Bon en fait j'ai vu qu'il y avait une erreur qui faisait que c'était le premier enregistrement qui était ajouté. Je résous et je teste si ça marche après (par contre je ne comprends pas pourquoi il s'ajoute à la table Fluids