Microsoft Access Çalışma zamanı hatası '3075' sorgu ifadesinde

Question

lütfen, yardıma ihtiyacım olduğunda, bu hata oluştu, yardıma ihtiyacım var.

sql = sql & "Grup tarafından kişi kimliği, TitleID, KişiAdı, SuffixID, Şirket, JobTitle, posta1, Email2, Email3, WebPageAddress, IMAddress" Eğer Gerçek Me.chkExportPhone = Sonra sql = sql & ", PhoneNumber, PhoneNumberType " sonu ise Eğer Me.chkExportAddress = true Then 'sql = sql & " AddressLine1, AddressLine2, Şehir, Eyalet, Zip, AddressType" sql = sql &", AddressLine1 PostalSuburb gibi AddressLine3 olarak PostalAddress, AddressLine2 olarak StreetAddress, Banliyö gibi Şehir, Eyalet, Posta Kodu olarak Zip, AddressType " End If

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

Dim qryDef QueryDef Seti qryDef = CurrentDb.QueryDefs ("qryContactExport") qryDef.sql = sql Seti qryDef = Hiçbir şey 'DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9 gibi, "qryContactExport", " C: \ Temp \ Temp.xls" DoCmd.OutputTo acOutputQuery, "qryContactExport", acFormatXLSOutputFormat, Application.CurrentProject.Path & "\ Temp.xls" true End Sub

Görsel temel hatası bu olduğunu söylüyor satır qryDef.s ql = sql.

çok teşekkürler!

Answer 1

Tamam, (Bu çalışmayı sadece bu küçük snippet'iyle söylemek zor türüdür.) Bu sorun olduğunu düşünüyorum

aşağı bir satır işaretli tek alıntı taşıyın:

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 " 

Bu yanlış çizgiyi dışında yorumlar ve iyi bir biri ile değiştirir. GROUP BY deyimindeki AS anahtar sözcüğü soruna neden oluyor.

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