Hallo Wissende,
ich stehe hier kurz vorm "Wahnsinnigwerden", weil ich einen Fehler nicht finde. Ich will das Ergebnis einer Abfrage (hier: nur schematisch SELECT * FROM Tabelle ) in eine csv-Datei ausgeben. In einem anderen Programm, was ich vor einiger Zeit geschrieben habe, klappt das prima. Aber jetzt nicht, obwohl ich das Schema genau befolge und das auch der Hilfe entspricht, die ich bisher im Internet gesehen habe. Konkret, auf das Problem reduziert, habe ich den Code
Dim objExport As QueryDef
With CurrentDb
Set objExport = .CreateQueryDef("tmpTabelle", "SELECT * FROM Tabelle")
DoCmd.TransferText acExportDelim, "Export", "tmpTabelle", Left(.Name, InStrRev(.Name, "\")) & "ausgabe.csv", True
End With
Das Set funktioniert dabei tadellos, die tmpTabelle wird erstellt. Beim Transfertext bekomme ich jedoch stets die Fehlermeldung 3011 (Das Datenbankmodul konnte das Objekt 'ausgabe.csv' nicht finden. Stellen Sie sicher...) Ich habe keine Ahnung, was "er" damit meint, denn ausgabe.csv soll nichts in der DB sein, sondern der Filename der Ausgabe. Komischerweise funktioniert es exakt in diesem Aufbau in der anderen Anwendung tadellos.
Ich habe auch die komplizierte Ausgabe oben mit dem Left genommen, um sicherzustellen, dass ich keinen Tippfehler habe - er soll mir die csv-Datei neben die Datenbank stellen, der Pfad ist also sicher richtig. (Ich habs auch mit einer Volleingabe probiert, dasselbe Ergebnis).
Der Vollständigkeit halber: Die Spezifikation "Export" besteht und ist auch im oberen Teil genau so aufgebaut wie in dem Muster, wo es funktioniert.
Wo habe ich was übersehen?
Vielen Dank im voraus
Hans-Jürgen
Selbstedit:
Ich hab den Fehler gefunden. Leider war die Fehlermeldung irreführend, es hatte mit der auszugebenden Datei nichts zu tun. Konkret: Es reichte ein Tippfehler in der Feldbezeichnung in der Export-Spezifizierung. Daher klappte der erste Schritt (Erstellung der temporären Datei) aber für den zweiten Schritt stimmten die Feldnamen nicht mit der Spezi überein.