title image


Smiley Export nach Excel
Hallo Access-Spezies ;)



Ich habe ein Problem in meiner Access-97-Datenbank beim Exportieren von Daten über eine SQL-Abfrage eingebaut in VBA-Code. Beim Ausführen des angefügten Quellcodes bekomm ich den Laufzeitfehler "7871" angezeigt. Damit kann ich dummerweise nur nichts anfangen :(



Meine Abfrage lautet wie folgt:



strSQL = "INSERT INTO Export ( VBNr, DBNr, Kennzeichen, Fahrzeug, [Erst-zulassung], KundenNr, Kunde, Fahrzeugpreis, Vertragstyp, Vertragsbeginn, Vertragsende, KMproJahr_Vertrag, Laufzeit_Vertrag, [Mehr-KM], [Minder-KM], KM_aktuell, Laufleistung_soll, differenz, restlaufzeit, KM_Stand, gefahrene_Tage, Laufleistung_ist, betrag, [FSL-Rate aktuell], [Gesamt-FL], [Gesamt-FL inkl km], [neue Rate], Kontrolle, Bearbeitungsdatum, KM_pro_Jahr_neu, Bemerkung )"



strSQL = strSQL & " SELECT tbl_Fahrzeuge.VBNr, tbl_Fahrzeuge.DBNr, tbl_Fahrzeuge.Kennzeichen, tbl_Fahrzeuge.Fahrzeug, tbl_Fahrzeuge.[Erst-zulassung], tbl_Fahrzeuge.KundenNr, tbl_Fahrzeuge.Kunde, tbl_Fahrzeuge.Fahrzeugpreis, tbl_Fahrzeuge.Vertragstyp, tbl_Fahrzeuge.Vertragsbeginn, tbl_Fahrzeuge.Vertragsende, tbl_Fahrzeuge.KMproJahr_Vertrag, tbl_Fahrzeuge.Laufzeit_Vertrag, tbl_Fahrzeuge.[Mehr-KM], tbl_Fahrzeuge.[Minder-KM], tbl_Fahrzeuge.KM_aktuell, [tbl_Fahrzeuge]![KMproJahr_Vertrag]*([tbl_Fahrzeuge]![Laufzeit_Vertrag]/12) AS Laufleistung_soll, [Laufleistung_ist]-[Laufleistung_soll] AS differenz, DateDiff('m',Date(),[Vertragsende]) AS restlaufzeit, tbl_Fahrzeuge.KM_Stand, DateDiff('d',[tbl_Fahrzeuge].[Vertragsbeginn],[tbl_Fahrzeuge].[KM_Stand]) AS gefahrene_Tage, ([tbl_Fahrzeuge]![KM_aktuell]/[gefahrene_Tage])*([tbl_Fahrzeuge].[Laufzeit_Vertrag]/12*365) AS Laufleistung_ist, IIf([differenz]0,IIf([differenz]-[Grenze1],"



strSQL = strSQL & " ([differenz]+[mehr_minder_grenze])*[Minder-KM],(-[Grenze1]+[mehr_minder_grenze])*[Minder-KM]),IIf([differenz]>[mehr_minder_grenze],([differenz]-[mehr_minder_grenze])*[Mehr-KM]))) AS betrag, tbl_Fahrzeuge.[FSL-Rate aktuell], [FSL-Rate aktuell]*[Laufzeit_Vertrag] AS [Gesamt-FL], IIf([betrag]"",[Gesamt-FL]+[betrag]) AS [Gesamt-FL inkl km], IIf([betrag]"",[FSL-Rate aktuell]+([betrag]/[Laufzeit_Vertrag])) AS [neue Rate], IIf([betrag]"" And [betrag] Is Not Null,[Gesamt-FL inkl km]/[Laufzeit_Vertrag]) AS Kontrolle, tbl_Fahrzeuge.Bearbeitungsdatum, [Laufleistung_ist]/([Laufzeit_Vertrag]/12) AS KM_pro_Jahr_neu, tbl_Fahrzeuge.Bemerkung"



strSQL = strSQL & " FROM tbl_Fahrzeuge LEFT JOIN tbl_Kunden ON tbl_Fahrzeuge.KundenNr = tbl_Kunden.KundenNr"



strSQL = strSQL & " WHERE (((tbl_Fahrzeuge.KundenNr) = '" & Me.cmb_Kunde.Value & "'))"



strSQL = strSQL & " ORDER BY tbl_Fahrzeuge.VBNr;"





DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel3, strSQL, dateiname









Leider bekomm ich es nicht übersichtlicher hin, diese Abfrage euch darzustellen. Es werden einige Werte über die Abfrage berrechnet. Die dafür benötigten Formeln sind etwas länger.





Für Eure Hilfe bedanke ich mich schon mal im Vorraus



Gruß Alex

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: