[VBA] Recordset ADOBD vide à partir requête Access

Bonjour,

Je rencontre un problème de chargement d'un recordset à partir d'une requête Access (2003 SP2).

Voici mon code (basique ...) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

' Déclaration connexion Dim CONX As New ADODB.Connection Set CONX = CurrentProject.Connection   ' Déclaration recorset Dim RecordsetConfig As New ADODB.Recordset RecordsetConfig.ActiveConnection = CONX   ' Chargement du recordset avec une requête Access : TPEexportConfig Dim SQL As String SQL = "select * from TPEexportConfig" RecordsetConfig.Open SQL, CONX, adOpenDynamic RecordsetConfig.MoveFirst   Do Until RecordsetConfig.EOF = True ' insertion en base pour chaque enregistrement DoCmd.RunSQL "INSERT INTO ConfigTPE (NumTPE,IdEltConf,Version) VALUES (" & RecordsetConfig.Fields(0) & ", 1 ,'" & RecordsetConfig.Fields(1) & "');", True   RecordsetConfig.MoveNext Loop RecordsetConfig.Close

---

Mais je bloque à la ligne MoveFirst avec l'erreur suivante :

Code:

---

1 2	erreur d'exécution '3021' BOF ou EOF est égal à True ou l'enregistrement actuel a été supprimé

---

Et si je ne mets pas mon RecordsetConfig.MoveFirst je ne rentre pas dans la boucle.
Ce qui m'étonne c'est qu'en passant via DAO je n'avais pas ce pb.

En revanche si ma variable SQL s'appuie sur une table Access (et non plus une requête Access), je rentre dans ma boucle (bon après j'ai de gros pb de perfs dont je parlerai après ...)

Quelqu'un voit-il mon erreur ?

D'avance merci de l'aide de quiconque pour le grand débutant VBA que je suis.

Bonjour et bienvenue sur le forum.

Cette erreur sur un MoveFirst indique en général un recordset vide.
J'ai essayé ton code et il fonctionne pour moi.

Je vois que tu parles de requête.
Il y a un piège avec ADO dans les critères avec LIKE.
Il faut utiliser les caractères génériques % et _ en lieu et place de * et ?
Par exemple

Code:

---

SELECT * FROM Communes WHERE Ville LIKE "?AR*"

---

ne fonctionne pas. Il faut écrire pour ADO :

Code:

---

SELECT * FROM Communes WHERE Ville LIKE "_AR%"

---

A+

Bonjour,

Essayes aussi :

Code:

---

1 2 3 4 5 6 7

Do While (Not RecordsetConfig.EOF) ' insertion en base pour chaque enregistrement DoCmd.RunSQL "INSERT INTO ConfigTPE (NumTPE,IdEltConf,Version) VALUES (" & RecordsetConfig.Fields(0) & ", 1 ,'" & RecordsetConfig.Fields(1) & "');", True   RecordsetConfig.MoveNext Loop

---

Je sais que ca revient au même, Lol...

Bonjour,
Le test avant tout le reste, possible avec le type de curseur utilisé par cagou

If rst.RecordCount > 0 Then

A+

Bonjour,

Merci à tous les 3 de vous êtes penchés sur mon problème.
Et la solution était en effet toute simple, j'avais une clause where avec des * dans ma requête TPEexportConfig !
D'où le recordset initialement vide.
J'avais pourtant bien vu les posts qui en parlait déjà mais je n'avais pas fait le rapprochement ! :oops:

En tout cas encore merci.