[VBA] Erreur dans un code. Hierarchie DAO.

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:

---

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 :

Citation:

---

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:

---

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

+++
++
+

Bonjour,

Quand tu fais

Code:

---

1 2	Debug.Print rst.AbsolutePosition

---

Tu veux afficher quoi ?

Salut,
Si c'est le numéro de l'enregistrement que tu veux (1er, 2ème etc..)
tu peux mettre un compteur à la place et afficher ce compteur : ça fera la même chose.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim i as Integer i = 1 '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 i i = i + 1   'Passage aux caractéristiques suivantes rst.MoveNext Wend

---

AbsolutePosition n'est pas disponible pour les recordset de type Table (par défaut ici)

Ouvre un recordset dynamique :wink:

Code:

---

Set rst = db.OpenRecordset("TB_CARACTERISTIQUES",dbOpenDynaset)

---