افزودن یک ایندکس

براي فعال كردن يه Index در يك جدول بايد از متدAppend استفاده كنيم.

Dim DB As DataBase
Dim NewIndex As New Index
 Set DB = OpenDataBase ("DataBaseAddress.mdb")
 NewIndex.Name = "IndexName"
 NewIndex.Fields = "FieldName"
 NewIndex.Uniqe = False
 DB.TableDefs ("TableName").Indexes.Append NewIndex
MsgBox "ايندكس فعال شد." , vbInformation , "پيام"
DB.Close  DataBaseName.mdb: نام بانك اطلاعاتي هستش

IndexName: نام Index ما هستش كه قرار در مجموعه Indexes (ايندكس هاي جدول) اضافه بشه

FieldName: ايندكس رو برحسب اون فيلد مورد نظر مي سازه.

NewIndex.Uniqe = False: باعث ميشه تا از ورود داده هاي تكراري تويه ايندكس جلوگيري بشه

در خطي كه متد Append نوشته شده NewIndex (همون متغير بالايي) رو به جدول 
(TableName) از بانك اطلاعاتي (DataBaseName.mdb) اضافه مي كنه.