Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pierre CFI [mvp]
bonjour Sub xx() Dim i As Integer For i = 0 To CurrentDb.TableDefs("table1").Fields.Count - 1 Debug.Print CurrentDb.TableDefs("table1").Fields(i).Name Next End Sub
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "Jiveday" a écrit dans le message de news:
Bonjour
comment récupérer par programmation via une boucle les noms de champs d'une table ?
Merci d'avance
bonjour
Sub xx()
Dim i As Integer
For i = 0 To CurrentDb.TableDefs("table1").Fields.Count - 1
Debug.Print CurrentDb.TableDefs("table1").Fields(i).Name
Next
End Sub
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"Jiveday" <Jiveday@hotmail.com> a écrit dans le message de news:OLwEeH3EFHA.3512@TK2MSFTNGP10.phx.gbl...
Bonjour
comment récupérer par programmation via une boucle les noms de champs d'une
table ?
bonjour Sub xx() Dim i As Integer For i = 0 To CurrentDb.TableDefs("table1").Fields.Count - 1 Debug.Print CurrentDb.TableDefs("table1").Fields(i).Name Next End Sub
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "Jiveday" a écrit dans le message de news:
Bonjour
comment récupérer par programmation via une boucle les noms de champs d'une table ?
Merci d'avance
Jiveday
Un grand merci, c'est exactement ce dont j'avais besoin.
"Pierre CFI [mvp]" a écrit dans le message de news:
bonjour Sub xx() Dim i As Integer For i = 0 To CurrentDb.TableDefs("table1").Fields.Count - 1 Debug.Print CurrentDb.TableDefs("table1").Fields(i).Name Next End Sub
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "Jiveday" a écrit dans le message de news:
Bonjour
comment récupérer par programmation via une boucle les noms de champs d'une
table ?
Merci d'avance
Un grand merci, c'est exactement ce dont j'avais besoin.
"Pierre CFI [mvp]" <XXX_pierresalaun@aol.com> a écrit dans le message de
news:uqMi9h3EFHA.2568@TK2MSFTNGP10.phx.gbl...
bonjour
Sub xx()
Dim i As Integer
For i = 0 To CurrentDb.TableDefs("table1").Fields.Count - 1
Debug.Print CurrentDb.TableDefs("table1").Fields(i).Name
Next
End Sub
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"Jiveday" <Jiveday@hotmail.com> a écrit dans le message de
news:OLwEeH3EFHA.3512@TK2MSFTNGP10.phx.gbl...
Bonjour
comment récupérer par programmation via une boucle les noms de champs
d'une
Un grand merci, c'est exactement ce dont j'avais besoin.
"Pierre CFI [mvp]" a écrit dans le message de news:
bonjour Sub xx() Dim i As Integer For i = 0 To CurrentDb.TableDefs("table1").Fields.Count - 1 Debug.Print CurrentDb.TableDefs("table1").Fields(i).Name Next End Sub
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "Jiveday" a écrit dans le message de news:
Bonjour
comment récupérer par programmation via une boucle les noms de champs d'une