Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1092 / 9994

←次へ　｜　前へ→


	【12201】抽出条件を含んだ追加クエリについて

buri - 12/10/30(火) 23:41 -


	引用なし

	パスワード

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

384 hits

▼

【12201】抽出条件を含んだ追加クエリについて buri 12/10/30(火) 23:41