• ベストアンサー

アクセスVBAのSQL文の記述の仕方について

今、アクセスでプログラミングをしてまして どうもSQL文がおかしいみたいなんですが どこがおかしいか教えてください。 wSQL = wSQL & "SELECT" & vbCr wSQL = wSQL & " Sum(T_NyukinJiseki.締日起算積数(全入金)) AS 全入金" & vbCr wSQL = wSQL & ", Sum(T_NyukinJiseki.当月入金合計額) AS 当月入金合計額" & vbCr wSQL = wSQL & " FROM" & vbCr wSQL = wSQL & " T_NyukinJiseki" & vbCr wSQL = wSQL & " GROUP BY" & vbCr wSQL = wSQL & " T_NyukinJiseki.勘定年月" & vbCr wSQL = wSQL & ", T_NyukinJiseki.集金部所コード" & vbCr wSQL = wSQL & ", T_NyukinJiseki.取引部所コード" & vbCr wSQL = wSQL & " HAVING" & vbCr wSQL = wSQL & " (((T_NyukinJiseki.勘定年月)=" & Me!取込年度 & " 06)" & vbCr wSQL = wSQL & " AND" & vbCr wSQL = wSQL & " ((T_NyukinJiseki.集金部所コード)='" & SyuKin & "')" wSQL = wSQL & " AND" & vbCr wSQL = wSQL & " ((T_NyukinJiseki.取引部所コード)='" & Torihiki & "'));" これなんでお願い致します。 あと変数と変数をつなげるやり方も教えてください。

質問者が選んだベストアンサー

  • ベストアンサー
回答No.2

勘定年月は数値型フィールドですよね? wSQL = wSQL & " (((T_NyukinJiseki.勘定年月)=" & Me!取込年度 & " 06)" & vbCr の「06」の頭にスペースが挿入されています。 それを取り除けばいいと思います。 構文的にはあっています。 もし勘定年月は文字型フィールドだったら、「Me!取込年度 & "06"」をシングルコーテーションで囲むだけです。

taka20
質問者

お礼

回答ありがとうございます。 お世話になりました。デバッグとおりました。

その他の回答 (1)

  • hiroaki_0
  • ベストアンサー率53% (131/245)
回答No.1

vbcr っていらないと思うのですけど? あとは、細かくみていません。

taka20
質問者

お礼

回答ありがとうございます。 やっぱりいらないんですかね? けしときます。

関連するQ&A

専門家に質問してみよう