Access VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7024 / 9994

←次へ　｜　前へ→


	【6167】Re:CreateIndexの例

小僧 - 05/9/6(火) 13:52 -


	引用なし

	パスワード

▼くまさん：
こんにちは。

Sub テーブルの作成()
'要参照設定 Microsoft DAO x.x Object Library
Dim MakeTBL As New DAO.TableDef
Dim Idx As DAO.INDEX
Dim TName As String

　　TName = "T_Branch"

　　If DCount("*", "MSysObjects", "Name = '" & TName & "'") > 0 Then _
　　　　DoCmd.DeleteObject acTable, TName

　　Set MakeTBL = CurrentDb.CreateTableDef(TName)
　　Set Idx = MakeTBL.CreateIndex("INDEX")

　　With MakeTBL
　　　　.Fields.Append .CreateField("Company", dbText)
　　　　.Fields.Append .CreateField("Branch", dbText)
　　　　.Fields.Append .CreateField("Post", dbText)
　　　　.Fields.Append .CreateField("Address", dbText)
　　End With
　　
　　With Idx
　　　　.Primary = True
　　　　.Fields.Append .CreateField("Company")
　　　　'.Fields.Append .CreateField("Branch")
　　End With
　
　　MakeTBL.Indexes.Append Idx
　　MakeTBL.Indexes.Refresh
　　
　　CurrentDb.TableDefs.Append MakeTBL
　　CurrentDb.TableDefs.Refresh

　　Set MakeTBL = Nothing
　　Set Idx = Nothing
End Sub

これで一つのフィールドに対してはできたのですが…。
コメントを外して主キーを2つにすると、何故かインデックスが外れてしまいます。
引き続き調査してみます。

627 hits

▼

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