Bonjour à tous !

Comme je n'ai pas trouvé de forum VB6, je poste ici ma demande. Merci à un modérateur de déplacer ce post dans le bon forum si besoin est.

Ceci dit, ma question : je sais extraire les noms des champs d'une table Access ainsi que les noms des index. J'utilise le code suivant ::

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Option Explicit
Dim db As Database
Dim tb_def As TableDef
Dim tb As Recordset
Dim idxLoop As Index
Dim fic As String
Dim wk As String
Dim champ As Field
 
Private Sub Form_Load()
 
fic = App.Path & "\jam.mdb"
Set db = OpenDatabase(fic)
Set tb = db.OpenRecordset("tb_mots")
wk = "tb_mots"
Set tb_def = db.TableDefs(wk)
With tb
   For Each idxLoop In tb_def.Indexes
      .Index = idxLoop.Name
      Debug.Print "Index = " & .Index
   Next idxLoop
    For Each champ In tb.Fields
     Debug.Print "Champ = " & champ.Name
   Next champ
   .Close
End With
db.Close
 
End Sub
Dans la fenêtre Debug j'ai bien les noms:

Index = idx_mots
Champ = mots
Champ = nombre
Champ = page
Champ = auteur
Champ = ligne

Ce que je ne sais pas faire, c'est associer le nom d'un index à un champ. Dans mon exemple, comment savoir que l'index idx_mots se réfère au champ mots ?

Merci d'avance pour votre aide à venir

Notpa