Discussion :

[alea83]

Bonjour à tous,

Je reviens à nouveau vers ce forum car malgré de nombreuses recherches je ne trouve pas la solution.

J'ai deux recordset, et je dois mettre à jour le premier en fonction des données du second.
Cela fonctionne mais il me met les données de "oRst" sur tous les enregistrements de "Vue", à cause de MoveFirst..
Je l'ai enlevé et du coup maintenant il ne sait plus quoi lire dans oRst.. le message est aucun enregistrement en cours
Merci à vous si vous avez une suggestion ? (j'ai pensé à utiliser une position bookmark ou qqchose du genre mais sans succés..

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
37
38
39
40
41
42
43
44
45
46
47
48
49
Dim oRst As DAO.Recordset
Dim Vue As DAO.Recordset
Dim oDb As DAO.Database
Dim Var As Integer
Var = Me.NUME
Set oDb = CurrentDb
 
Set oRst = oDb.OpenRecordset("SELECT ExportPhotos.DateCliche, ExportPhotos.Latitude, ExportPhotos.Longitude, ExportPhotos.Répertoire, ExportPhotos.Fichier, ExportPhotos.Rang FROM ExportPhotos ORDER BY ExportPhotos.DateCliche;")
Set Vue = oDb.OpenRecordset("SELECT VuePhoto.DatePh, VuePhoto.Photo1, VuePhoto.Photo2, VuePhoto.Photo3, VuePhoto.Latitude, VuePhoto.Longitude FROM VuePhoto WHERE VuePhoto.NOInfo = " & Var & ";")
 
'boucle sur les enregistrements de VuePhoto
 
 If Vue.EOF = True Then Vue.MoveFirst
       oRst.MoveFirst
 While Vue.EOF = False
 
  'Passe en mode modification
  Vue.Edit
 
       'boucle sur les enregistrement d'ExportPhotos
      '  If oRst.EOF = True Then oRst.MoveFirst
      '  While oRst.EOF = False
 
  Vue.Fields("DatePh") = oRst.Fields("DateCliche")
   Vue.Fields("Photo1") = oRst.Fields("Répertoire") & oRst.Fields("Fichier")
    Vue.Fields("Latitude") = oRst.Fields("Latitude")
    Vue.Fields("Longitude") = oRst.Fields("Longitude")
 Vue.Update
 oRst.MoveNext
 Vue.Edit
   Vue.Fields("Photo2") = oRst.Fields("Répertoire") & oRst.Fields("Fichier")
    Vue.Update
 oRst.MoveNext
 Vue.Edit
    Vue.Fields("Photo3") = oRst.Fields("Répertoire") & oRst.Fields("Fichier")
 Vue.Update
 Vue.MoveNext
oRst.MoveNext
'Wend
Wend
 
 
'Libération des objets
oRst.Close
Vue.Close
oDb.Close
Set oRst = Nothing
Set Vue = Nothing
Set oDb = Nothing

[User]

Bonjour,

A la lecture du code, dans la requête source de oRst vous devriez avoir 3 fois plus de lignes que dans la requête source de Vue :

1 ligne/enregistrement pour les 3 photos dans Vue
1 ligne par photo dans oRst

Avec les ExportPhotos.DateCliche, ExportPhotos.Latitude, ExportPhotos.Longitude qui se répètent pour les 3 photos dans oRst.

Est-ce le cas ?

[alea83]

Bonjour,

Oui en effet je n'avais pas vu qu'il m'a bien mis les 4 enregistrements à jour et que le message venait aprés cette mise à jour car en effet que 12 photos et 10 enregistrements dans la Vue.

Par contre dois je mettre une oRst.EOF pour éviter le message ?
Merci encore pour votre aide.

[User]

Bonjour,

Oui en effet je n'avais pas vu qu'il m'a bien mis les 4 enregistrements à jour et que le message venait aprés cette mise à jour car en effet que 12 photos et 10 enregistrements dans la Vue.

Par contre dois je mettre une oRst.EOF pour éviter le message ?
Merci encore pour votre aide.

Bonjour,

Peut-être essayer en début de boucle de combiner les 2 conditions nécessaires pour continuer la boucle :

Code :

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

1
2
3
4
5
6
7
...
While (Vue.EOF=False) and (oRst.EOF=False)
 
...
 
wend
...

Cdlt,

[Thumb down]

Bonjour,
Qu'est-ce qui lie les enregistrements du recordset1 au recordset2.

Tu ne peux pas faire une requête de mise a jour tout simplement ?