Access删除索引

前面我们讲述过创建索引《access用DAO创建索引》

索引虽然可以提高搜索速度，但是索引不是越多越好的

如何删除索引呢？

1. 手动删除

打开表设计视图，在设计-索引，把索引删除即可。

2. 用DAO代码删除

Private Sub 删除索引_Click()
On Error GoTo 索引
    Dim db As DAO.Database
    Dim tb As DAO.TableDef
    Set db = CurrentDb
    Set tb = db.TableDefs("员工信息")
    '删除索引
    tb.Indexes.Delete "索引"
    MsgBox "索引删除成功！" 
    Exit Sub
索引:
    MsgBox Err.Description, , "出错"
End Sub