Access VBA 覚書

新規テーブルの作成

Dim objDB As DAO.Database
Dim objTable As DAO.TableDef
Set objDB = CurrentDb
Set objTable = objDB.CreateTableDef(Name:=table_name)

With objTable.Fields
   .Append objTable.CreateField(field_name1, value_type, value_size)
   .Append objTable.CreateField(field_name2, value_type, value_size)
   .Append objTable.CreateField(field_name3, value_type, value_size)
   .
   .
   .
End With

objDB.TableDefs.Append objTable
Set objTable = Nothing
objDB.Close
Set objDB = Nothing

新規レコードの追加

Dim objRS as Recordset
Set objRS = CurrentDb.OpenRecordset(sql_statement)

objRS.AddNew
objRS(field_name1) = value1
objRS(field_name2) = value2
objRS(field_name3) = value3
.
.
.
objRS.Update
objRS.Close

Set objRS = Nothing

アクションクエリの実行

Dim objDB as Database
Dim strSQL as String
Set objDB = CurrentDb
strSQL = sql_statement

objDB.Execute strSQL
objDB.Close

Set objDB = Nothing