ようこそ ゲスト さん、新規登録（無料）して気になる疑問を解決しませんか？
はじめての方へ｜ヘルプ｜FAQ
スポンサーサイト（詳細）

質問
質問者：n_c63amg 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日付]) & "#" & " "）
質問投稿日時：08/04/01 06:01
質問番号：3912156
この質問に対する回答は締め切られました。
最新から表示｜回答順に表示｜良回答のみ表示

回答

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

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

CurrentDb.Execute StrSql2
を実行すればいいと思われます。
種類：アドバイス
どんな人：経験者
自信：参考意見
回答日時：08/04/23 13:50
回答番号：No.2
この回答へのお礼2度の有り難う御座います。
助かりました。

回答

 
回答者：auty 追加したい条件が、AND条件で、
StrSql = StrSql & "AND TTCOM_TZIK_TBL.TZIK_ROMSYU = '1' "
が増えているだけの場合、
StrSql = StrSql & "AND TTCOM_TZIK_TBL.TZIK_ROMSYU = '1' "
を同じ場所に付け加えるだけでいいと思います。
種類：アドバイス
どんな人：経験者
自信：参考意見
回答日時：08/04/01 06:28
回答番号：No.1
この回答への補足有り難う御座います。
また、レスが遅くなり申し訳ありません。

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

元の条件とくっつけたい条件でそれぞれの結果を
1つのテーブルに入れられるようにしたいです。
この回答へのお礼この回答にお礼をつける(質問者のみ)
 
最新から表示｜回答順に表示｜良回答のみ表示
スポンサーサイト（詳細）
このページのトップへ