This example creates a new Index object, appends it to the Indexes
collection of the Employees TableDef, and then enumerates the Indexes
collection of the TableDef. Finally, it enumerates a Recordset, first using
the primary Index, and then using the new Index. The IndexOutput procedure
is required for this procedure to run.
===================================================================
Sub IndexObjectX()
Dim dbsNorthwind As Database
Dim tdfEmployees As TableDef
Dim idxNew As Index
Dim idxLoop As Index
Dim rstEmployees As Recordset
Set dbsNorthwind = OpenDatabase("Northwind.mdb")
Set tdfEmployees = dbsNorthwind!Employees
With tdfEmployees
' Create new index, create and append Field
' objects to its Fields collection.
Set idxNew = .CreateIndex("NewIndex")
With idxNew
.Fields.Append .CreateField("Country")
..Fields.Append .CreateField("LastName")
.Fields.Append .CreateField("FirstName")
End With
' Add new Index object to the Indexes collection
' of the Employees table collection.
.Indexes.Append idxNew
.Indexes.Refresh
Dim sTmp As String
Dim tbl As TableDef
Dim cnDase As Database
On Error Resume Next
For Each tbl In cnDase.TableDefs
sTmp = tbl.Name
If (cnDase.TableDefs(sTmp).Attributes And dbSystemObject) = 0 Then
tbl.CreateIndex
' 判斷是那個表
If sTmp = "List" Then
tbl.CreateIndex
end if
End If
Next
Dim sTmp As String
Dim tbl As TableDef
Dim cnDase As Database
On Error Resume Next
For Each tbl In cnDase.TableDefs
sTmp = tbl.Name
If (cnDase.TableDefs(sTmp).Attributes And dbSystemObject) = 0 Then
tbl.CreateIndex
' 判斷是那個表
If sTmp = "List" Then
tbl.CreateIndex
End If
Next