Question

拜托，我需要帮助，当我尝试导出时发生了这个错误。

sql = sql＆amp; ＆＃34;按联系人ID，TitleID，ContactName，SuffixID，公司，JobTitle，Email1，Email2，Email3，WebPageAddress，IMAddress＆＃34; 如果Me.chkExportPhone = True那么 sql = sql＆amp; ＆＃34; ，PhoneNumber，PhoneNumberType＆＃34; 万一如果Me.chkExportAddress = True那么＆＃39; sql = sql＆amp; ＆＃34; ，AddressLine1，AddressLine2，City，State，Zip，AddressType＆＃34; sql = sql＆amp; ＆＃34; ，AddressLine1为PostalAddress，AddressLine2为PostalSuburb，AddressLine3为StreetAddress，City为郊区，State，Zip为PostalCode，AddressType＆＃34; 结束如果

sql = sql & " , Classification, ClassificationCopy,ReferenceNumber, InvoiceComments,AccountComments,Status,LastContactDate,Notes "

Dim qryDef作为QueryDef 设置qryDef = CurrentDb.QueryDefs（＆＃34; qryContactExport＆＃34;） qryDef.sql = sql 设置qryDef = Nothing ＆＃39; DoCmd.TransferSpreadsheet acExport，acSpreadsheetTypeExcel9，＆＃34; qryContactExport＆＃34;，＆＃34; C：\ Temp \ Temp.xls＆＃34; DoCmd.OutputTo acOutputQuery，＆＃34; qryContactExport＆＃34;，acFormatXLS，Application.CurrentProject.Path＆amp; ＆＃34; \ Temp.xls＆＃34;，True 结束子

Visual Basic说错误就是这行qryDef.sql = sql。

非常感谢！

Answer 1

sql = sql & " Group By ContactID, TitleID, ContactName, SuffixID, Company, JobTitle, Email1, Email2, Email3, WebPageAddress, IMAddress"
    If Me.chkExportPhone = True Then
        sql = sql & " , PhoneNumber, PhoneNumberType "
    End If
    If Me.chkExportAddress = True Then
'        sql = sql & " , AddressLine1, AddressLine2, City, State, Zip, AddressType "
         sql = sql & " , AddressLine1 as PostalAddress, AddressLine2 as PostalSuburb,AddressLine3 as StreetAddress, City as Suburb, State, Zip as PostalCode, AddressType "
    End If

    sql = sql & " , Classification, ClassificationCopy,ReferenceNumber, InvoiceComments,AccountComments,Status,LastContactDate,Notes "

Dim qryDef As QueryDef
    Set qryDef = CurrentDb.QueryDefs("qryContactExport")
    qryDef.sql = sql
    Set qryDef = Nothing
    'DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "qryContactExport", "C:\Temp\Temp.xls"
    DoCmd.OutputTo acOutputQuery, "qryContactExport", acFormatXLS, Application.CurrentProject.Path & "\Temp.xls", True
End Sub

Answer 2

好的，我认为这就是问题（只需要这个小片就很难说。）

将标记的单引号向下移动一行：

sql = sql & " Group By ContactID, TitleID, ContactName, SuffixID, Company, JobTitle, Email1, Email2, Email3, WebPageAddress, IMAddress"
If Me.chkExportPhone = True Then
    sql = sql & " , PhoneNumber, PhoneNumberType "
End If
If Me.chkExportAddress = True Then
**'**        sql = sql & " , AddressLine1, AddressLine2, City, State, Zip, AddressType "
     sql = sql & " , AddressLine1 as PostalAddress, AddressLine2 as PostalSuburb,AddressLine3 as StreetAddress, City as Suburb, State, Zip as PostalCode, AddressType "
End If

sql = sql & " , Classification, ClassificationCopy,ReferenceNumber, InvoiceComments,AccountComments,Status,LastContactDate,Notes "

到

sql = sql & " Group By ContactID, TitleID, ContactName, SuffixID, Company, JobTitle, Email1, Email2, Email3, WebPageAddress, IMAddress"
If Me.chkExportPhone = True Then
    sql = sql & " , PhoneNumber, PhoneNumberType "
End If
If Me.chkExportAddress = True Then
        sql = sql & " , AddressLine1, AddressLine2, City, State, Zip, AddressType "
     ' sql = sql & " , AddressLine1 as PostalAddress, AddressLine2 as PostalSuburb,AddressLine3 as StreetAddress, City as Suburb, State, Zip as PostalCode, AddressType "
End If

sql = sql & " , Classification, ClassificationCopy,ReferenceNumber, InvoiceComments,AccountComments,Status,LastContactDate,Notes "

这会注明错误的行并用一个好的行替换它。 GROUP BY语句中的AS关键字导致了问题。

Microsoft Access运行时错误＆＃39; 3075＆＃39;在查询表达式中

2 个答案: