在VBA中创建SQL字符串

Question

我试图将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

Answer 1

这是评估字符串的间距问题.您可以在错误消息中看到它正在尝试运行sql" ... Then 'A'When sfrstcr_pidm <> ' 'Then 'A'...在'A'和下一个When语句或''和下一个Then语句之间没有空格只需在字符串末尾添加一个空格即可将它分成新的线条.

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)' " & _

......


End Sub