Accessデータ抽出から追加

質問

やりたいことを上手く伝えられず、何度もお手数をお掛けし申し訳ありません。
１と２の文を統合して１つのデータとして欲しいです。
どの様に統合したら宜しいのでしょうか？
教えて下さい。(読みづらく申し訳ありません。)

'ワークデータ作成（指定期間のデータを抽出）
1. StrSql = "INSERT INTO "
StrSql = StrSql & "TW_在庫テーブルFoma ( "
StrSql = StrSql & "販売店コード, "
StrSql = StrSql & "キャリアコード, "
StrSql = StrSql & "機種コード, "
StrSql = StrSql & "数量) "
StrSql = StrSql & "SELECT "
StrSql = StrSql & "TTCOM_TZIK_TBL.TZIK_HOKNCD, "
StrSql = StrSql & "TTCOM_TZIK_TBL.TZIK_CARRCD, "
StrSql = StrSql & "TTCOM_TZIK_TBL.TZIK_SHINCD, "
StrSql = StrSql & "COUNT(TTCOM_TZIK_TBL.TZIK_CARRCD) As SUURYO "
StrSql = StrSql & "FROM TTCOM_TZIK_TBL "
StrSql = StrSql & "INNER JOIN T_販売店マスタGeo "
StrSql = StrSql & "ON TTCOM_TZIK_TBL.TZIK_HOKNCD = T_販売店マスタGeo.販売店コード "
StrSql = StrSql & "WHERE TTCOM_TZIK_TBL.TZIK_CARRCD = '10' "
StrSql = StrSql & "AND TTCOM_TZIK_TBL.TZIK_TZDKBN = '2' "
StrSql = StrSql & "AND TTCOM_TZIK_TBL.TZIK_ZKTKBN = '0' "
StrSql = StrSql & "AND TTCOM_TZIK_TBL.TZIK_SHINKB IN ('5','6') "
StrSql = StrSql & "AND TTCOM_TZIK_TBL.TZIK_URIYMD <= " & "#" & CStr(Forms![FAMAIN]![TxtTO日付]) & "#" & " "
StrSql = StrSql & "GROUP BY "
StrSql = StrSql & "TTCOM_TZIK_TBL.TZIK_HOKNCD, "
StrSql = StrSql & "TTCOM_TZIK_TBL.TZIK_CARRCD, "
StrSql = StrSql & "TTCOM_TZIK_TBL.TZIK_SHINCD;"
CurrentDb.Execute StrSql

2. StrSql = "INSERT INTO "
StrSql = StrSql & "TW_在庫テーブルFoma ( "
StrSql = StrSql & "販売店コード, "
StrSql = StrSql & "キャリアコード, "
StrSql = StrSql & "機種コード, "
StrSql = StrSql & "数量) "
StrSql = StrSql & "SELECT "
StrSql = StrSql & "TTCOM_TZIK_TBL.TZIK_HOKNCD, "
StrSql = StrSql & "TTCOM_TZIK_TBL.TZIK_CARRCD, "
StrSql = StrSql & "TTCOM_TZIK_TBL.TZIK_SHINCD, "
StrSql = StrSql & "COUNT(TTCOM_TZIK_TBL.TZIK_CARRCD) As SUURYO "
StrSql = StrSql & "FROM TTCOM_TZIK_TBL "
StrSql = StrSql & "INNER JOIN T_販売店マスタGeo "
StrSql = StrSql & "ON TTCOM_TZIK_TBL.TZIK_HOKNCD = T_販売店マスタGeo.販売店コード "
StrSql = StrSql & "WHERE TTCOM_TZIK_TBL.TZIK_CARRCD = '10' "
StrSql = StrSql & "AND TTCOM_TZIK_TBL.TZIK_TZDKBN = '2' "
StrSql = StrSql & "AND TTCOM_TZIK_TBL.TZIK_ZKTKBN = '0' "
StrSql = StrSql & "AND TTCOM_TZIK_TBL.TZIK_ROMSYU = '1' "
StrSql = StrSql & "AND TTCOM_TZIK_TBL.TZIK_SHINKB IN ('5','6') "
StrSql = StrSql & "AND TTCOM_TZIK_TBL.TZIK_URIYMD <= " & "#" & CStr(Forms![FAMAIN]![TxtTO日付]) & "#" & " "）
StrSql = StrSql & "GROUP BY "
StrSql = StrSql & "TTCOM_TZIK_TBL.TZIK_HOKNCD, "
StrSql = StrSql & "TTCOM_TZIK_TBL.TZIK_CARRCD, "
StrSql = StrSql & "TTCOM_TZIK_TBL.TZIK_SHINCD;"
CurrentDb.Execute StrSql

回答No.2

noname#140971 · ベストアンサー

店コード__キャリアコード__機種コード_数量
101_______10______________5_____________2
102_______10______________6_____________2
101_______10______________5_____________1
102_______10______________6_____________1

もしかして、このような結果を得たいということでしょうか？
これだったら、ケース１、２の情報がないと識別できないでしょうね。

分類_店コード__キャリアコード__機種コード_数量
01___101_______10______________5_____________2
01___102_______10______________6_____________2
02___101_______10______________5_____________1
02___102_______10______________6_____________1

この場合は、UNION で結合することになります。

回答No.1

noname#140971

販売店:

ID__店コード
01__101
02__102

販売履歴:

ID__店コード__区分_1__区分_2__区分_3__種別__キャリアコード__機種コード__売上年月日
01__101_______2_______0_______5_______1_____10______________5___________2008/02/02
02__101_______2_______0_______5_______2_____10______________5___________2008/02/02
03__102_______2_______0_______6_______1_____10______________6___________2008/02/02
04__102_______2_______0_______6_______2_____10______________6___________2008/02/02

このようなテーブルとデータを想定。

クエリ1:

店コード__キャリアコード__機種コード_数量
101_______10______________5_____________2
102_______10______________6_____________2

SELECT 販売履歴.店コード, 販売履歴.キャリアコード, 販売履歴.機種コード, COUNT(販売履歴.キャリアコード) AS 数量
FROM 販売履歴 INNER JOIN 販売店 ON 販売履歴.店コード=販売店.店コード
WHERE 販売履歴.キャリアコード='10' And 販売履歴.区分_1='2' And 販売履歴.区分_2='0' And 販売履歴.区分_3 In ('5','6') And 販売履歴.売上年月日<=#3/1/2008#
GROUP BY 販売履歴.店コード, 販売履歴.キャリアコード, 販売履歴.機種コード;

クエリ2:

店コード__キャリアコード__機種コード_数量
101_______10______________5_____________1
102_______10______________6_____________1

SELECT 販売履歴.店コード, 販売履歴.キャリアコード, 販売履歴.機種コード, COUNT(販売履歴.キャリアコード) AS 数量
FROM 販売履歴 INNER JOIN 販売店 ON 販売履歴.店コード=販売店.店コード
WHERE 販売履歴.キャリアコード='10' And 販売履歴.区分_1='2' And 販売履歴.区分_2='0' And 種別='1' And 販売履歴.区分_3 In ('5','6') And 販売履歴.売上年月日<=#3/1/2008#
GROUP BY 販売履歴.店コード, 販売履歴.キャリアコード, 販売履歴.機種コード;

Q、１と２の文を統合して１つのデータとして欲しいです。
A、１のデータに２は含まれていると推察します。

よって、質問の意図が理解できません。