Auto-Generate an Index Using VBA : Index « Access « VBA / Excel / Access / Word






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

Auto-Generate an Index Using VBA

 
Private Sub Worksheet_Activate()
     Dim wSheet As Worksheet
     Dim l As Long
     l = 1
     With Me
          .Columns(1).ClearContents
          .Cells(1, 1) = "INDEX"
          .Cells(1, 1).Name = "Index"
     End With

     For Each wSheet In Worksheets
      If wSheet.Name <> Me.Name Then
          l = l + 1
      With wSheet
          .Range("A1").Name = "Start" & wSheet.Index
          .Hyperlinks.Add Anchor:=.Range("A1"), Address:="", SubAddress:= "Index", TextToDisplay:="Back to Index"
      End With
      Me.Hyperlinks.Add Anchor:=Me.Cells(l, 1), Address:="",SubAddress:="Start" & wSheet.Index, TextToDisplay:=wSheet.Name
      End If
      Next wSheet
End Sub








Related examples in the same category

1.Adding a Single-Field Index to an Existing Table (Intrinsic constants for the IndexNulls property of the ADOX Index object)
2.Adding a Multiple-Field Index to an Existing Table
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