Discussion :

[wildpenguin]

Bonjour,

J'essaie, dans une application vba Access, de lister les noms des champs d'un recordset rempli à partir d'une requête SQL.


Dans la doc d'access, j'ai trouvé ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
 Sub Imprime_Noms_Champs()
      Dim rst As DAO.Recordset, entI As Integer
      Dim champ As Field
 
      Set rst = Me.Recordset
      For Each champ in rst.Fields
          ' Imprime les noms des champs.
          Debug.Print champ.Nom
      Next
  End Sub

Cet exemple porte sur les champs d'un formulaire, et ne semble pas pouvoir être transposé dans mon cas.


Si j'essaie ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub maRoutine()
      Dim rs As DAO.Recordset, champ As Field
 
      Set rs = CurrentDb.OpenRecordset("select * from uneTable")
 
      For Each champ In rs.Fields
          MsgBox champ.Name, vbOKOnly, "Essai"
      Next
 
      rs.Close
  End Sub

Access me répond "Erreur d'exécution '13' : Incompatibilité de type"
et me pointe la ligne "For Each champ In rs.Fields".

Le survol de cette ligne m'apprend que champ=Nothing.


Où me trompé-je ?

[Balises de code rajoutées par Thierry AIM, Merci d'y penser la prochaine fois]

[pc75]

Bonjour,

Et comme ça ?

Code :

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

1
2
3
4
 
for i = 0 to rst .Fields.count - 1
   Debug.print rst .Fields(i).Name
next

[Bigyork]

A priori tu as oublié :

Code :

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

Set champ = New Field

L'initialisation de la variable !

[random]

Set rs = CurrentDb.OpenRecordset("select * from uneTable")
pas de ; ??
admettons derrière essaye
de faire msgbox rs.recordcound
et déclare champ en variant

[wildpenguin]

C'est bon :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub maRoutine()
    Dim rs As DAO.Recordset, i As Integer
 
    Set rs = CurrentDb.OpenRecordset("select * from maTable")
    rs.MoveFirst
 
    For i = 0 To rs.Fields.Count - 1
       MsgBox rs.Fields(i).Name, vbOKOnly, "Essai"
    Next
 
    rs.Close
End Sub

Merci à tous.

[wildpenguin]

pas de ; ??

Non : access semble assez permissif...
Mais je vais en mettre un ; c'est plus propre.