ms-access - 跨多个访问表创建主键

Question

我最近将 40 多个 excel 文件导入 Access，但现在我想为每个文件添加一个 PK。

我有以下代码，但它没有超过 db.execute 行，我在 CREATE INDEX 语句中不断收到错误 3291 语法错误。看起来不错，但不确定为什么会这样？

Public Sub AddPrimaryKey()

Dim db As DAO.Database
Dim td As DAO.TableDef



Set db = CurrentDb()

    For Each td In db.TableDefs

    If Left(td.Name, 6) = "REPORT" Then

    db.Execute "CREATE INDEX Employee No ON td.Name (Employee No) WITH PRIMARY"


    End If

Next td


End Sub

Answer 1

似乎字段名称包含一个空格，所以将其括起来。

将值添加到td.Name字符串中。

db.Execute "CREATE INDEX [Employee No] ON " & td.Name & _
    " ([Employee No]) WITH PRIMARY"