View all indexes in Access table

[blackjack2150]

Hi!
What query should I use to get all the indexes defined on a specific table? Even the ones which are defined on multiple columns.
Thanks.

[MMcCarthy]

Hi!
What query should I use to get all the indexes defined on a specific table? Even the ones which are defined on multiple columns.
Thanks.

I'm not sure what you mean by a query. You can find the indexes on any table by opening the table in design view and clicking indexes on the view menu.

[ADezii]

Hi!
What query should I use to get all the indexes defined on a specific table? Even the ones which are defined on multiple columns.
Thanks.

Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim idx As DAO.Index
Dim fld As DAO.Field
 
Dim strField As String
 
Set db = CurrentDb()
Set tdf = db.TableDefs("tblEmployee")
Set rst = db.OpenRecordset("tblEmployee", dbOpenTable)
 
' List values for each index in the collection.
For Each idx In tdf.Indexes
  ' The index object contains a collection of fields,
  ' one for each field the index contains.
  Debug.Print
  Debug.Print "Index: " & idx.Name
  Debug.Print "==========================="
 
    For Each fld In idx.Fields
      Debug.Print "Field Name: " & fld.Name
    Next fld
    Debug.Print
Next idx

[JConsulting]

Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim idx As DAO.Index
Dim fld As DAO.Field
 
Dim strField As String
 
Set db = CurrentDb()
Set tdf = db.TableDefs("tblEmployee")
Set rst = db.OpenRecordset("tblEmployee", dbOpenTable)
 
' List values for each index in the collection.
For Each idx In tdf.Indexes
  ' The index object contains a collection of fields,
  ' one for each field the index contains.
  Debug.Print
  Debug.Print "Index: " & idx.Name
  Debug.Print "==========================="
 
    For Each fld In idx.Fields
      Debug.Print "Field Name: " & fld.Name
    Next fld
    Debug.Print
Next idx

Hey ADezii, is the Recordset part there in case you want to output to a table?
J

[ADezii]

Hey ADezii, is the Recordset part there in case you want to output to a table?
J

No, It's a lot simpler than that - code line that is not required (LOL). Thanks for the catch.

[JConsulting]

No, It's a lot simpler than that - code line that is not required (LOL). Thanks for the catch.

shhh, I won't tell...I actually stole your small routine. I have a use for it myself! Good work btw. Thx.
J

[ADezii]

shhh, I won't tell...I actually stole your small routine. I have a use for it myself! Good work btw. Thx.
J

Anything that you can possibly find of interest that I post, please feel free to help yourself to. At least I now know that 'ALL' my work is not in vain! BTW, thanks for the compliment.