index des champs dans une table

Le
michel_bdx
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Gilbert
Le #18330661
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" de news:
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


Publicité
Poster une réponse
Anonyme