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
Please also mark the comments that contributed to the solution of the article
Content-Key: 259190
Url: https://administrator.de/contentid/259190
Printed on: April 26, 2024 at 13:04 o'clock
3 Comments
Latest comment
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 Function
ExportAsCSV "SELECT Management.[Mail] FROM Managementl", "c:\temp\user_export.csv", ";", False