| |
WinXP
Access2002です
受注日にはNullデータはありませんが
工完日にはNullデータがあります。
strSQL1は実行されるのですが
strSQL2は「抽出条件でデータ型が一致しません」
とのメッセージが出て実行されません。
strSQL2を追加クエリオブジェクトにして実行すると実行できるようです。
工完日にNullデータがあることからくるものかと推測しますが
デバッグ方法がわかりません。
おわかりになる方の助言をお待ちしています。
Dim strA As String '始日
Dim strB As String '締日
Dim VarC As Variant '営業所ｺｰﾄﾞ
strA = Format(DLookup("A", "WT_設定ﾏｽﾀ", "pk='1'"), "yyyymm")
strB = Format(DLookup("B", "WT_設定ﾏｽﾀ", "pk='1'"), "yyyymm")
VarC = Trim(Nz(DLookup("C", "WT_設定ﾏｽﾀ", "pk='1'")))
'--------------------------------------------------------
'WT_工事台帳を初期化する
'--------------------------------------------------------
Dim strSQL0 As String
strSQL0 = "DELETE WT_工事台帳.* FROM WT_工事台帳;"
DoCmd.RunSQL strSQL0
'--------------------------------------------------------
'工事番号を追加する
'--------------------------------------------------------
Dim strSQL1 As String
Dim strSQL2 As String
strSQL1 = "INSERT INTO WT_工事台帳 ( 工事番号 ) " & _
"SELECT 工事番号 " & _
"FROM T_工事台帳 " & _
"WHERE Format([受注日],'yyyymm')>=" & strA & " And Format([受注日],'yyyymm')<=" & strB & " AND 営業所ｺｰﾄﾞ Like '*" & VarC & "*';"
strSQL2 = "INSERT INTO WT_工事台帳 ( 工事番号 ) " & _
"SELECT 工事番号 " & _
"FROM T_工事台帳 " & _
"WHERE Format([受注日],'yyyymm')<" & strA & " AND Format([工完日],'yyyymm')>=" & strA & " And Format([工完日],'yyyymm')<=" & strB & " AND 営業所ｺｰﾄﾞ Like '*" & VarC & "*';"
DoCmd.RunSQL strSQL1
DoCmd.RunSQL strSQL2
|
|
いんぱら
- 07/4/3(火) 18:44 -
