Access VBA質問箱 IV

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

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


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

7022 / 9994

←次へ　｜　前へ→


	【6169】Re:CreateIndexの例

小僧 - 05/9/6(火) 14:16 -


	引用なし

	パスワード

訂正版です。
ちょっとコード的には汚いですが…。

Sub テーブルの作成2()
'要参照設定 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)

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

　　Set MakeTBL = Nothing
　　Set Idx = Nothing
End Sub

これで2つのフィールドを主キーに、
重複ありのインデックスが設定されると思います。

924 hits

▼

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