|
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・・'・ゃ・潟・・・・・・・鴻・・荐㊤・・・・・・・・・・ｃ・若・・・・・・・ャ・・・・・・・・ ・・筝罨≦・・・・・・・・篏・・・・・・・・・・・・・ゃ・・篁ｅ・ャ・・・・ ・・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・・・㏍・・・・・ｃ・若・・・・緇・・с・・・・・・ ・・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・・'・ゃ・潟・・・・・・・鴻・・荐㊤・・・・・・・・・・ｃ・若・・・・・・・ャ・・・・・・・・ ・・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 |