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
Raymond [mvp]
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" a écrit dans le message de news: 44d0a615$0$886$ | Bonjour | | comment obtenir (daans un tableau ou autre), la liste des champs d'une table | dans un script VB svp | | merci | |
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
|
|
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" a écrit dans le message de news: 44d0a615$0$886$ | Bonjour | | comment obtenir (daans un tableau ou autre), la liste des champs d'une table | dans un script VB svp | | merci | |
Eric
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
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
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
kiki
MERCI, je vais essayer, c'est apparemment exactement ce que je veux.
"Eric" a écrit dans le message de news: #
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
MERCI, je vais essayer, c'est apparemment exactement ce que je veux.
"Eric" a écrit dans le message de news: #
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