AccessVBA条件追加

質問

データ作成のコードに条件を追加したいのですが、
どのようにしたら良いのでしょうか？
見づらくてすいません。

'今あるデータの追加用コード
StrSql = "INSERT INTO "
StrSql = StrSql & "TW_在庫テーブル ( "
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_販売店マスタ "
StrSql = StrSql & "ON TTCOM_TZIK_TBL.TZIK_HOKNCD = T_販売店マスタ.販売店コード "
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

追加したい条件

くっつけたい条件
（StrSql = StrSql & "INNER JOIN T_販売店マスタ "
StrSql = StrSql & "ON TTCOM_TZIK_TBL.TZIK_HOKNCD = T_販売店マスタ.販売店コード "
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日付]) & "#" & " "）

回答No.2

auty · ベストアンサー

・　「くっつけたい条件」は、「元の条件」に加えて更に厳密になっているようです。その場合、「くっつけたい条件」で選択した物は必ず「元の条件」だけで選択したものに含まれています。

・　このように2重に重なってよいのであれば、最初のコマンドを実行した後に、もう一度「くっつけたい条件」で、StrSql2を作り、コマンド

CurrentDb.Execute StrSql2
を実行すればいいと思われます。

お礼

2度の有り難う御座います。
助かりました。

回答No.1

auty

追加したい条件が、AND条件で、
StrSql = StrSql & "AND TTCOM_TZIK_TBL.TZIK_ROMSYU = '1' "
が増えているだけの場合、
StrSql = StrSql & "AND TTCOM_TZIK_TBL.TZIK_ROMSYU = '1' "
を同じ場所に付け加えるだけでいいと思います。

補足

有り難う御座います。
また、レスが遅くなり申し訳ありません。

条件を付け加えるということは、
全ての条件に一致するものを抽出する気がしますが？
（ANDですし。）
気のせいでしたらスイマセン。

元の条件とくっつけたい条件でそれぞれの結果を
1つのテーブルに入れられるようにしたいです。