3
Laufzeitfehler 424 Objekt erforderlich bei CreateQueryDef
Hallo,
ich versuche eine abfrage als CSV Datei zu speichern
Bei der Zeile Set qd = db.CreateQueryDef("tmpExport", user)
erhalte ich einen Laufzeitfehler 424 Objekt erforderlich.
Kann mir dieses nicht erklären
Grüße aus München
ich versuche eine abfrage als CSV Datei zu speichern
Dim user As String
Dim qd As DAO.QueryDef
user= "SELECT Management.[Mail] FROM Managementl"
Set qd = db.CreateQueryDef("tmpExport", user)
DoCmd.TransferText acExportDelim, , "tmpExport", "c:\temp\user_export.csv"
db.QueryDefs.Delete "tmpExport" Bei der Zeile Set qd = db.CreateQueryDef("tmpExport", user)
erhalte ich einen Laufzeitfehler 424 Objekt erforderlich.
Kann mir dieses nicht erklären
Grüße aus München
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 259190
Url: https://administrator.de/forum/laufzeitfehler-424-objekt-erforderlich-bei-createquerydef-259190.html
Ausgedruckt am: 06.04.2025 um 16:04 Uhr
3 Kommentare
Neuester Kommentar
Hi,
in Deinem Code Schnippel wird "db" nicht instanziert .., Und "DoCmd" auch nicht ...
E.
in Deinem Code Schnippel wird "db" nicht instanziert .., Und "DoCmd" auch nicht ...
E.
Hallo,
danke für die Info,
wars gewesen, soweit, nur ergibt der export nun einen Fehler 3441 -> Das Feldtrennzeichen für die angegebene Textdatei entspricht dem Dezimaltrennzeichen oder Texttrennzeichen
Wie kann ich einen export vornehmen ohne extra eine Spezifikationsdatei vorgeben zu müssen
Die werte sollen als ";" getrennt ausgegeben werden
danke für die Info,
Set db = CurrentDbWie kann ich einen export vornehmen ohne extra eine Spezifikationsdatei vorgeben zu müssen
Die werte sollen als ";" getrennt ausgegeben werden
Hallo thomas1972,
ohne zusätzliche Exportspezifikation läuft das nicht mehr. Ich mache den CSV-Export immer mit einer eigenen Funktion:
Den Export deiner Query führst du dann folgendermaßen aus:
Grüße Uwe
ohne zusätzliche Exportspezifikation läuft das nicht mehr. Ich mache den CSV-Export immer mit einer eigenen Funktion:
Function ExportAsCSV(strSQL As String, strExportPath As String, strDelim As String, exportHeaders As Boolean)
Dim db As Database, rs As Recordset, fso As Object, objFile As Object, strLine As String, col As Field, txtQuote As String
txtQuote = """"
Set db = CurrentDb
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFile = fso.OpenTextFile(strExportPath, 2, True)
Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot, dbForwardOnly)
If exportHeaders And Not rs.EOF Then
strLine = ""
For Each col In rs.Fields
strLine = strLine & strDelim & txtQuote & col.Name & txtQuote
Next
objFile.WriteLine (Mid(strLine, 2))
End If
While Not rs.EOF
strLine = ""
For Each col In rs.Fields
strLine = strLine & strDelim & txtQuote & col.Value & txtQuote
Next
objFile.WriteLine (Mid(strLine, 2))
rs.MoveNext
Wend
objFile.Close
Set fso = Nothing
Set db = Nothing
Set rs = Nothing
End FunctionExportAsCSV "SELECT Management.[Mail] FROM Managementl", "c:\temp\user_export.csv", ";", False
