ถามไว้ที่ http://www.utteraccess.com/forums/showflat.php?Cat=&Board=access_97&Number=207460&Forum=All_Forums&Words=TimK&Match=Username&Searchpage=0&Limit=25&Old=allposts&Main=207142&Search=true#Post207460

เขาต้องการที่แสดงชื่อฟีลด์ต่างๆ ของแต่ละตารางที่กำหนดให้เป็น Index

ผมลองให้โค้ดเขาไปดังนี้ครับ

code:
--------------------------------------------------------------------------------
Sub ShowIndex()
Dim dbs As Database
Dim tdf As TableDef
Dim idx As Index
Set dbs = CurrentDb
For Each tdf In dbs.TableDefs
If Left(tdf.Name, 4) <> "MSys" Then
Debug.Print tdf.Name
For Each idx In tdf.Indexes
Debug.Print " --> " & idx.Name & " --> " & idx.Fields
Next
Debug.Print "----------"
End If
Next
dbs.Close
Set dbs = Nothing
End Sub
--------------------------------------------------------------------------------