Discussion :

[snoopy69]

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

+++
++
+

[pc75]

Bonjour,

Quand tu fais

Code :

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

1
2
 
Debug.Print rst.AbsolutePosition

Tu veux afficher quoi ?

[Lou Pitchoun]

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 :

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

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

[Tofalu]

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

Ouvre un recordset dynamique

Code :

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

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