Private Sub cmd_click()
On Error goto e
Dim db As DAO.Database
Dim tb As DAO.TableDef
Dim fn As String
Set db = CurrentDb()
Set tb = db.TableDefs(“T_table”)
fn = InputBox(“フィールド名入力”)
tb.Fields.Append tb.CreteField(fn,dbText,100)
Set tb = Nothing
db.Close
Set db = Nothing
e:
Exit Sub
End Sub
