lister les chmps dans un script VBa

Bonjour.

sous access, on peut obtenir directement et automatiquement la liste des
champs d'une table en paramétrant la liste.
créer la liste avec 1 seul champ en type liste de valeurs.
modifier la liste.
remplacer liste de valeurs par Liste des champs.
indiquer le nom de la table dans contenu.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum.
Découvrez le Jargonaute, le langage IT, tel que vous n'avez jamais osé le
parler:
http://www.microsoft.com/france/communautes/jargonaute/


"kiki" <kiki@louf.com> a écrit dans le message de news:
44d0a615$0$886$ba4acef3@news.orange.fr...
| Bonjour
|
| comment obtenir (daans un tableau ou autre), la liste des champs d'une
table
| dans un script VB svp
|
| merci
|
|

Bonjour,

avec une procédure du genre:
Sub yy(NomTable As String)
Dim t As TableDef, tablo() As String
Dim i As Byte, n As Byte, bd As Database
Set bd = CurrentDb
Set t = bd.TableDefs(NomTable)
n = t.Fields.Count
' Remplissage du tableau
ReDim tablo(n)
For i = 0 To n - 1
tablo(i) = t.Fields(i).Name
Next i
Set t = Nothing
Set bd = Nothing
' Affichage du contenu de tableau
For i = 0 To n - 1 ' ou UBound(tablo)
Debug.Print tablo(i)
Next i
End Sub

Appel par : Call yy("NomDeLaTable")

Bonjour

comment obtenir (daans un tableau ou autre), la liste des champs d'une table
dans un script VB svp

merci

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

MERCI, je vais essayer, c'est apparemment exactement ce que je veux.

"Eric" <f_framZZ@hotmail.com> a écrit dans le message de news:
#YbHOvjtGHA.5056@TK2MSFTNGP06.phx.gbl...

Bonjour,

avec une procédure du genre:
Sub yy(NomTable As String)
Dim t As TableDef, tablo() As String
Dim i As Byte, n As Byte, bd As Database
Set bd = CurrentDb
Set t = bd.TableDefs(NomTable)
n = t.Fields.Count
' Remplissage du tableau
ReDim tablo(n)
For i = 0 To n - 1
tablo(i) = t.Fields(i).Name
Next i
Set t = Nothing
Set bd = Nothing
' Affichage du contenu de tableau
For i = 0 To n - 1 ' ou UBound(tablo)
Debug.Print tablo(i)
Next i
End Sub

Appel par : Call yy("NomDeLaTable")

Bonjour

comment obtenir (daans un tableau ou autre), la liste des champs d'une
table

dans un script VB svp

merci

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