サンプルコードのメモ。 Sub MakeTable_Test() On Error GoTo Err_MakeTable_Test Dim db As Database Dim tbl As TableDef Dim fld As Field Dim idx As Index Set db = OpenDatabase(CurrentDb().Name) Set tbl = db.CreateTableDef("WORDS") ''''''''''''…