Recup nom des champs de table en VBA

Bonjour,

Essaies :
Sub zz()
' Charger la référence Microsoft DAO 3.x Object Library
Dim bd As DAO.Database
Dim t As DAO.Tabledef
Dim f As DAO.Field
Set bd = CurrentDb
Set t = bd.TableDefs("NomTable") ' <-- A adapter
For Each f In t.Fields
Debug.Print f.Name
Next f
Set t = Nothing
End Sub

Bonjour, je voudrais récupérer le nom des colonnes d'une tbl acces via VBA.
J'ai cherché dans le forum et sur le net sans résultat. Connaissez-vous une
combine ?
Merci

--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

.../...
Manque Set bd = nothing avant le end sub

Bonjour,

Essaies :
Sub zz()
' Charger la référence Microsoft DAO 3.x Object Library
Dim bd As DAO.Database
Dim t As DAO.Tabledef
Dim f As DAO.Field
Set bd = CurrentDb
Set t = bd.TableDefs("NomTable") ' <-- A adapter
For Each f In t.Fields
Debug.Print f.Name
Next f
Set t = Nothing
End Sub

Bonjour, je voudrais récupérer le nom des colonnes d'une tbl acces via
VBA. J'ai cherché dans le forum et sur le net sans résultat.
Connaissez-vous une combine ?
Merci

--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Merci beaucoup !

"Eric" <f_framZZ@hotmail.com> a écrit dans le message de news:
uaU6SJrOGHA.2176@TK2MSFTNGP10.phx.gbl...

.../...
Manque Set bd = nothing avant le end sub

Bonjour,

Essaies :
Sub zz()
' Charger la référence Microsoft DAO 3.x Object Library
Dim bd As DAO.Database
Dim t As DAO.Tabledef
Dim f As DAO.Field
Set bd = CurrentDb
Set t = bd.TableDefs("NomTable") ' <-- A adapter
For Each f In t.Fields
Debug.Print f.Name
Next f
Set t = Nothing
End Sub

Bonjour, je voudrais récupérer le nom des colonnes d'une tbl acces via
VBA. J'ai cherché dans le forum et sur le net sans résultat.
Connaissez-vous une combine ?
Merci

--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr