Microsoft Accessランタイムエラー '3075'クエリ式

Question

ください、私は助けが必要です、エクスポートするときにこのエラーが発生しました。 = SQL &その後 SQL」、のPhoneNumber、

SQL = SQL & "グループ化ContactID、TitleID、担当者名、SuffixID、会社、JobTitle、Email1、EMAIL2、Email3、WebPageAddress、IMAddress" Me.chkExportPhone = Trueの場合PhoneNumberType " END IF もしMe.chkExportAddress = trueの場合、 「SQL = SQL & "住所1、住所2、市、州、郵便番号、AddressTypeに" SQL = SQL &"、住所1 PostalSuburb、などAddressLine3などのPostalAddress、住所2など住所、郊外、都道府県、郵便番号、郵便番号としての住所、住所タイプ " 終了の場合

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

クエリ定義 設定qryDef = CurrentDb.QueryDefs（ "qryContactExport"） qryDef.sql = SQL 設定qryDef =何も 「DoCmd.TransferSpreadsheet acExport、acSpreadsheetTypeExcel9、 "qryContactExport"、 "として暗いqryDef C：\一時\のTemp.xls」 DoCmd.OutputTo acOutputQuery、 "qryContactExport"、acFormatXLS、Application.CurrentProject.Path & "\ Temp.xls"、真の End Subの

Visual Basicは、エラーがこれですと言っていますqryDef.s ql = sql。

ありがとう！

Answer 1

さて、私は（それはで動作するようにちょうどこの小さなスニペットを伝えるのは難しいの一種である。）これは問題だと思う

がダウンして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 " 

を

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キーワードが問題を引き起こしています。

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 " 

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