Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Laufzeitfehler 424 Objekt erforderlich bei CreateQueryDef

Frage Microsoft Microsoft Office

Mitglied: thomas1972

thomas1972 (Level 1) - Jetzt verbinden

08.01.2015, aktualisiert 13:56 Uhr, 1082 Aufrufe, 3 Kommentare

Hallo,
ich versuche eine abfrage als CSV Datei zu speichern

01.
Dim user As String 
02.
Dim qd As DAO.QueryDef 
03.
 
04.
user= "SELECT Management.[Mail] FROM Managementl" 
05.
Set qd = db.CreateQueryDef("tmpExport", user) 
06.
DoCmd.TransferText acExportDelim, , "tmpExport", "c:\temp\user_export.csv" 
07.
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
Mitglied: emeriks
08.01.2015 um 13:57 Uhr
Hi,
in Deinem Code Schnippel wird "db" nicht instanziert .., Und "DoCmd" auch nicht ...

E.
Bitte warten ..
Mitglied: thomas1972
08.01.2015 um 14:08 Uhr
Hallo,
danke für die Info,
01.
Set db = CurrentDb
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
Bitte warten ..
Mitglied: colinardo
10.01.2015, aktualisiert um 11:35 Uhr
Hallo thomas1972,
ohne zusätzliche Exportspezifikation läuft das nicht mehr. Ich mache den CSV-Export immer mit einer eigenen Funktion:
01.
Function ExportAsCSV(strSQL As String, strExportPath As String, strDelim As String, exportHeaders As Boolean) 
02.
    Dim db As Database, rs As Recordset, fso As Object, objFile As Object, strLine As String, col As Field, txtQuote As String 
03.
    txtQuote = """" 
04.
    Set db = CurrentDb 
05.
    Set fso = CreateObject("Scripting.FileSystemObject") 
06.
    Set objFile = fso.OpenTextFile(strExportPath, 2, True) 
07.
    Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot, dbForwardOnly) 
08.
     
09.
    If exportHeaders And Not rs.EOF Then 
10.
        strLine = "" 
11.
        For Each col In rs.Fields 
12.
            strLine = strLine & strDelim & txtQuote & col.Name & txtQuote 
13.
        Next 
14.
        objFile.WriteLine (Mid(strLine, 2)) 
15.
    End If 
16.
    While Not rs.EOF 
17.
        strLine = "" 
18.
        For Each col In rs.Fields 
19.
            strLine = strLine & strDelim & txtQuote & col.Value & txtQuote 
20.
        Next 
21.
        objFile.WriteLine (Mid(strLine, 2)) 
22.
        rs.MoveNext 
23.
    Wend 
24.
    objFile.Close 
25.
    Set fso = Nothing 
26.
    Set db = Nothing 
27.
    Set rs = Nothing 
28.
End Function
Den Export deiner Query führst du dann folgendermaßen aus:
ExportAsCSV "SELECT Management.[Mail] FROM Managementl", "c:\temp\user_export.csv", ";", False
Grüße Uwe
Bitte warten ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Windows Server
Windows-Update für Secure-Boot-Fehler macht BIOS-Updates erforderlich (2)

Link von Penny.Cilin zum Thema Windows Server ...

Python
gelöst Python requests JSON Objekt + Bild versenden (4)

Frage von nullacht15 zum Thema Python ...

Python
gelöst PHP Skript via Python starten mit JSON Objekt als Parameter (3)

Frage von nullacht15 zum Thema Python ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (23)

Frage von patz223 zum Thema Windows Userverwaltung ...

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (19)

Frage von DavidGl zum Thema LAN, WAN, Wireless ...

Windows Netzwerk
Windows 10 RDP geht nicht (18)

Frage von Fiasko zum Thema Windows Netzwerk ...