vba レコードを追加する
レコードを追加する サンプルソース
'===テーブル1削除クエリがあったとして======
'警告ダイアログをOFF
DoCmd.SetWarnings False
'テーブル1削除クエリを実行する
DoCmd.OpenQuery "テーブル1削除"
'===テーブル1削除クエリがあったとして======
'テーブルに書き込み
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = Application.CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open "テーブル1", cn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs![フィールド1 = ”hoge”
rs![ フィールド2] = "fuga"
rs.Update
rs.Close
cn.Close
http://www.happy2-island.com/access/gogo03/capter60004.shtml
