Create an index : TableDefs « Access « VBA / Excel / Access / Word

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

Create an index

 

Sub exaCreateIndex()
    Dim db As Database
    Dim tdf As TableDef
    Dim idx As Index
    Dim fld As Field
     
    Set db = CurrentDb
    Set tdf = db.TableDefs!BOOKS
    Set idx = tdf.CreateIndex("PriceTitle")
    Set fld = idx.CreateField("Price")
    idx.Fields.Append fld
    Set fld = idx.CreateField("Title")
    idx.Fields.Append fld
    tdf.Indexes.Append idx
End Sub

 

Related examples in the same category