Discussion :

[clickandgo]

Bonjour à tous

Je n'arrive pas à ce que la boucle imbriquée dans ce code se ré-exécute autant de fois que de quantité de "i" il y a ...

La première boucle (qui lit un tableau) s’exécute parfaitement et remplit bien les données dans la table, autant de fois que nécessaire

La deuxième (imbriquée) ne fait son travail qu'une fois correctement et ne réitère pas ensuite le reste du remplissage de table malgré le "Next i" de la première ...

Cela aurait il un rapport avec la recherche de l'ID d'enregistrement représentée par la variable "idParcelleactive" ?

Que suis-je entrain d'oublier ?

Merci d'avance pour vos suggestions

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
50
51
Dim tblParcelles() As String
    Dim grpParcelles As String
    Dim idParcelleActive As Long
 
    Dim rs As DAO.Recordset
    Dim rs2 As DAO.Recordset
    Dim rs3 As DAO.Recordset
 
 
    Set rs = CurrentDb.OpenRecordset("tmpparcelles")
    Set rs2 = CurrentDb.OpenRecordset("tmpproprietaires")
    Set rs3 = CurrentDb.OpenRecordset("tmpproprietairescommuns")
 
    Dim i As Integer
 
 
    tblParcelles() = Split(Me.txtGrpParcelles.Value, ",")
 
    For i = LBound(tblParcelles) To UBound(tblParcelles)
    grpParcelles = grpParcelles & vbCrLf & i + 1 & " - " & Me.txtsection.Value & "-" & tblParcelles(i) & " à " & Me.cboCommune.Column(1)
 
     'Remplissage table temporaire parcelles
 
    On Error GoTo err
 
    rs.AddNew
    rs!SectionParcelle = Me.txtsection
    rs!AdresseParcelle = Me.CboLieuDit
    rs!NumParcelle = tblParcelles(i)
    rs!Commune = Me.cboCommune
    rs!CodeExploitant = Me.CboExploitant
 
    'Recherche de l'id de la parcelle en création
     idParcelleActive = rs.Fields("idparcelle").Value
    rs.Update
 
    'Remplissage table temporaire proprietaires
         Do While Not rs3.EOF
    Debug.Print idParcelleActive
 
        rs2.AddNew
        rs2!IdParcelle = idParcelleActive
        rs2!Propriétaire = rs3!Propriétaire
        rs2!TypePropriete = rs3!TypePropriete
        rs2.Update
 
    'idParcelleActive = ""
    rs3.MoveNext
    Loop
 
     Next i

[marot_r]

bonjour.

C'est normal puisque tu ne ramenes jamais RS3 au debut.

il suffit d'ajouter

Code :

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

1
2
3
if rs3.recordcount<>0 then
   rs3.movefirst
end if

avant le do / loop.

A+

[clickandgo]

Ahhhh tu me sauves la vie !!!

Encore une faute d'inattention !

Bonne continuation