Discussion :

[sunwind]

J ai pas réussi à répondre dc j ai recrée une discussion .
Désolé mais j acquitterai les deux, vous inkietez pas.
Sinon c est positif car j ai eesayé cela en adaptant :

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
 
 
Dim rs01 As DAO.Recordset
Dim rs02 As DAO.Recordset
Dim SQL01 As String
Dim DB As DAO.Database
 
Set DB = CurrentDb
Set rs01 = DB.OpenRecordset("select * from selection")
rs01.MoveFirst
 
 
 
 
Set rs02 = DB.OpenRecordset("select * from graph1")
rs02.AddNew
rs02.Fields(1) = rs01.Fields(16)
rs02.Fields(2) = rs01.Fields(20)
rs02.Fields(3) = rs01.Fields(21)
rs02.Update
 
rs02.AddNew
rs02.Fields(1) = rs01.Fields(17)
rs02.Fields(2) = rs01.Fields(18)
rs02.Fields(3) = rs01.Fields(19)
rs02.Update
 
rs01.Close
rs02.Close
DB.Close
Set rs01 = Nothing
Set rs02 = Nothing
Set DB = Nothing
End Sub

Le seul hic est qu a chaque mis à jour du formulaire ( simple ouverture ou passage mode création--> mode formulaire) les données se mettent bien à jour dans la table graph1 mais cela me crée à chaque fois 2 enregistrement supplémentaire à savoir ( 2 puis 4 puis 6..) alors que je voudrais avoir uniquement deux enregistrements et juste pouvoir modifier les valeurs de champs.
Merci pour votre contribution.

[jacou]

Le seul hic est qu a chaque mis à jour du formulaire ( simple ouverture ou passage mode création--> mode formulaire) les données se mettent bien à jour dans la table graph1 mais cela me crée à chaque fois 2 enregistrement supplémentaire à savoir ( 2 puis 4 puis 6..)

C'est le résultat absolument logigue de ton code.

Il faut vider les anciens enregistrements avant d'ajouter de nouveaux:

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
Sub Form_Open(Cancel as Integer)

Dim rs01 As DAO.Recordset
Dim rs02 As DAO.Recordset
Dim SQL01 As String
Dim DB As DAO.Database
 
Set DB = CurrentDb
Set rs01 = DB.OpenRecordset("select * from selection")
rs01.MoveFirst
 
 
 
DB.Execute "DELETE * FROM graph1;", dbFailOnError 

Set rs02 = DB.OpenRecordset("select * from graph1")
rs02.AddNew
rs02.Fields(1) = rs01.Fields(16)
rs02.Fields(2) = rs01.Fields(20)
rs02.Fields(3) = rs01.Fields(21)
rs02.Update
 
rs02.AddNew
rs02.Fields(1) = rs01.Fields(17)
rs02.Fields(2) = rs01.Fields(18)
rs02.Fields(3) = rs01.Fields(19)
rs02.Update
 
rs01.Close
rs02.Close
DB.Close
Set rs01 = Nothing
Set rs02 = Nothing
Set DB = Nothing
End Sub