remplir une table basée sur form et sub form

Re bonjour,

Comme dit hier, je cafouille un max dans cette histoire ..
voici déjà ce que j'ai fait ...
et qui ne fonctionne pas vraiment comme il faut
'pour chaque contact, ajouter dans la table EventDetail une ligne par date
présente dans la table (PopupDateCC)

Dim rst As Recordset
Set rst = Me.Recordset

' BOUCLE1: Parcoure la liste des contacts
With rst
If Not .BOF Then
.MoveFirst
Do Until .EOF
'BOUCLE2: parcoure la liste des dates
Dim Drst As Recordset
Set Drst = CurrentDb.TableDefs(PopupDateCC)

With Drst
If Not .BOF Then
.MoveFirst
Do Until .EOF
'ajoute un record à
EventDetail...???
.MoveNext 'passe à la date suivante
Loop
End With
'End If
.MoveNext ' quand le parcoure des date de PopupDateCC est
fini, passe au contact suivant
Loop
End If
End With
'rst.Close: Set rst = Nothing
Me.Refresh
End If

End Sub

Si vous aviez une idée pour me sortir de ce noeud...

D'avance merci

Frédéric

"fth" <infosSPAM?@matloc.be> wrote in message
news:OmEWieDeGHA.4720@TK2MSFTNGP03.phx.gbl...

Bonjour bonsoir,

petit soucis du lunid...

qq objets:
Form1
subformDate
SubFormEvent

ma forme fait défiler en liste mes contact;
subformDate affiche toutes les dates de l'évenement

SubFormEvent (c'est maintenant que ça commence ;-)
pour chaque contact de Form1, il faut que pour chaque date de subformDate,
je retrouve une ligne dans SubFormEvent
ça donnera un truc du genre

Ct1
date1 ch1 ch2 ch3
date2 ch1 ch2 ch3
date3 ch1 ch2 ch3


je pensais imbriquer deux do while ... mais je m'y perds...

d'avance merci

Frédéric