小编Kat*_*tie的帖子

我试图将SQL从传递查询放入VBA模块,因为查询给我带来了问题.然而,我遇到了一个问题.这是我收到的错误消息:

这是生成错误的代码部分

Sub Passthrough()

Dim strSQL As String

strSQL = "select spriden_id AS 'UIN', spriden_first_name AS 'First', spriden_last_name AS 'Last', SPBPERS_SSN AS 'SSN', pebempl_ecls_code," & _
"pebempl_term_date, pebempl_last_work_date, ftvvend_term_date," & _
"Case When sfrstcr_pidm is not null Then 'A'" & _
"When sfrstcr_pidm <> ' '" & _
"Then 'A' Else Null End AS 'StudentStatus'," & _
"spbpers_citz_code AS 'Citizenship',Null AS 'Current Student/Employee (Y/N)',  Null 'TIN Match (Y/N)'" & _

......

  DoCmd.RunSQL strSQL

End Sub