Accessのテーブルへ複数の主キーを設定するには

Access2003のVBAを使って開発していますが、
サーバーから取得したローカルテーブルに
複数の主キーを設定したいのですが、うまくいきません。

ソースは下記です。

Dim db As Database
Dim Tbdef As TableDef
Dim Fld As Field
Dim Idx As Index

Set db = CurrentDb

Set Tbdef = db.TableDefs("TWorker")
Set Idx = Tbdef.CreateIndex("INDEX_WORKER")
Idx.Fields.Applend Idx.CreateField("作業者番号")
Idx.Fields.Applend Idx.CreateField("登録日時") ★
Idx.Primary = True
Tbdef.Indexes.Append Idx

★行で落ちるというか、終了してしまいます。

１つの主キーなら設定できるのですが、
複数設定する方法をご教授いただけますか。

よろしくお願いします。

No.1 ベストアンサー 回答者： piroin654 回答日時： 2013/10/24 12:02

主キーですよね？「作業者番号」と「登録日時」

に主キーを設定するということでいいのですね？

たとえば、テーブル名は質問の「TWorker」として、

Dim db As Database
Dim strSQL As String
Set db = CurrentDb

strSQL = "ALTER TABLE TWorker ADD PRIMARY KEY (作業者番号 , 登録日時)"
db.Execute strSQL, dbFailOnError

この回答へのお礼

ありがとうございました！

教えていただいたやり方でできました！

早急に回答いただき、とても助かりました！！

お礼日時：2013/10/24 13:06