いつもお世話になっております。
AccessのVbaソースで以下のようなソースを見つけました。
私がサンプル化しているので、若干本来のものとはことなるかもですが、ご教授のほどよろしくお願いします。
Vba
1Sub Test() 2 '/* 変数の宣言 */ 3 Dim Cn As New ADODB.Connection 4 Dim RS As New ADODB.Recordset 5 6 '/* 変数の初期化 */ 7 flag = True 8 9 '/* DBにコネクト */ 10 Set Cn = CurrentProject.Connection 11 RS.Open "Select * From テーブルA", Cn, adOpenStatic, adLockOptimistic 12 RS.AddNew 13 RS.Fields("テーブルB.番号") = "B0002" '// 別テーブル.カラム名をしていしている?? 14 RS.Fields("名称") = "商品B-2" 15 RS.Fields("テーブルC.番号") = "C0002" // 別テーブル.カラム名をしていしている?? 16 RS.Fields("名称") = "商品C-2" 17 RS.Update 18 RS.Close 19 Set RS = Nothing 20 Set Cn = Nothing 21End Sub
RS.AddNewに関しては、Openしたオブジェクトのみが対象だと認識しています。
(※今回だとテーブルA)
上記ソースのように別のテーブルにレコードを入れることも可能なのでしょうか??
ちなみに上記のソースだと、
「RS.Fields("テーブルB.番号") = "B0002"」対応するコレクションがないという旨のエラーがでるので、
テーブルAの中で「テーブルB.番号」というカラム名を探しにいってるのだと推測します、、、、。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2021/10/24 01:52