access VBAでテーブルを作成する方法

VBAで新規テーブルを作るにはDAOを利用することができます。

Private Sub maketable()

   On Error GoTo エラー

‘各オブジェクトの定義をします。
   Dim db As DAO.Database
   Dim tb As DAO.TableDef
   Dim id As DAO.Field
   Dim name As DAO.Field
   Dim data As DAO.Field

   Set db = CurrentDb
‘作成するテーブル名称を定義します。
   Set tb = db.CreateTableDef(“testtable”)

‘作成するテーブルの各フィールドの属性をセットします。
   Set id = tb.CreateField(“ID”, dbInteger)
   Set name = tb.CreateField(“name”, dbText, 20)
   Set data = tb.CreateField(“data”, dbText, 50)

   tb.Fields.Append id
   tb.Fields.Append name
   tbdef.Fields.Append data

   db.TableDefs.Append tb

   MsgBox “テーブル作成が完了しました。”

   db.Close: Set db = Nothing

   Exit Sub

エラー:

   If Err.Number = 3010 Then
      db.TableDefs.Delete “testtable”
      Resume
   Else
      MsgBox Err.Number & ” : ” & Err.Description
   End If

   Exit Sub

End Sub