Discussion :

[sunwind]

Bonsoir à tous j ai enfin réussi à remplir ma table à partir de ma requete via le code ci dessous.

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

Tout est OK c'està dire les changements se font bien dynamiquement mais il me reste un souci. En effet quand je rempli une première fois ca marche bien mais quand je m amuse à supprimer les 3 champs de mon première enregistrement il me met :

" le champ graph_loc1.ad ne peut contenir une valeur null car la valeur de la propriété Required pour ce champ est true"

En fait j ai l impression que comme le 1 er enregtriment est null alors il n arrive pas mettre à jour un enregistrement null quand je lui dit "rs02.Update"

Si quelqu un à des idées.
Merci

[Demco]

Si tu supprimes les champs je ne comprends pas pourquoi ils sont représentés sous forme de champs nulls quand tu fais la requête :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set rs02 = DB.OpenRecordset("select * from graph1")

Ils ne devraient pas du tout être retournée ... comment effectues-tu cette suppression ? La ligne dans la table doit toujours apparaitre ce n'est pas normal.

Au pir une solution sale est de vérifier la non nullité avant de faire le .add, mais je te conseille plutôt de revoir ta méthode de suppression.

En espérant t'aider.