Discussion :

[Isgfred]

Bonjour,

Je suis en train d'essayer de mettre en place une boucle pour que sur chaque enregistrement d'un table de controle, des requêtes soit lancé par l'intermédiaire du nom de la requête stocké dans la table (et si le statut actif est = 1).
Le code que j'ai récupéré n'est peut être pas optimum, mais je n'arrive même pas à passer la ligne DIM ORst as DAO.Recordset
J'ai le message :Erreur d'exécution '424' : Objet requis

Je me suis dit la bibliotèque DAO n'était pas installé donc j'ai installé les bibliotèques :
Mircosoft DAO 3.6 Object Library
J'ai fermé et redémarré Access pour voir si cela fonctionné. Cela ne fonctionne pas ! pourtant la bibliothèque est installée. Il ne reconnais pas l'objet DAO.Recordset.

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
 
Sub MO_Boucle_Rq()
 
Dim*oRst*as*DAO.Recordset
Dim*oDb*as*DAO.Database
Set*oDb = CurrentDb
 
Set*oRst = oDb.OpenRecordset("SELECT nomRq FROM T01_CONTROLE where Actif=1")
 
If*oRst.EOF = *true*then*oRst.MoveFirst
While*oRst.EOF = *false
****DoCmd.OpenQuery oRst
****oRst.MoveNext
 
'Libération des objets
oRst.Close
oDb.Close
Set*oRst = Nothing
Set*oDb = Nothing
 
End Sub

Si quelqu'un sais comment m'aider, je lui en serai reconnaissant.

Merci pour votre aide.

[tee_grandbois]

Bonjour,

Le code que j'ai récupéré n'est peut être pas optimum, mais je n'arrive même pas à passer la ligne DIM ORst as DAO.Recordset

ton code est bizarre, il y a des * à la place des espaces, Tu as peut-être récupéré un caractère invalide pour VBA. Copie le code que tu as posté dans un éditeur de texte et remplace les * par un espace.

[Isgfred]

Bonjour
Je confirme que le code que j ai récupéré a un problème.
Ça m apprendra a ne pas rapper mon code moi même.
J ai retiré les caractère spéciaux qui ne se voit pas en vba et cela fonctionne très bien.
Merci pour ton aide,
FF