Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Prendre Nom des champs d'une table pour mettre dans fichier texte

Prendre Nom des champs d'une table pour mettre dans fichier texte

6 réponses
Avatar
JMH
Bonjour

Je fais des reprises de données depuis un ancien système.
J'ai défini tous mes champs et arrive +/- à ce que je veux.
A des fins de documentations concernant les champs repris ou non, j'aimerais
pourvoir récupérer tous les Noms de champs d'un table dans un fichier texte
par exemple.
Style Nom du champ et Légende:
NoDeCompte Numéro de compe
NomClient Nom du client
Est-ce possible?
Si oui, merci d'avance de bien vouloir m'éclairer.

Jean-Michel H
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
Avatar
Gilbert
Bonjour

Avec cette procédure :

Sub ListeChamps()
Dim Tbl As DAO.TableDef
Dim Fld As DAO.Field
Dim Db As DAO.Database
Set Db = CurrentDb
For Each Tbl In Db.TableDefs
Set Tbl = Db.TableDefs(Tbl.Name)
Debug.Print Tbl.Name & "------------"
For Each Fld In Tbl.Fields
Debug.Print Fld.Name
Next
Next
Set Tbl = Nothing
Set Fld = Nothing
End Sub


Gilbert


"JMH" a écrit dans le message de
news:
Bonjour

Je fais des reprises de données depuis un ancien système.
J'ai défini tous mes champs et arrive +/- à ce que je veux.
A des fins de documentations concernant les champs repris ou non,
j'aimerais

pourvoir récupérer tous les Noms de champs d'un table dans un fichier
texte

par exemple.
Style Nom du champ et Légende:
NoDeCompte Numéro de compe
NomClient Nom du client
Est-ce possible?
Si oui, merci d'avance de bien vouloir m'éclairer.

Jean-Michel H





Avatar
JMH
C'est tout à fait ça.
Merci à toi.


"Gilbert" a écrit dans le message de news:
%
Bonjour

Avec cette procédure :

Sub ListeChamps()
Dim Tbl As DAO.TableDef
Dim Fld As DAO.Field
Dim Db As DAO.Database
Set Db = CurrentDb
For Each Tbl In Db.TableDefs
Set Tbl = Db.TableDefs(Tbl.Name)
Debug.Print Tbl.Name & "------------"
For Each Fld In Tbl.Fields
Debug.Print Fld.Name
Next
Next
Set Tbl = Nothing
Set Fld = Nothing
End Sub


Gilbert


"JMH" a écrit dans le message de
news:
Bonjour

Je fais des reprises de données depuis un ancien système.
J'ai défini tous mes champs et arrive +/- à ce que je veux.
A des fins de documentations concernant les champs repris ou non,
j'aimerais

pourvoir récupérer tous les Noms de champs d'un table dans un fichier
texte

par exemple.
Style Nom du champ et Légende:
NoDeCompte Numéro de compe
NomClient Nom du client
Est-ce possible?
Si oui, merci d'avance de bien vouloir m'éclairer.

Jean-Michel H









Avatar
JMH
Une indication supplémentaire svpl.
Je peux aussi reprendre la "Légende" du champ.
Merci


"Gilbert" a écrit dans le message de news:
%
Bonjour

Avec cette procédure :

Sub ListeChamps()
Dim Tbl As DAO.TableDef
Dim Fld As DAO.Field
Dim Db As DAO.Database
Set Db = CurrentDb
For Each Tbl In Db.TableDefs
Set Tbl = Db.TableDefs(Tbl.Name)
Debug.Print Tbl.Name & "------------"
For Each Fld In Tbl.Fields
Debug.Print Fld.Name
Next
Next
Set Tbl = Nothing
Set Fld = Nothing
End Sub


Gilbert


"JMH" a écrit dans le message de
news:
Bonjour

Je fais des reprises de données depuis un ancien système.
J'ai défini tous mes champs et arrive +/- à ce que je veux.
A des fins de documentations concernant les champs repris ou non,
j'aimerais

pourvoir récupérer tous les Noms de champs d'un table dans un fichier
texte

par exemple.
Style Nom du champ et Légende:
NoDeCompte Numéro de compe
NomClient Nom du client
Est-ce possible?
Si oui, merci d'avance de bien vouloir m'éclairer.

Jean-Michel H









Avatar
Gilbert
Avec celle-ci

Sub ListeProprietesChamps()
On Error Resume Next 'parce que certains champs peuvent ne pas avoir
certaines propriétés
Dim Tbl As DAO.TableDef
Dim Fld As DAO.Field
Dim Db As DAO.Database
Set Db = CurrentDb
'Si on veut boucler sur toutes les tables
'For Each Tbl In Db.TableDefs
' Debug.Print Tbl.Name
'Si on ne veut qu'une table
Set Tbl = Db.TableDefs("LeNomDeLaTable")
For Each Fld In Tbl.Fields
Debug.Print "Nom", Fld.Name
Debug.Print "Légende", Fld.Properties("caption")
Debug.Print "Type", Fld.Type
Debug.Print "Taille", Fld.Size
Debug.Print "Description", Fld.Properties("description")
Next
'Next
Set Tbl = Nothing
Set Fld = Nothing
End Sub


Gilbert

"JMH" a écrit dans le message de
news:
Une indication supplémentaire svpl.
Je peux aussi reprendre la "Légende" du champ.
Merci


"Gilbert" a écrit dans le message de news:
%
Bonjour

Avec cette procédure :

Sub ListeChamps()
Dim Tbl As DAO.TableDef
Dim Fld As DAO.Field
Dim Db As DAO.Database
Set Db = CurrentDb
For Each Tbl In Db.TableDefs
Set Tbl = Db.TableDefs(Tbl.Name)
Debug.Print Tbl.Name & "------------"
For Each Fld In Tbl.Fields
Debug.Print Fld.Name
Next
Next
Set Tbl = Nothing
Set Fld = Nothing
End Sub


Gilbert


"JMH" a écrit dans le message de
news:
Bonjour

Je fais des reprises de données depuis un ancien système.
J'ai défini tous mes champs et arrive +/- à ce que je veux.
A des fins de documentations concernant les champs repris ou non,
j'aimerais

pourvoir récupérer tous les Noms de champs d'un table dans un fichier
texte

par exemple.
Style Nom du champ et Légende:
NoDeCompte Numéro de compe
NomClient Nom du client
Est-ce possible?
Si oui, merci d'avance de bien vouloir m'éclairer.

Jean-Michel H













Avatar
JMH
C'est super sympa de ta part.
Je te remercie encore.
A une prochaine
JMH



"Gilbert" a écrit dans le message de news:

Avec celle-ci

Sub ListeProprietesChamps()
On Error Resume Next 'parce que certains champs peuvent ne pas avoir
certaines propriétés
Dim Tbl As DAO.TableDef
Dim Fld As DAO.Field
Dim Db As DAO.Database
Set Db = CurrentDb
'Si on veut boucler sur toutes les tables
'For Each Tbl In Db.TableDefs
' Debug.Print Tbl.Name
'Si on ne veut qu'une table
Set Tbl = Db.TableDefs("LeNomDeLaTable")
For Each Fld In Tbl.Fields
Debug.Print "Nom", Fld.Name
Debug.Print "Légende", Fld.Properties("caption")
Debug.Print "Type", Fld.Type
Debug.Print "Taille", Fld.Size
Debug.Print "Description", Fld.Properties("description")
Next
'Next
Set Tbl = Nothing
Set Fld = Nothing
End Sub


Gilbert

"JMH" a écrit dans le message de
news:
Une indication supplémentaire svpl.
Je peux aussi reprendre la "Légende" du champ.
Merci


"Gilbert" a écrit dans le message de news:
%
Bonjour

Avec cette procédure :

Sub ListeChamps()
Dim Tbl As DAO.TableDef
Dim Fld As DAO.Field
Dim Db As DAO.Database
Set Db = CurrentDb
For Each Tbl In Db.TableDefs
Set Tbl = Db.TableDefs(Tbl.Name)
Debug.Print Tbl.Name & "------------"
For Each Fld In Tbl.Fields
Debug.Print Fld.Name
Next
Next
Set Tbl = Nothing
Set Fld = Nothing
End Sub


Gilbert


"JMH" a écrit dans le message de
news:
Bonjour

Je fais des reprises de données depuis un ancien système.
J'ai défini tous mes champs et arrive +/- à ce que je veux.
A des fins de documentations concernant les champs repris ou non,
j'aimerais

pourvoir récupérer tous les Noms de champs d'un table dans un fichier
texte

par exemple.
Style Nom du champ et Légende:
NoDeCompte Numéro de compe
NomClient Nom du client
Est-ce possible?
Si oui, merci d'avance de bien vouloir m'éclairer.

Jean-Michel H


















Avatar
Gilbert
Avec grand plaisir

"JMH" a écrit dans le message de
news:
C'est super sympa de ta part.
Je te remercie encore.
A une prochaine
JMH



"Gilbert" a écrit dans le message de news:

Avec celle-ci

Sub ListeProprietesChamps()
On Error Resume Next 'parce que certains champs peuvent ne pas avoir
certaines propriétés
Dim Tbl As DAO.TableDef
Dim Fld As DAO.Field
Dim Db As DAO.Database
Set Db = CurrentDb
'Si on veut boucler sur toutes les tables
'For Each Tbl In Db.TableDefs
' Debug.Print Tbl.Name
'Si on ne veut qu'une table
Set Tbl = Db.TableDefs("LeNomDeLaTable")
For Each Fld In Tbl.Fields
Debug.Print "Nom", Fld.Name
Debug.Print "Légende", Fld.Properties("caption")
Debug.Print "Type", Fld.Type
Debug.Print "Taille", Fld.Size
Debug.Print "Description", Fld.Properties("description")
Next
'Next
Set Tbl = Nothing
Set Fld = Nothing
End Sub


Gilbert

"JMH" a écrit dans le message de
news:
Une indication supplémentaire svpl.
Je peux aussi reprendre la "Légende" du champ.
Merci


"Gilbert" a écrit dans le message de news:
%
Bonjour

Avec cette procédure :

Sub ListeChamps()
Dim Tbl As DAO.TableDef
Dim Fld As DAO.Field
Dim Db As DAO.Database
Set Db = CurrentDb
For Each Tbl In Db.TableDefs
Set Tbl = Db.TableDefs(Tbl.Name)
Debug.Print Tbl.Name & "------------"
For Each Fld In Tbl.Fields
Debug.Print Fld.Name
Next
Next
Set Tbl = Nothing
Set Fld = Nothing
End Sub


Gilbert


"JMH" a écrit dans le message de
news:
Bonjour

Je fais des reprises de données depuis un ancien système.
J'ai défini tous mes champs et arrive +/- à ce que je veux.
A des fins de documentations concernant les champs repris ou non,
j'aimerais

pourvoir récupérer tous les Noms de champs d'un table dans un
fichier





texte
par exemple.
Style Nom du champ et Légende:
NoDeCompte Numéro de compe
NomClient Nom du client
Est-ce possible?
Si oui, merci d'avance de bien vouloir m'éclairer.

Jean-Michel H