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 !