Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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, 1215 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
Microsoft Office
Laufzeitfehler 13 in Word 2013 (5)

Frage von Wild-Wolf zum Thema Microsoft Office ...

Microsoft Office
Laufzeitfehler 438 bei Word und Exel-AddIns (1)

Frage von klanax zum Thema Microsoft Office ...

PHP
Schnellste Auswahl in Objekten (1)

Frage von it4baer zum Thema PHP ...

Basic
gelöst IE im Private Mode per VBA öffnen und URL Übergeben (3)

Frage von thomas1972 zum Thema Basic ...

Neue Wissensbeiträge
Viren und Trojaner

Neues Botnetz über IoT-Geräte

Information von certifiedit.net zum Thema Viren und Trojaner ...

Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(8)

Information von thomasreischer zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Router & Routing
Externe IP von innen erreichbar machen (15)

Frage von Windows10Gegner zum Thema Router & Routing ...

Windows Installation
Windows 10 neu installieren (12)

Frage von imebro zum Thema Windows Installation ...

Windows Server
Frage zu Server Rack (11)

Frage von rainergugus zum Thema Windows Server ...