Access SQL在尝试导出到excel时输入参数值

Question

我正在尝试运行此SQL语句，然后将结果导出到excel电子表格。我在互联网上搜索了一下，发现了这个，似乎对其他用户也有用。

它运行，但要求我“输入参数值”链接到代码第4行的“selecteduser”，消息框显示在代码开始处：DoCmd。转让电子表格。如果单击“确定”，将创建excel工作表，但其中除了数据库中表格中选定列的标题外，没有任何内容。如果我在文本框中输入有效数据并按ok，则excel电子表格将创建并显示正确的数据。

我知道组合框中的选定数据已经存储，因为如果我执行消息框，它会显示组合框中的选定数据。

有人有什么想法吗？很明显，数据没有在某个地方传递，但我看不到在哪里。

Private Sub Command12_Click()
Dim strSQL As String
Dim strQry As String
Dim selecteduser As String
Dim db As DAO.Database
Dim Qdf As QueryDef

selecteduser = Me.Combo6.Column(0)

strSQL = "SELECT tblPra.praNo, tblFolder.folder, tblFolder.fullTitle FROM tblPra INNER JOIN (tblFolder INNER JOIN tblRelationship ON tblFolder.folderID = tblRelationship.folderID) ON tblPra.praID = tblRelationship.praID WHERE (((tblPra.praNo)=selecteduser));"
strQry = "tempuser"

Set db = CurrentDb
Set Qdf = db.CreateQueryDef(strQry, strSQL)

On Error Resume Next
DoCmd.DeleteObject acQuery, "strQry"

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, _
strQry, "C:\Users\prc93\Desktop\test.xls", True

DoCmd.DeleteObject acQuery, strQry

End Sub

Answer 1

查询中的selecteduser必须位于引号之外。因为它是一个字符串，所以需要用单引号括起来，比如'selecteduser'。现在，如果您在msgbox中选择查询，您应该会看到selecteduser等于列（0）。您确定selecteduser必须是字符串而不是数字，例如long？

Private Sub Command12_Click()
Dim strSQL As String
Dim strQry As String
Dim selecteduser As String
Dim db As DAO.Database
Dim Qdf As QueryDef

selecteduser = Me.Combo6.Column(0)

strSQL = "SELECT tblPra.praNo, tblFolder.folder, tblFolder.fullTitle FROM " &_ 
         "tblPra INNER JOIN (tblFolder INNER JOIN tblRelationship ON " &_
         "tblFolder.folderID = tblRelationship.folderID) ON " &_
         "tblPra.praID = tblRelationship.praID " &_
         "WHERE (((tblPra.praNo)='" & selecteduser & "'));"
strQry = "tempuser"

Set db = CurrentDb
Set Qdf = db.CreateQueryDef(strQry, strSQL)

On Error Resume Next
DoCmd.DeleteObject acQuery, "strQry"

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, _
strQry, "C:\Users\prc93\Desktop\test.xls", True

DoCmd.DeleteObject acQuery, strQry

End Sub