Adding a Multiple-Field Index to an Existing Table

 
Sub Add_MultiFieldIndex()
   Dim conn As New ADODB.Connection

   With conn
      .Provider = "Microsoft.Jet.OLEDB.4.0"
      .Open "Data Source=" & CurrentProject.Path & _
          "\mydb.mdb"
      .Execute "CREATE INDEX Location ON Employees (City, Region);"
   End With

   conn.Close
   Set conn = Nothing
   MsgBox "New index (Location) was created."
End Sub

Related examples in the same category

1.	Auto-Generate an Index Using VBA
2.	Adding a Single-Field Index to an Existing Table (Intrinsic constants for the IndexNulls property of the ADOX Index object)
3.	Listing Indexes in a Table
4.	Deleting Indexes from a Table
5.	Adding a Unique Index Based on Two Fields to an Existing Table
6.	Deleting a Field that is a Part of an Index with SQL command
7.	Alter table to delete an Index with SQL command
8.	Creating an Index that Disallows Null Values in the Key with SQL command
9.	Creating an Index with the Ignore Null Option with SQL command
10.	Deleting an Index with SQL command
11.	Creating a Primary Key Index with Restrictions with SQL command

Adding a Multiple-Field Index to an Existing Table : Index « Access « VBA / Excel / Access / Word

Related examples in the same category