Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7026 / 9994 ←次へ | 前へ→

【6165】VBAでのCreateIndex
質問  くま  - 05/9/6(火) 10:50 -

引用なし
パスワード
   新しいテーブルを作成し、T_Branch.csvのデータをセットします。
 項目名 "Company","Branch","Post","Address"
 データ "001","10001","1000001","東京都"
 データ "001","10002","1000002","東京都"
 データ "002","10003","1000003","東京都"
          :
T_Branchテーブルを作成し、CompanyとBranchにKeyIndexを付けたいのですが
(テーブルを開いた時の鍵マークと重複有りのインデックス)
私の文法が間違っているらしくエラーでこけます。

Set MakeTBL = CurrentDb.CreateTableDef("T_Branch")
With MakeTBL

 .Fields.Append .CreateIndex("Company", dbtext)  ⇒ここがCreateFieldならエラーは出ない
 .Fields.Append .CreateIndex("Branch", dbtext)  ⇒ここがCreateFieldならエラーは出ない
 .Fields.Append .CreateField("Post", dbtext)
 .Fields.Append .CreateField("Address", dbtext)
End with

CurrentDb.TableDefs.Append MakeTBL
Set MakeTBL = Nothing
CurrentDb.TableDefs.Refresh

全てCreateFieldで作成するとテーブルは出来ますが
重複Key不可や検索用のインデックスの設定が出来ていません。

どなたか私の間違いが理解できる方、ご指導願います。
668 hits

【6165】VBAでのCreateIndex くま 05/9/6(火) 10:50 質問
【6166】Re:CreateIndexはステートメント たん 05/9/6(火) 13:29 回答
【6167】Re:CreateIndexの例 小僧 05/9/6(火) 13:52 回答
【6169】Re:CreateIndexの例 小僧 05/9/6(火) 14:16 回答
【6173】Re:CreateIndexの例 くま 05/9/6(火) 16:48 お礼
【6168】Re:CreateIndexはステートメント くま 05/9/6(火) 14:06 質問
【6170】Re:CreateIndexはステートメント たん 05/9/6(火) 14:33 発言
【6171】Re:CreateIndexはステートメント たん 05/9/6(火) 14:35 発言
【6172】Re:CreateIndexはステートメント くま 05/9/6(火) 16:40 お礼
【6174】Re:CreateIndexはステートメント 小僧 05/9/6(火) 17:07 回答
【6175】Re:CreateIndexはステートメント くま 05/9/6(火) 17:46 お礼
【6177】Re:CreateIndexはステートメント 小僧 05/9/6(火) 18:04 発言
【6178】Re:CreateIndexはステートメント くま 05/9/6(火) 18:25 お礼
【6179】Re:SQLでも… 小僧 05/9/6(火) 19:54 発言
【6181】Re:SQLでも… くま 05/9/6(火) 21:49 お礼
【6237】Re:SQLでも… 小僧 05/9/9(金) 0:23 発言
【6241】Re:SQLでも… くま 05/9/9(金) 11:24 お礼
【6243】Re:Seekメソッドは速いっす 小僧 05/9/9(金) 13:51 発言
【6244】Re:Seekメソッドは速いっす くま 05/9/9(金) 14:17 お礼
【6245】Re:Seekの続報です。 小僧 05/9/9(金) 17:12 発言
【6247】Re:Seekの続報です。 くま 05/9/9(金) 20:05 お礼

7026 / 9994 ←次へ | 前へ→
ページ:  ┃  記事番号:
1078255
(SS)C-BOARD v3.8 is Free