时间戳

首页 > 解决方案 > 访问 VBA 预计结束

ms-access - 访问 VBA 预计结束

问题描述

离开表单编码并且没有我的参考文档。有这段代码。

Private Sub RunPivotButton_Click()
  Dim TblLenSQL As String
  TblLenSQL = "SELECT Count(dbo_Transaction_Table.Sequence_Number) AS 
  CountOfSequence_Number," _
  TblLenSQL = TblLenSQL & " From dbo_Transaction_Table"

  Dim CRDcon As ADODB.Connection
  Set TranCnt = CurrentProject.Connection
  Dim CountRS As New ADODB.Recordset
  crdRs.ActiveConnection = TranCnt
  crdRs.CursorType = adOpenStatic
  crdRs.Open TblLenSQL
End Sub

当我添加用于构建查询的第二行代码时，我得到

“预期的语句 TblLenSQL = TblLenSQL & “来自 dbo_Transaction_Table”

一些基本而琐碎的东西，但我看不到。

谢谢 jpl458

标签： ms-accessvba

解决方案

在单个语句中连接 - 使用换行符_...

TblLenSQL = "SELECT Count(dbo_Transaction_Table.Sequence_Number) AS CountOfSequence_Number," & _
            " From dbo_Transaction_Table"

...或不 - 使用多个语句...

TblLenSQL = "SELECT Count(dbo_Transaction_Table.Sequence_Number) AS CountOfSequence_Number,"
TblLenSQL = TblLenSQL & " From dbo_Transaction_Table"

......两者都没有。

您的 SQL 语句不完整 ( SELECT x, FROM y) 但您可能已经意识到这一点。

推荐阅读