index des champs dans une table

Bo,jour,

Pour lister les index d'une table

Sub ListerIndex(NomTable As String)
Dim db As DAO.Database
Dim tbl As DAO.TableDef
Dim fld As DAO.Field
Dim idx As DAO.Index

Set db = CurrentDb
Set tbl = db.TableDefs(NomTable)
For Each idx In tbl.Indexes
Debug.Print "Index : " & idx.Name
For Each fld In idx.Fields
Debug.Print fld.Name
Next fld
Next idx

Set idx = Nothing
Set fld = Nothing
Set tbl = Nothing
Set db = Nothing
End Sub


--
Cordialement,

Gilbert


"michel_bdx" <michelbdx@discussions.microsoft.com> a écrit dans le message
de news:EF4BD1B6-8218-49DD-A972-17377EDAE90E@microsoft.com...

bonjour

quel est le code poour savoir quels sont les index dans une table enfin
quels sont les champs de la table qui sont indexés

ou quelle est la propirete qui signale qu'un champ est indexe

merci michel