|
Option・Explicit Private・Sub・Command3_Click() ・・Dim・Mytable・As・DAO.TableDef ・・Dim・Mydb・As・DAO.Database ・・Dim・x・As・String ・・'・・・若・・・・・・・・・ｃ・若・・・・菴遵・ ・・x・=・"ALTER・TABLE・・・・若・・・・・ADD・COLUMN・菴遵・・TEXT(50);" '・・DoCmd・SQL・・・茵・・x ・・Set・Mydb・=・OpenDatabase(App.Path・&・"\temp.mdb") ・・Mydb.Execute・x ・・ '・・Set・Mydb・=・CurrentDb() ・・Set・Mytable・=・Mydb("・・・若・・・・") ・・'菴遵・・・・・・・・ｃ・若・・・・・・；腓咲・綺・・・・・・潟・若・・・祉・・・・・・・緇・・・・・絎・ ・・Mytable.Fields("菴遵・").OrdinalPosition・=・Mytable.Fields.Count・-・1 ・・'紊・・顔・綺・・・・・・ ・・Mytable.Fields.Refresh ・・Mydb.Close ・・Set・Mydb・=・Nothing End・Sub |