こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

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

よろしくお願いします。

投稿日時 - 2013-10-24 10:59:55

QNo.8318515

すぐに回答ほしいです

質問者が選んだベストアンサー

主キーですよね?「作業者番号」と「登録日時」
に主キーを設定するということでいいのですね?

たとえば、テーブル名は質問の「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 12:02:38

お礼

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

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

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

投稿日時 - 2013-10-24 13:06:04

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問