bonjour, je ne suis pas encore à l'aise avec les objets ado, et je joue un peu les apprentis sorciers. J'essaie de faire tourner cette boucle, mais elle coince après le premier enregistrement (seul le premier enregistrement est ajouté)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Dim Rct_Aj2 As Recordset
 
Set Rct_Aj2 = db.OpenRecordset("SELECT * FROM T_Formation_Formateur WHERE ((T_Formation_Formateur.NumeroFormation) Like " & Me.NumeroFormation & ");")
 
Rct_Aj2.MoveLast
Rct_Aj2.MoveFirst
While Not Rct_Aj2.AbsolutePosition = Rct_Aj2.RecordCount
DoCmd.RunSQL ("INSERT INTO T_Formation_Formateur ([NumeroFormation], [NumeroProfessionnel]) VALUES (" & MaxNum & ", " & Rct_Aj2(3) & ");")
Rct_Aj2.MoveNext
Wend
j'ai testé la valeur de recordcount, et elle correspond bien au nombre d'enregistrements que j'essaie d'ajouter à T_Formation_Formateur
toute aide est la bienvenue!
merci