ACCESSのSQLです。

質問

お世話になります。
　ACCESS210で
　勘定科目、仕訳帳、予実集計の3個のテーブルで
　仕訳帳を月ー科目ID毎に集計して予実集計に反映するのに

DoCmd.RunSQL ("Delete From 予実集計;")
DoCmd.RunSQL ("Insert Into 予実集計(月度,科目ID,当年実績)" _
& "Select [仕訳日]-Day([仕訳日])+1 as 月初,科目ID, " _
& " sum(IIf([貸借区分] = ""借方"",[借方]-[貸方],[貸方]-[借方] as 収支) _
& " FROM 勘定科目 INNER JOIN 仕訳帳 ON ID = 仕訳帳.科目ID" _
& " WHERE 繰越FG)=False group BY [仕訳日] - Day([仕訳日]) + 1 as 月初,科目ID; ")

　とすると
　実行時エラー　"3075" 構文エラー演算子がありませんとなります。

　因みに、下記の仕訳帳クエリ（下方に記述）を用いて

DoCmd.RunSQL ("Delete From 予実集計;")
DoCmd.RunSQL ("Insert Into 予実集計(月度,科目ID,当年実績) _
& " Select 月初,科目ID,sum(金額) From 仕訳帳クエリ _
& " WHERE 繰越FG = False group by 月初,科目ID; ")
とするとエラーなく終了するのですが、出来ればクエリーを乱用したくないのです。

・勘定科目
　ID（主キー）
　勘定科目名
　勘定CD
　科目群ID
　貸借区分（借方、貸方）
　繰越FG

・仕訳帳（主キーなし）
　伝票No.
　仕訳日
　摘要
　科目ID（勘定科目.IDにリレーション）
　借方
　貸方

・予実集計
　月度　（主キー　仕訳日の月初＝仕訳日－DAY(仕訳日)+1)
　科目ID（主キー）
　当年予算
　当年実績
　前年予算
　前年実績

・仕訳帳クエリ勘定科目.IDー仕訳帳.科目ID
　伝票No.
　仕訳日
　摘要
　科目ID
　借方
　貸方
　月初:仕訳日-DAY(仕訳日)+１
　金額:iff(貸借区分="借方",借方-貸方,貸方-借方)

長文になりましたが、宜しくお願いします。

回答No.5

piroin654 · ベストアンサー

No1からNo4はリセットします。

テーブルのデータ型、テーブルのデータがないのでよく
わかりませんが、クエリで求めたいのは、

INSERT INTO 予実集計 ( 当年実績, 月度, 科目ID )
SELECT Sum(IIf([貸借区分]="借方",[借方]-[貸方],[貸方]-[借方])) AS 収支, Month([仕訳帳].[仕訳日]) AS 月度, 仕訳帳.科目ID
FROM 勘定科目 INNER JOIN 仕訳帳 ON 勘定科目.ID = 仕訳帳.科目ID
GROUP BY Month([仕訳帳].[仕訳日]), 仕訳帳.科目ID;

のようなもので、SQL文にすると、

DoCmd.RunSQL "INSERT INTO 予実集計 ( 当年実績, 月度, 科目ID )" _
& " SELECT Sum(IIf([貸借区分]='借方',[借方]-[貸方],[貸方]-[借方])) AS 収支, Month([仕訳帳].[仕訳日]) AS 月度, 仕訳帳.科目ID" _
& " FROM 勘定科目 INNER JOIN 仕訳帳 ON 勘定科目.ID = 仕訳帳.科目ID" _
& " GROUP BY Month([仕訳帳].[仕訳日]), 仕訳帳.科目ID;"

では？
なお、質問の中の「月初」とは「2013/11/01」という
日にちというようにとれますし、「月度」といえば
普通は「11月度」あるいは「11」だと思います。
したがって「月度」となればMonth([仕訳帳].[仕訳日]
でいいのでは、と思います。わたしには、
仕訳日の月初＝仕訳日－DAY(仕訳日)+1
の式がよく飲み込めないので、上記のように
しました。あるいは、
月度: CStr(Month(DateSerial(Year([仕訳帳].[仕訳日]),Month([仕訳帳].[仕訳日]),1)))
でも、とれます。
また、月の初めの日にちならば、
DateSerial(Year([仕訳帳].[仕訳日]), Month([仕訳帳].[仕訳日]), 1)

お礼

有難うございました。

補足

解決しました。

長時間お付き合いいただきまして、ありがとうございます。
No.5のご回答の通り　)　勘定科目.ID
RUNSQL内でASの使用はできないようですね
月度も日付型で月初と同じです。説明が足りませんでした。

結論はイカです
DoCmd.RunSQL ("Delete From 予実集計;")
DoCmd.RunSQL ("Insert Into 予実集計(月度,科目ID,当年実績)" _
& " Select [仕訳日]-Day([仕訳日])+1,科目ID," _
& " sum(IIf([貸借区分] = ""借方"",借方-貸方,貸方-借方))" _
& " FROM 勘定科目 INNER JOIN 仕訳帳 ON 勘定科目.ID = 仕訳帳.科目ID" _
& " WHERE 繰越FG = False group BY [仕訳日]-Day([仕訳日])+1,科目ID; ")

回答No.4

piroin654

仕訳帳の仕分日は日付型とします。また、予実集計の月度はテキスト型
とします。
SQL文で
月初:仕訳日-DAY(仕訳日)+１
は認識できないので、月初をサブクエリでグループ化して取り出します。

DoCmd.RunSQL "INSERT INTO 予実集計 ( 月度, 科目ID, 当年実績 )" _
& " SELECT (SELECT CStr(Month(DateSerial(Year([仕訳帳].[仕訳日]),Month([仕訳帳].[仕訳日]),1))) AS 月初 FROM 仕訳帳 GROUP BY CStr(Month(DateSerial(Year([仕訳帳].[仕訳日]),Month([仕訳帳].[仕訳日]),1)))) AS 月初, 仕訳帳.科目ID, Sum(IIf([貸借区分]='借方',[借方]-[貸方],[貸方]-[借方])) AS 収支" _
& " FROM 勘定科目 INNER JOIN 仕訳帳 ON 勘定科目.ID = 仕訳帳.科目ID" _
& " WHERE (((勘定科目.繰越FG)='False'))" _
& " GROUP BY 仕訳帳.科目ID;"

では、どうですか。

回答No.3

piroin654

普通に追加クエリを作成してみて、
それを実際にフォームで運用する
ときの状況に合わせたSQL文に変更して
みてはどうですか？
たとえば、以下のようなクエリのSQL文。
(質問のSQL文の中のエラーがでそうなところは、
いくつかは変更しています)

INSERT INTO 予実集計 ( 月度, 科目ID, 当年実績 )
SELECT [仕訳日]-Day([仕訳日])+1 AS 月初, [科目ID], sum(IIf([貸借区分]='借方',[借方]-[貸方],[貸方]-[借方])) AS 収支
FROM 勘定科目 INNER JOIN 仕訳帳 ON [勘定科目].[ID]=[仕訳帳].[科目ID]
WHERE 繰越FG=False
GROUP BY 月初, [科目ID];

なお、No1ではかっこの位置も
変更しています。

回答No.2

piroin654

No1です。そのほか、

＞WHERE 繰越FG)

末尾にいらないかっこ

＞group BY [仕訳日] - Day([仕訳日]) + 1 as 月初,科目ID;

は、

＞Select [仕訳日]-Day([仕訳日])+1 as 月初

で宣言しているので、

group BY 月初,科目ID;

でいいような気もするのですが。
なお、
＞貸借区分] = ""借方""
は、
貸借区分] = '"借方"'
にしようとしたのでしょうか、それとも
貸借区分] = '借方'
にしようとしたのでしょうか。

補足

度重なるご回答感謝します。

WHERE 繰越FG)　は明らかなミスです、　訂正しました。
group BY 月初,科目ID; も訂正して実行しましたが解決しません。

回答No.1

piroin654

一部のみしか見ていませんが、

>sum(IIf([貸借区分] = ""借方"",[借方]-[貸方],[貸方]-[借方] as 収支)

は、

sum(IIf([貸借区分] = "借方",[借方]-[貸方],[貸方]-[借方])) as 収支

では？

補足

ご回答ありがとうございます。

""内の文字定数の記述は""文字定数""です。
http://www.postgresql.jp/document/8.4/html/sql-syntax-lexical.html
等に解説してあります。

文字列の記述は'（シングルクォーテーション）も可能と知り
""と' の組み合わせも試してみましたがダメでした。