SQL语法问题MS Access VBA

约翰·肖

我在语法上遇到问题:我将此从SQL Design View转移到了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,SELECT ... INTO,UPDATE,CREATE TABLE,ALTER TABLE,DROP TABLE,CREATE INDEX或DROP INDEX语句。如果要访问另一个数据库,请包含IN子句。

如果您打算在数据表视图中查看该查询的结果,请使用其SQL创建一个保存的查询。

Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim strSelect As String

strSelect = "SELECT ... blah, blah, blah"
Debug.Print strSelect '<- inspect this in Immediate window; Ctrl+g will take you there
Set db = CurrentDb
Set qdf = db.CreateQueryDef("YourQueryNameHere", strSelect)

然后,您可以使用DoCmd.OpenQuery...打开保存的查询

DoCmd.OpenQuery "YourQueryNameHere"

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

MS Access VBA,SQL脚本:In(),<>和AND语法

来自分类Dev

从VBA SQL语法错误将MS EXCEL转换为MS ACCESS .accdb数据库

来自分类Dev

MS Access 2013:通过VBA使用MS Word的语法检查

来自分类Dev

MS Access VBA IF()

来自分类Dev

ACCESS VBA INSERT INTO 问题

来自分类Dev

MS ACCESS SQL连接语法

来自分类Dev

SQL Access VBA Excel

来自分类Dev

Int()函数MS Access VBA

来自分类Dev

MS ACCESS vba-错误

来自分类Dev

MS Access VBA 运行查询

来自分类Dev

通过VBA在MS Access中编辑当前对象的SQL

来自分类Dev

在MS Access中使用Excel VBA进行SQL删除

来自分类Dev

MS Access:使用VBA进行SQL插入的日期格式

来自分类Dev

MS Access日期在VBA SQL查询中不起作用

来自分类Dev

MS Access VBA / SQL检查任何子级

来自分类Dev

MS ACCESS - VBA 中的错误运行时 3141 SQL

来自分类Dev

MS Access VBA SQL 查询运行,但不插入

来自分类Dev

Access VBA中的SQL查询

来自分类Dev

语法错误MS Access SQL

来自分类Dev

MS Access sql - 更新查询语法

来自分类Dev

带VBA的MS Access链接表

来自分类Dev

MS Access中VBA代码的继承

来自分类Dev

多参数IsNull函数MS Access VBA

来自分类Dev

MS-Access:使用vba移至NavigationControl

来自分类Dev

MS Access VBA:如何清除图像控件?

来自分类Dev

是/否字段上的MS Access VBA Dlookup

来自分类Dev

MS Access查询未从VBA接收参数

来自分类Dev

MS Access VBA:OpenRecordSet返回什么?

来自分类Dev

使用VBA显示MS Access报告