ＳＱＬ

いつもお世話になっております。
下記のｺｰﾄﾞの間違えているところを
おしえてくれませんでしょうか
エクセルの標準モジュールに記載しております。
また、添付ファイル有

strSQL =strSQL "SELECT"

strSQL =strSQL "MAX(T1.社員名) AS 社員名 , " _
& " SUM(CASE T2.状態区分 WHEN 0 THEN T2.売上金額 ELSE 0 END) AS 未確定売上金額 , " _
& " SUM(CASE T2.状態区分 WHEN 1 THEN T2.売上金額 ELSE 0 END) AS 確定売上金額"

strSQL =strSQL "FROM"
strSQL =strSQL "社員マスタ AS T1 LEFT JOIN 売上明細 AS T2"
strSQL =strSQL "ON T1.社員コード = T2.社員コード"

strSQL =strSQL "GROUP BY T1.社員コード"

質問者からの補足コメント

• 

  お忙しいところありがとうございます。
  WHENを認識できませんとメッセージがでます。
  対処方法おしえてくれませんでしょうか

  No.2の回答に寄せられた補足コメントです。 補足日時：2020/01/14 11:36

No.5 回答者： よろずやkinchan 回答日時： 2020/01/14 12:49

こっちもスペースを追加。

strSQL =strSQL " MAX(T1.社員名) AS 社員名 , " _
& " SUM(CASE T2.状態区分 WHEN 0 THEN T2.売上金額 ELSE 0 END) AS 未確定売上金額 , " _
& " SUM(CASE T2.状態区分 WHEN 1 THEN T2.売上金額 ELSE 0 END) AS 確定売上金額"

この回答へのお礼

WHEN が使用できないのではないかとおもいます。

お礼日時：2020/01/14 13:07

No.4 回答者： よろずやkinchan 回答日時： 2020/01/14 12:47

スペースを追加。

strSQL =strSQL " FROM"
strSQL =strSQL " 社員マスタ AS T1 LEFT JOIN 売上明細 AS T2"
strSQL =strSQL " ON T1.社員コード = T2.社員コード"
strSQL =strSQL " GROUP BY T1.社員コード"

この回答へのお礼

WHEN が使用できないのではないかとおもいます。

お礼日時：2020/01/14 13:07

No.3 回答者： naktak 回答日時： 2020/01/14 11:45

今の状態を提示してください。

そういったクエリ絡みのエラーは、VBAなんて関係なく、DBサーバで実行して動作を確認できるSQLを組み立てれば済むはずですが。

この回答へのお礼

ありがとうございます。
わたしの考えですがWHEN は
使用できないのではないかとおもいます。

お礼日時：2020/01/14 12:42

No.2 回答者： naktak 回答日時： 2020/01/14 11:09

SQL文を生成しているすべての行の先頭に、半角スペースを入れるように変えた方がいいです。

すべての文字が繋がっているからSQLとして誤りになるかと思います。
デバッグ実行で生成されたSQL文を確認するといいですよ。

この回答へのお礼

ありがとうございます

お礼日時：2020/01/14 12:41

No.1 回答者： t_fumiaki 回答日時： 2020/01/14 11:07

連結の&が無い。

strSQL =strSQL "SELECT"
↓
strSQL =strSQL & "SELECT"

以下全て同じ。

この回答へのお礼

ありがとうございます。

お礼日時：2020/01/14 12:41