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"