Interférence entre OpenQuery et OpenRecordset ?

**sca42** · 24/02/2023, 14h43

Bonjour à tous,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

**deedolith** · 24/02/2023, 16h20

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.

**sca42** · 25/02/2023, 08h04

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

**User** · 25/02/2023, 08h55

Bonjour,

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

Pouvez vous le détailler ?

Cdlt,

**loufab** · 26/02/2023, 15h33

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

**sca42** · 27/02/2023, 06h53

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 :

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
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

**loufab** · 27/02/2023, 08h56

Et REQ_Comm_Nouvelle ?

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

**hyperion13** · 27/02/2023, 09h51

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If rst.RecordCount = 0 Then Exit Sub

**sca42** · 27/02/2023, 09h54

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

**loufab** · 27/02/2023, 14h33

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.

**Thumb down** · 27/02/2023, 16h31

Bonjour,
Qu'est sencé faire ADD_Comm_Nouvelle?

**User** · 27/02/2023, 19h10

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

**deedolith** · 27/02/2023, 19h35

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.

**sca42** · 27/02/2023, 20h27

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

**Thumb down** · 27/02/2023, 23h06

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**loufab** · 28/02/2023, 11h11

Envoyé par sca42

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

**sca42** · 28/02/2023, 11h38

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 ?

Envoyé par loufab

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

**loufab** · 28/02/2023, 11h58

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

CurrentDb.execute "ADD_Comm_Nouvelle"

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
rst.movelast

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

**sca42** · 28/02/2023, 12h10

Voilà REQ_Comm_Nouvelle.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**hyperion13** · 28/02/2023, 12h58

Pensez à clôturer le sujet.

Interférence entre OpenQuery et OpenRecordset ?

VBA Access

Discussions similaires

Partager

Partager