Bonjour,

Je chercher à faire quelque chose de simple, à savoir une requête SQL qui recopie dans une table différente des données en evitant les doublons, en utilisant des recordset.

Je cherche pour l'instant à sélectionner une plage de données et à l'insérer dans un recordset, mais je ne comprends pas seulement la première donnée est insérée dans le recordset, qui ne contient qu'un champ!

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
 
private Sub MAJ_Demandeur()
 
Dim db As DAO.Database
Dim rst_Demandeur As DAO.Recordset
Dim SQL_Demandeur As String
Dim rcd As DAO.Recordset
 
Set db = CurrentDb
 
Set rcd = db.OpenRecordset("SELECT Pays FROM T_EBC1")
 
'Boucles de test, le second msgbox retourne le message "objet requis" !
If rcd.EOF Then MsgBox "Erreur" Else MsgBox rcd.Fields(0).Value
     rst.MoveNext
If rcd.EOF Then MsgBox "Erreur" Else MsgBox rcd.Fields(1).Value
 
rcd.Close
rcd = Nothing
 
End Sub
Merci, c'est frustrant.