Bonjour à tous, je cherche à afficher tous les enregistrements que j'ai dans une table dans ma fenêtre d'exécution VBA ...

Voici le code que j'ai :

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
24
25
26
27
Sub DAO_lister_caracteristiques()
 
'Déclaration des variables
Dim db As DAO.Database
Dim rst As DAO.Recordset
 
'Ouverture de la table tb_caracteristiques
Set db = Application.CurrentDb
Set rst = db.OpenRecordset("TB_CARACTERISTIQUES")
 
'Parcours de la table
While rst.EOF = False
 
    'Affichage des informations
    Debug.Print rst("pk_fk_metal"), rst("pk_fk_alliage"), rst("pk_fk_mouvement"), rst("pk_fk_titre"),
    Debug.Print rst.AbsolutePosition
 
    'Passage aux caractéristiques suivantes
    rst.MoveNext
Wend
 
'Fermeture et libération des objets
rst.Close
Set rst = Nothing
Set db = Nothing
 
End Sub
et voici mon erreur :

Erreur d'exécution '3251'
Opération non autorisé pour ce type d'objet.
Lorsque je clique sur débogage c'est cette ligne qui se met en jaune :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Debug.Print rst.AbsolutePosition
si je mets cette ligne en commentaires cela marche mais mon affichage ne se fait pas comme je le voudrais ...

Savez-vous d'où vient le problème ... ??? merci de votre aide ...

+++
++
+