Interférence entre OpenQuery et OpenRecordset ?

Bonjour à tous,

J'ai le code suivant à l'ouverture de ma base qui plante avec l'erreur "Aucun enregistrement en cours" :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

DoCmd.OpenQuery "ADD_Comm_Nouvelle", , acReadOnly   Dim rst As DAO.Recordset myREQ = "SELECT Comm, [Date envoi] FROM REQ_Comm_Nouvelle" Set rst = CurrentDb.OpenRecordset(myREQ, dbOpenDynaset)   rst.MoveFirst While Not rst.EOF <mon traitement> rst.MoveNext Wend

---

La seule solution que j'ai trouvée et qui fonctionne est d'exécuter l'OpenQuery après la gestion du RecordSet (c'est-à-dire après le WEND) mais j'aimerais comprendre pourquoi cela ne fonctionne pas dans l'autre sens.
Quelqu'un a une idée svp ?

Merci !

Salut,

Pourquoi est ce que tu fait une moveFirst juste après avoir ouvert le recordset ?
Ca ne sert à rien, à l'ouverture, il est automatiquement positionné sur le 1er enregistremnt (s'il y en a un).

Et vu qu'il n'a l'air de rien contenir, moveFirst plante.

Effectivement j'ai supprimé le MoveFirst mais cela ne change pas ma question :)

Bonjour,

En fait ça doit dépendre du traitement que vous effectué dans votre boucle :

Pouvez vous le détailler ?

Cdlt,

Bonjour,

Ce qu'il faudrait déterminer avant le traitement c'est l'interaction réelle entre la query insert et select :

Code:

---

1 2 3 4

DoCmd.OpenQuery "ADD_Comm_Nouvelle", , acReadOnly   Dim rst As DAO.Recordset myREQ = "SELECT Comm, [Date envoi] FROM REQ_Comm_Nouvelle"

---

Qu'est ce que tu veux faire avant la boucle.

Cordialement,

Merci pour vos réponses.

L'OpenQuery insère des enregistrements vers une autre table. Dans le deux cas, la source est la même requête REQ_Comm_Nouvelle

Code:

---

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

Dim i As Integer Dim max_i As Integer Dim tabcomm(100, 2) As String   ' Ajout des nouvelles communications envoyées dans TABL_Comm DoCmd.OpenQuery "ADD_Comm_Nouvelle", , acReadOnly AjouterLOG ("MAJ auto au démarrage : ADD_Comm_Nouvelle")   ' Recherche des infos des nouvelles communications Dim rst_c As DAO.Recordset myREQ = "SELECT Comm, [Date envoi] FROM REQ_Comm_Nouvelle" Set rst_c = CurrentDb.OpenRecordset(myREQ, dbOpenDynaset)   i = 0 max_i = 0 While Not rst_c.EOF i = i + 1 tabcomm(i, 0) = rst_c.Fields("Comm").Value tabcomm(i, 1) = rst_c.Fields("Date envoi").Value rst_c.MoveNext Wend max_i = i

---

Et REQ_Comm_Nouvelle ?

Si on a pas une vue précise de l'ensemble c'est le jeu de piste... :roll:

Salut
Ligne 6 (vide) de votre code Post#1, placez

Code:

---

If rst.RecordCount = 0 Then Exit Sub

---

OK je vais tester dès que possible, merci !

Si le but c'est de ne plus avoir de message d'erreur c'est vrai qu'en faisant un recordcount sur la 6 le but sera atteint. :roll:

Bonjour,
Qu'est sencé faire ADD_Comm_Nouvelle?

Bonjour,

Oui, ça manque d'info (quelle structure pour les requêtes ?) et pas mal de questions au niveau des choix dans le code (Openquery, tableau, ..):

Sinon, comment le code est exécuté au démarrage de la base (sur quel événement..) ?

Cdlt

Heu, la propriété recordCount n'est fiable que pour les recordsets issu d'une table, pour les recordset issu d'une requête, elle n'est à jour que si l'on a parcourus tous les enregistrements, ce qui niveau performances est completement pourri.

Il y a un moyen de savoir si un recordset est vide: Tester Bof et Eof.
S'ils sont tous les deux vrai, alors le recordset est vide.

Voilà la requête ADD_Comm_Nouvelle exécutée sur Form_Load

Code:

---

1 2 3 4

INSERT INTO TABL_Comm ( nom_comm, date_comm, date_maj ) SELECT REQ_Comm_Nouvelle.Comm, REQ_Comm_Nouvelle.[Date envoi], Now() FROM REQ_Comm_Nouvelle;

---

Code:

---

1 2 3 4 5 6 7 8 9 10

CurrentDb.execute "ADD_Comm_Nouvelle"   Dim rst As DAO.Recordset myREQ = "SELECT Comm, [Date envoi] FROM REQ_Comm_Nouvelle" Set rst = CurrentDb.OpenRecordset(myREQ, dbOpenDynaset)   While Not rst.EOF <mon traitement> rst.MoveNext Wend

---

Citation:

---

Envoyé par sca42

Voilà la requête ADD_Comm_Nouvelle exécutée sur Form_Load

Code:

---

1 2 3 4

INSERT INTO TABL_Comm ( nom_comm, date_comm, date_maj ) SELECT REQ_Comm_Nouvelle.Comm, REQ_Comm_Nouvelle.[Date envoi], Now() FROM REQ_Comm_Nouvelle;

---

---

@sca42 : J'ai comme une impression de déjà vu. Pas toi ?

Je ne comprends pas.
On me demande ce que fait la requête donc je donne le détail.
Je l'ai posté deux fois ?

Citation:

---

Envoyé par loufab

@sca42 : J'ai comme une impression de déjà vu. Pas toi ?

---

On va reprendre :

1) ça on part du principe que tu as vérifié que ça fonctionnait et que ça ajoute bien les ernegistrements dont tu as besoin.

Code:

---

CurrentDb.execute "ADD_Comm_Nouvelle"

---

2) ça c'est la partie qui alimente le rst

Code:

---

1 2 3

Dim rst As DAO.Recordset myREQ = "SELECT Comm, [Date envoi] FROM REQ_Comm_Nouvelle" Set rst = CurrentDb.OpenRecordset(myREQ, dbOpenDynaset)

---

3) ça c'est le truc qui plante.

Code:

---

1 2	rst.movelast

---

4) ça c'est pas notre problème.

Code:

---

1 2 3 4 5

While Not rst.EOF <mon traitement> rst.MoveNext Wend

---

Donc logiquement le problème se trouve au point 2. Ton Rst est vide parce que ta requête ne renvoie rien.

Les questions sont :
Qu'est-ce qu'il y a dans la requête "REQ_Comm_Nouvelle" que tu veux pas nous montrer ?
Pourquoi elle ne renvoie rien ?

Cordialement,

Voilà REQ_Comm_Nouvelle.

Code:

---

1 2 3

SELECT REQ_Comm_Unique.Comm, REQ_Comm_Unique.[Date envoi] FROM REQ_Comm_Unique LEFT JOIN TABL_Comm ON REQ_Comm_Unique.[Comm] = TABL_Comm.[nom_comm] WHERE (((TABL_Comm.nom_comm) Is Null));

---

Je n'ai pas dit qu'elle ne renvoyait rien.
J'ai dit qu'elle ne renvoyait rien quand elle était placée après l'OpenQuery, ce qui n'a aucun sens car il n'y a pas de lien entre les deux.

Mais inutile de passer du temps sur un sujet alors que j'ai trouvé une solution :)

:mouarf3:
Pensez à clôturer le sujet.