Sous l'icone analyse menu documentation, tu peux imprimer la structure des tables avec tous les détaisl.
Pierre -- "Assistance" a écrit dans le message de news:bniuh2$aat$
Bonjour à tous,
Est-il possible d'exporter la structure d'une base access (nom table + noms
champs + type + commentaires) et si oui, de quelle manière ?
Si vous avez une solution je suis preneur !
Merci
Raymond
Bonsoir.
je te donne la boucle pour lister tes champs, à toi de placer ta procédure de création de table ou de fichier à l'endroit indiqué avec une préférence pour une table pou pouvoir l'exporter . tu peux exécuter la procédure elle marche.
On Error Resume Next Dim Tbl As DAO.TableDef Dim Fld As DAO.Field Dim Db As DAO.Database Set Db = CurrentDb Set Tbl = Db.TableDefs("NomdelaTable") For Each Fld In Tbl.Fields ' remplacer les debug par une création d'un recordset Debug.Print Fld.Name Debug.Print Fld.Type Debug.Print Fld.Properties("description") Debug.Print Tbl.Name Next Set Tbl = Nothing Set Fld = Nothing End Sub
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Winefoot" a écrit dans le message de news:bnjha8$p2b$
Effectivement !
Mais c'est l'export qui m'interesse !!
Merci
Bonsoir.
je te donne la boucle pour lister tes champs, à toi de placer ta procédure
de création de table ou de fichier à l'endroit indiqué avec une préférence
pour une table pou pouvoir l'exporter . tu peux exécuter la procédure elle
marche.
On Error Resume Next
Dim Tbl As DAO.TableDef
Dim Fld As DAO.Field
Dim Db As DAO.Database
Set Db = CurrentDb
Set Tbl = Db.TableDefs("NomdelaTable")
For Each Fld In Tbl.Fields
' remplacer les debug par une création d'un recordset
Debug.Print Fld.Name
Debug.Print Fld.Type
Debug.Print Fld.Properties("description")
Debug.Print Tbl.Name
Next
Set Tbl = Nothing
Set Fld = Nothing
End Sub
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"Winefoot" <winefoot@wanadoo.fr> a écrit dans le message de
news:bnjha8$p2b$1@news-reader1.wanadoo.fr...
je te donne la boucle pour lister tes champs, à toi de placer ta procédure de création de table ou de fichier à l'endroit indiqué avec une préférence pour une table pou pouvoir l'exporter . tu peux exécuter la procédure elle marche.
On Error Resume Next Dim Tbl As DAO.TableDef Dim Fld As DAO.Field Dim Db As DAO.Database Set Db = CurrentDb Set Tbl = Db.TableDefs("NomdelaTable") For Each Fld In Tbl.Fields ' remplacer les debug par une création d'un recordset Debug.Print Fld.Name Debug.Print Fld.Type Debug.Print Fld.Properties("description") Debug.Print Tbl.Name Next Set Tbl = Nothing Set Fld = Nothing End Sub
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Winefoot" a écrit dans le message de news:bnjha8$p2b$
Effectivement !
Mais c'est l'export qui m'interesse !!
Merci
Assistance
Merci
"Raymond" a écrit dans le message de news:
Bonsoir.
je te donne la boucle pour lister tes champs, à toi de placer ta procédure de création de table ou de fichier à l'endroit indiqué avec une préférence pour une table pou pouvoir l'exporter . tu peux exécuter la procédure elle marche.
On Error Resume Next Dim Tbl As DAO.TableDef Dim Fld As DAO.Field Dim Db As DAO.Database Set Db = CurrentDb Set Tbl = Db.TableDefs("NomdelaTable") For Each Fld In Tbl.Fields ' remplacer les debug par une création d'un recordset Debug.Print Fld.Name Debug.Print Fld.Type Debug.Print Fld.Properties("description") Debug.Print Tbl.Name Next Set Tbl = Nothing Set Fld = Nothing End Sub
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Winefoot" a écrit dans le message de news:bnjha8$p2b$
Effectivement !
Mais c'est l'export qui m'interesse !!
Merci
Merci
"Raymond" <XYZ.access.seneque@free.fr> a écrit dans le message de
news:eZdJRBLnDHA.2732@TK2MSFTNGP11.phx.gbl...
Bonsoir.
je te donne la boucle pour lister tes champs, à toi de placer ta procédure
de création de table ou de fichier à l'endroit indiqué avec une préférence
pour une table pou pouvoir l'exporter . tu peux exécuter la procédure elle
marche.
On Error Resume Next
Dim Tbl As DAO.TableDef
Dim Fld As DAO.Field
Dim Db As DAO.Database
Set Db = CurrentDb
Set Tbl = Db.TableDefs("NomdelaTable")
For Each Fld In Tbl.Fields
' remplacer les debug par une création d'un recordset
Debug.Print Fld.Name
Debug.Print Fld.Type
Debug.Print Fld.Properties("description")
Debug.Print Tbl.Name
Next
Set Tbl = Nothing
Set Fld = Nothing
End Sub
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"Winefoot" <winefoot@wanadoo.fr> a écrit dans le message de
news:bnjha8$p2b$1@news-reader1.wanadoo.fr...
je te donne la boucle pour lister tes champs, à toi de placer ta procédure de création de table ou de fichier à l'endroit indiqué avec une préférence pour une table pou pouvoir l'exporter . tu peux exécuter la procédure elle marche.
On Error Resume Next Dim Tbl As DAO.TableDef Dim Fld As DAO.Field Dim Db As DAO.Database Set Db = CurrentDb Set Tbl = Db.TableDefs("NomdelaTable") For Each Fld In Tbl.Fields ' remplacer les debug par une création d'un recordset Debug.Print Fld.Name Debug.Print Fld.Type Debug.Print Fld.Properties("description") Debug.Print Tbl.Name Next Set Tbl = Nothing Set Fld = Nothing End Sub
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Winefoot" a écrit dans le message de news:bnjha8$p2b$
