Listing Indexes in a Table : Index « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Index

Listing Indexes in a Table

 
Sub List_Indexes()
   Dim conn As New ADODB.Connection
   Dim cat As New ADOX.Catalog
   Dim myTable As New ADOX.Table
   Dim idx As New ADOX.Index

   With conn
      .Provider = "Microsoft.Jet.OLEDB.4.0"
      .Open "Data Source=" & CurrentProject.Path & _
          "\mydb.mdb"
   End With
   cat.ActiveConnection = conn
   Set myTable = cat.Tables("Employees")
   For Each idx In myTable.Indexes
     Debug.Print idx.Name
   Next idx

   conn.Close
   Set conn = Nothing
   MsgBox "Indexes are listed in the Immediate window."
End Sub

 

Related examples in the same category