Access VBA質問箱 IV

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

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


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

6302 / 9994

←次へ　｜　前へ→


	【6899】Re:SQL文で構文の誤り

みつ - 05/12/5(月) 9:03 -


	引用なし

	パスワード

ご指摘ありがとうございます。
以下のように修正して実行してみましたが改善されません。
あと営業所コードのコードの部分が実行すると自動的に半角から全角になります。

xSQL10 = "INSERT INTO WT_個別原価管理表 ( 工事番号 ) " & _
　　　　 "SELECT T_工事台帳.工事番号 " & _
　　　　 "FROM T_工事台帳 LEFT JOIN T_営業所ﾏｽﾀ " & _
　　　　 "ON T_工事台帳.工番ｺｰﾄﾞ=T_営業所ﾏｽﾀ.工番ｺｰﾄﾞ " & _
　　　　 "WHERE (((T_工事台帳.営業所ｺｰﾄﾞ) Like '*'" & Forms!F_Main!営業所コード & "'*') " & _
　　　　 "And ((T_工事台帳.売上修正損益)='0' " & _
　　　　 "Or (T_工事台帳.売上修正損益) Is Null) " & _
　　　　 "And ((T_営業所ﾏｽﾀ.工番管理者) Like '*'" & Forms!F_Main!工番管理者 & "'*') " & _
　　　　 "And ((Format(T_工事台帳!処理工完日,'yyyy/mm/dd'))>=Forms!F_Main!A " & _
　　　　 "And (Format(T_工事台帳!処理工完日,'yyyy/mm/dd'))<=Forms!F_Main!B) " & _
　　　　 "And ((Format(T_工事台帳!受注日,'yyyy/mm/dd'))<=Forms!F_Main!B)) " & _
　　　　 "Or (((T_工事台帳.営業所ｺｰﾄﾞ) Like '*'" & Forms!F_Main!営業所コード & "'*') " & _
　　　　 "And ((T_工事台帳.売上修正損益)='0' Or (T_工事台帳.売上修正損益) Is Null) " & _
　　　　 "And ((T_営業所ﾏｽﾀ.工番管理者) Like '*'" & Forms!F_Main!工番管理者 & "'*') " & _
　　　　 "And ((Format(T_工事台帳!処理工完日,'yyyy/mm/dd'))="") " & _
　　　　 "And ((Format(T_工事台帳!受注日,'yyyy/mm/dd'))<=Forms!F_Main!B)) " & _
　　　　 "Or (((T_工事台帳.営業所ｺｰﾄﾞ) Like '*'" & Forms!F_Main!営業所コード & "'*') " & _
　　　　 "And ((T_工事台帳.売上修正損益)='0' " & _
　　　　 "Or (T_工事台帳.売上修正損益) Is Null) " & _
　　　　 "And ((T_営業所ﾏｽﾀ.工番管理者) Like '*'" & Forms!F_Main!工番管理者 & "'*') " & _
　　　　 "And ((Format(T_工事台帳!処理工完日,'yyyy/mm/dd'))>Forms!F_Main!B) " & _
　　　　 "And ((Format(T_工事台帳!受注日,'yyyy/mm/dd'))<=Forms!F_Main!B));"

DoCmd.RunSQL xSQL10

349 hits

▼

【6895】SQL文で構文の誤り みつ 05/12/3(土) 14:35