Imprimer les proprietes

Bonjour HA,
Le code suivant ecrit dans un fichier texte la
liste des tables, la liste des champs et leurs
propriétés, la liste des index et des champs
d'index.
Bon courage.

Public Function ProprietesTables()
Dim td As TableDef, p As Property, f As Field,
i As Index
Dim db As Database
On Error GoTo err_prop
Set db DBEngine.Workspaces(0).OpenDatabase(MonChemin &
"MaBase.mdb")
Open MonChemin & "DocTable.txt" For Output As
#1
For Each td In db.TableDefs
For Each f In td.Fields
For Each p In f.Properties
Print #1, td.Name, f.Name, f.Type,
f.Size, p.Name, IIf(p.Name <> "Value", p.Value,
"-")
Next p
Next f
For Each i In td.Indexes
For Each f In i.Fields
Print #1, td.Name, "Index",
i.Name, f.Name
Next f
Next i
Next td
Close #1
ProprietesTables = 0
set db= Nothing
Exit Function
err_prop:
If Err = 3219 Or Err = 3267 Or Err = 3251 Then
Resume Next
Stop
Resume Next
End Function


--
@ +
Etienne
Charte du forum:
http://users.skynet.be/mpfa/charte.htm
"HA" <ha@free.fr> a écrit dans le message de news:
e1esKR$VDHA.2352@TK2MSFTNGP12.phx.gbl...

Bonjour

Comment peux ton imprimer les propriétés d'un
champs?

merci