|
ACSESS2002のADOでした。
説明が足りませんでした。
Forms!F_Mainで参照しているところに関して
'%" & のついているところは参照NGでしたが、
'%" & のついていないところは参照OKでした。
'%" & のついているところの書き方をもう一度教えて頂けますか?
xSQL10 = "NSERT INTO WT_個別原価管理表 ( 工事番号, 受注金額, 工番コード, 見積番号, 顧客コード) " & _
"SELECT T_工事台帳.工事番号, " & _
"T_工事台帳.受注金額, " & _
"T_工事台帳.工番コード, " & _
"T_工事台帳.見積番号, " & _
"T_工事台帳.顧客コード " & _
"FROM T_工事台帳 LEFT JOIN T_営業所マスタ ON T_工事台帳.工番コード = T_営業所マスタ.工番コード " & _
"WHERE (((T_工事台帳.営業所コード) Like '%" & [Forms]![F_Main]![営業所コード] & "%') " & _
"AND ((T_工事台帳.売上修正損益)='0') " & _
"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') " & _
"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') " & _
"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
|
|