Top-Themen

Aktuelle Themen (A bis Z)

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, 1243 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 ..
Ähnliche Inhalte
Webentwicklung
Sharepoint Laufzeitfehler
gelöst Frage von Florian86Webentwicklung1 Kommentar

Guten Tag, ich habe seit einigen Tagen einen Laufzeitfehler beim öffnen der Sharepointseite. Unsere Konstellation: Frontendserver SQL Server auf ...

Windows Server
Laufzeitfehler 2146232800
Frage von GauschternaWindows Server

Hallo zusammen, wir haben einen "Sage-Server" auf einem Windowsserver 2008 im Einsatz. Bei den Clients kommt ab und zu ...

Windows Userverwaltung
Erforderliche Profile
gelöst Frage von 117109Windows Userverwaltung3 Kommentare

Hallo Leute, also ich habe jetzt das halbe Internet durchsucht und bin nicht schlauer als vorher. Es geht um ...

Microsoft Office
Laufzeitfehler 13 in Word 2013
Frage von Wild-WolfMicrosoft Office5 Kommentare

Hallo zusammen. Ich habe einen blöden Fehler, den ich einfach nicht wegbekomme. Wenn ich aus Outlook eine Word-Datei öffne, ...

Neue Wissensbeiträge
Tipps & Tricks

Solutio Charly Updater Fehlermeldung: Das Abgleichen der Dateien in -Pfad- mit dem Datenobject ist fehlgeschlagen

Tipp von StefanKittel vor 3 StundenTipps & Tricks

Hallo, hier einmal als Tipp für alle unter Euch die mit der Zahnarztabrechnungssoftware Charly von Solutio zu tun haben. ...

Sicherheit

Meltdown und Spectre: Wir brauchen eine "Abwrackprämie", die die CPU-Hersteller bezahlen

Information von Frank vor 3 StundenSicherheit5 Kommentare

Zum aktuellen Thema Meltdown und Spectre: Ich wünsche mir von den CPU-Herstellern wie Intel, AMD oder ARM eine Art ...

Sicherheit

Meltdown und Spectre: Realitätscheck

Information von Frank vor 4 StundenSicherheit4 Kommentare

Die unangenehme Realität Der Prozessorfehler mit seinen Varianten Meltdown und Spectre ist seit Juni 2017 bekannt. Trotzdem sind immer ...

Sicherheit

Meltdown und Spectre: Die machen uns alle was vor

Information von Frank vor 4 StundenSicherheit12 Kommentare

Aktuell sieht es in den Medien so aus, als hätten die Hersteller wie Intel, Microsoft und Co den aktuellen ...

Heiß diskutierte Inhalte
Windows 10
Netbook erkennt Soundkarte nicht - keinerlei Info zum Hersteller und Modell vom Netbook und Hardware bekannt
Frage von 92943Windows 1031 Kommentare

Guten Tag, meine Schwester reist in einigen Wochen für ein paar Monate ins Ausland und hat sich dafür ein ...

Batch & Shell
Anmeldevorgang für Informatikraum (Schule) unter Windows
gelöst Frage von IngenieursBatch & Shell29 Kommentare

Hey zusammen, ich werde in naher Zukunft den Informatik Raum meiner jetzigen Schule von dem aktuellen Betreiber übernehmen (Vertrag ...

Netzwerkgrundlagen
Welches Modem für VDSL 50000 der T-Com
Frage von Windows10GegnerNetzwerkgrundlagen19 Kommentare

Hallo, ein Kollege von mir will sich VDSL50000 von der T-Com holen, um daran einen Server zu betreiben. Ich ...

Batch & Shell
AD-Abfrage in Batchdatei und Ergebnis als Variable verarbeiten
gelöst Frage von Winfried-HHBatch & Shell19 Kommentare

Hallo in die Runde! Ich habe eine Ergänzungsfrage zu einem alten Thread von mir. Ausgangslage ist die Batchdatei, die ...