SQL语法问题MS Access VBA

我的语法有问题： 我将其从SQL设计视图转移到VBA。[区域]是数字。我只是让你们做一个粗略的回顾，告诉我是否有什么事情发生在你们身上

DoCmd.RunSQL "SELECT 'VCAP0112' AS VCAP0112, VCAP0112.[RECV IND] AS OMU, VCAP0112.[LEGACY ACCT], Sum(VCAP0112.[1 to 30 Day]) AS [0 - 30], " _
        & "Sum(VCAP0112.[31 to 60 Day]) AS [31 - 60], Sum(VCAP0112.[61 to 90 Day]) AS [61 - 90], Sum(VCAP0112.[91 to 120 Day]) AS [91 -  120], " _ 
        & "Sum(VCAP0112.[Greater than 120]) AS [+120], Sum(VCAP0112.[Pmt Difference]) AS TOTAL " _
        & "FROM Urcrosswalk INNER JOIN VCAP0112 ON Urcrosswalk.[Legacy GL] = VCAP0112.[LEGACY ACCT] " _
        & "WHERE (((Left([VCAP0112].[area], 2))=80 Or (Left([VCAP0112].[area], 2))= 81)) " _
        & "GROUP BY 'VCAP0112', VCAP0112.[RECV IND], VCAP0112.[LEGACY ACCT] " _
        & "HAVING (((VCAP0112.[RECV IND])='O' Or (VCAP0112.[RECV IND])='M' Or (VCAP0112.[RECV IND])='U'));"

---

您不能将

DoCmd.RunSQL

与普通的

SELECT

查询一起使用

从DoCmd.RunSQL方法帮助主题

作为操作查询的有效SQL语句的字符串表达式 或数据定义查询。它使用INSERT INTO、DELETE、， 选择…进入、更新、创建表、更改表、删除表、创建 索引，或DROP INDEX语句。如果您想，请包含IN子句 访问另一个数据库

如果要在“数据表”视图中查看该查询的结果，请使用其SQL创建一个已保存的查询

Dim db作为DAO.Database
将qdf设置为DAO.QueryDef
Dim strSelect As字符串
strSelect=“选择……诸如此类，诸如此类”
调试。打印strSelect'Thanxs@Hansup很抱歉打扰您。下一次问之前，我会去的。不麻烦，约翰。很高兴再次见到你。我不明白你为什么要上网。您不能使用Access的内置帮助吗？顺便说一句，请在即时窗口中签出
Debug.Print AccessError（2342）
。该错误消息的模板文本包含了更多细节，这些细节本可以在一开始就澄清情况。我不知道为什么错误对话框只显示了部分错误。但是
AccessError（）
是另一个可以保存在工具箱中的有用工具。问候。在公司工作时，内置的帮助并不总是有帮助的，所以我通常忽略这个功能。不客气。是的，如果错误对话框向您显示更多该消息，它将非常有用。