Access・ゃ・潟・・・・・・・壕申・・・・・/b>






Option・€Explicit


Private・€Sub・€Command1_Click()
・€・€・€・€MakeIndexObject
End・€Sub

Private・€Sub・€Command2_Click()
・€・€・€・€DeleteIndexObject
End・€Sub


Private・€Sub・€MakeIndexObject()
'・√・・・・・・若・・・・・・・ゃ・潟・・・・・・・鴻・・・・絎・・・・障・・
On・€Error・€GoTo・€SOS
・€・€Dim・€x・€As・€Long
・€・€'[・・・㏍・吾・с・・・・]-[・・・ц┃絎・]Access2000・・AO3.6
・€・€Dim・€db・€As・€DAO.Database
・€・€Dim・€tdf・€As・€DAO.TableDef
・€・€Dim・€idxNew・€As・€DAO.Index
・€・€Dim・€strIndex()・€As・€String・€・€'・ゃ・潟・・・・・・・鴻・・荐㊤・・・・・・・・・・c・若・・・・・・・ャ・・・・・・・・
・・筝€罨≦・・・・・・・・篏・・・・・・・・・・・・・€ゃ・・篁e・ャ・・・・
・€・€strIndex()・€=・€Split("A・潟・若・・|B・潟・若・・|C・潟・若・・",・€"|")
'・€・€Debug.Print・€strIndex(0)

・€・€
・€・€Set・€db・€=・€OpenDatabase(App.Path・€&・€"\temp.mdb")
・€・€Set・€tdf・€=・€db!・・・若・・・・・€'・・・若・・・・・・・・絎・


For・€x・€=・€0・€To・€2
・€・€With・€tdf
・€・€・€・€'・€・違・・・・・€Index・€・・・・・吾・с・・・・・・篏・・・・・
・€・€・€・€'・€Field・€・・・・・吾・с・・・・・・・・・・€€Fileds・€・潟・・・・・激・с・潟・・申・・・・障・・・・
・€・€・€・€Set・€idxNew・€=・€.CreateIndex(strIndex(x))

・€・€・€・€With・€idxNew
・€・€・€・€・€・€.Fields.Append・€.CreateField(strIndex(x))
・€・€・€・€End・€With

・€・€・€・€'・€・域・・・€€Index・€・・・・・吾・с・・・・・・・€・・・若・・・・・€・・br> ・€・€・€・€'・€Indexes・€・潟・・・・・激・с・潟・・申・・・・障・・・・
・€・€・€・€.Indexes.Append・€idxNew
・€・€・€・€.Indexes.Refresh・€'・・・・・・・・・・・・・・istinctcount・・・㏍・・・・・c・若・・・・緇・・с・・・・・・

・€・€End・€With
Next・€x
・€
・€・€'緇・紮・・・br> ・€・€db.Close
・€・€Set・€db・€=・€Nothing

Exit・€Sub
SOS:

・€・€・€MsgBox・€Err.Number・€&・€";"・€&・€Err.Description
・€・€・€

End・€Sub

Private・€Sub・€DeleteIndexObject()
'・ゃ・潟・・・・・・・鴻・・・・・ゃ・・・障・・

On・€Error・€GoTo・€SOS
・€・€Dim・€x・€As・€Long
・€・€'[・・・㏍・吾・с・・・・]-[・・・ц┃絎・]Access2000・・AO3.6・с・・・・・・・・br> ・€・€Dim・€db・€As・€DAO.Database
・€・€Dim・€tdf・€As・€DAO.TableDef
・€・€Dim・€idxNew・€As・€DAO.Index
・€・€Dim・€strIndex()・€As・€String・€・€'・ゃ・潟・・・・・・・鴻・・荐㊤・・・・・・・・・・c・若・・・・・・・ャ・・・・・・・・
・€・€strIndex()・€=・€Split("A・潟・若・・|B・潟・若・・|C・潟・若・・",・€"|")
'・€・€Debug.Print・€strIndex(0)

・€・€
・€・€Set・€db・€=・€OpenDatabase(App.Path・€&・€"\temp.mdb")
・€・€Set・€tdf・€=・€db!・・・若・・・・・€'・・・若・・・・・・・・絎・
・€・€
・€・€For・€x・€=・€0・€To・€2
・€・€・€・€・€・€tdf.Indexes.Delete・€strIndex(x)
・€・€Next・€x
・€・€
・€・€'緇・紮・・・br> ・€・€db.Close
・€・€Set・€db・€=・€Nothing
Exit・€Sub
SOS:
・€・€・€・€・€・€MsgBox・€Err.Number・€&・€";"・€&・€Err.Description
End・€Sub