VBA创建Access表中索引方法

时　间:2014-09-16 09:12:48
作　者:金宇   ID：43  城市：江阴
摘　要:VBA创建Access表中索引方法
正　文:

    以下代码是给"出入库明细"表中"出入库单号"字段创建索引"出入库单号"，网友做一下参考，具体代码需要根据自己的实际情况调整表名称、索引名称、字段名称。

   Dim db As Database
   Dim tdf As TableDef
   Dim idxNew As Index
   Set db = CurrentDb              '指当前代码所在的数据库
   Set tdf = db!出入库明细          '指"出入库明细"表
   With tdf
      Set idxNew = .CreateIndex("出入库单号")                 '创建的索引名称
      idxNew.Fields.Append idxNew.CreateField("出入库单号")   '索引针对的字段
      .Indexes.Append idxNew
      .Indexes.Refresh
   End With
   MsgBox "OK"