ДОСТУП VBA Ожидаемый конец - PullRequest
Новая
       8

ДОСТУП VBA Ожидаемый конец

0 голосов
/ 25 апреля 2018

Убрал форму кодирования и не имею моих справочных документов.Есть этот кусок кода.

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

Когда я добавляю вторую строку кода для построения запроса, я получаю

"Ожидаемый Ed оператора TblLenSQL = TblLenSQL &" From dbo_Transaction_Table "

Что-то простое и тривиальное, но я не вижу этого.

Спасибо jpl458

1 Ответ

0 голосов
/ 26 апреля 2018

Любое объединение в одном выражении - с использованием символа продолжения строки _ ... 

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), но вы, вероятно, знаете об этом.

...