| |
Accessの追加クエリ（SQL）について教えて下さい。
有る明細の項目から、必要な番号を取り出して別テーブルに追加したい
のですが、どうもうまくいきません
以下に2つのテーブルがあったとします。
内容から、データ番号を抽出して別テーブルに項目として設けて管理したい。
明細には、必ずデータ番号：と記入されていないものもあります。
テーブル1：T_元明細
No 内容 商品コード 商品名
1 文章が・・・ データ番号：A0001 また文書 5001 商品A
2 文章が・・・ B0001 また文書 6001 商品D
テーブル2：T_対象明細
No 内容 商品コード 商品名 データ番号
1 文章が・・・ データ番号：A0001 また文書 5001 商品A A0001
2 文章が・・・ B0001 また文書 6001 商品D B0001
※抽出条件をi にしているのは、別テーブルに T_データ番号という3つめの
テーブルが存在しており、抽出条件をループをして追加する予定です。
まずは、直接入れてみたのですが、実行エラー424 オブジェクトが必要です。
とエラーが出て追加されませんでした。
Accessは2000です。
Dim db As Database
Dim rs As Recordset
Dim i As String
i = "A0001"
DoCmd.SetWarnings False
DoCom.RunSQL "INSERT INTO T_対象明細 ( データ番号 )" & _
"SELECT T_元明細.*, '" & i & "' AS データ番号 FROM T_元明細" & _
"WHERE (((T_元明細.内容) Like '*" & i & "*'));"
DoCmd.SetWarnings True
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
