Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Problem mit Datenexport nach Excel
zurück: Addieren von 2 Werten weiter: Problem mit Access 2003 und Win7: Fehler 429 ActiveX-Kompone Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
joes1609
Im Profil kannst Du frei den Rang ändern


Verfasst am:
14. Dez 2011, 14:22
Rufname:

Problem mit Datenexport nach Excel - Problem mit Datenexport nach Excel

Nach oben
       Version: Office 2003

Hallo Forum,
ich habe folgendes Problem.
Der Export nach Excel klappt mit den Script von Steffen0815 so wie gewünscht.

Code:
Dim rs As DAO.Recordset        ' !!Verweis auf Microsoft DAO x.x setzen !!
    Dim xlApp As Object, xlWB As Object, xlSheet As Object     ' Excel Objekte

    Set rs = CurrentDb.OpenRecordset("Abfrage1")
    rs.MoveFirst
    Set xlApp = CreateObject("Excel.Application")              ' Excel Instanz
    xlApp.Visible = True ' Sichtbar schalten
    Set xlWB = xlApp.Workbooks.Open("C:\\Tagesliste.xls")
    Set xlSheet = xlWB.Sheets("Tages-Liste ")
    xlSheet.Cells(10, 1).CopyFromRecordset rs


Da meine Abfrage aber Parameter enthält (das Datum soll in einem Textfeld eingegenen werden), bekomme ich den Laufzeitfehler "3061". Ich hab schon mal gesucht und gefunden, das in der Abfrage vor dem Parameter EVAL eingegeben werden soll. Wenn ich das mache, kommt aber den Laufzeitfehler "2482" mit dem Text "Fehlt".
Ich hoffe das ihr einen Tip für mich habt.

Vielen Dank im Voraus
Nouba
nicht ganz unwissend :)


Verfasst am:
14. Dez 2011, 20:37
Rufname:
Wohnort: Berlin


AW: Problem mit Datenexport nach Excel - AW: Problem mit Datenexport nach Excel

Nach oben
       Version: Office 2003

Hallo,

dann lerne, ein Recordset mit Parametern zu öffnen. Bei einem Parameter in Deiner Abfrage und einem Textfeld als Eingabefeld für den Parameterwert könnte das dann so aussehen.

Code:
Private Sub DeinKnopf_Click()
  '-- Deine Deklarationen
  Dim qdf As DAO.QueryDef

  Set qdf = CurrentDb().QueryDefs("Abfrage1")
  qdf(0) = Me.Textfeldname '-- oder qdf("Parametername") = ...
  Set rs = qdf.OpenRecordset
  If Not rs.EOF Then
    '-- dann weiter wie bisher
  End If
  rs.Close
End Sub

_________________
mit freundlichen Grüssen Nouba

Wenn beim Lesen eines Beitrags der Eindruck entsteht, dass sich der Fragesteller wenig Mühe gegeben hat, so erhöht das nicht unbedingt die Motivation, eine Antwort zu verfassen.
Sonneschein
AC97-Entwicklung, AC2003-2010 nur Test


Verfasst am:
14. Dez 2011, 21:03
Rufname: Mike

AW: Problem mit Datenexport nach Excel - AW: Problem mit Datenexport nach Excel

Nach oben
       Version: Office 2003

Hallo,
Zitat:
Wenn ich das mache, kommt aber den Laufzeitfehler "2482" mit dem Text "Fehlt".
Zeige bitte den dazugehörigen SQL-Code der Abfrage (inklusive deinem Eval)
_________________
Grüße
Mike
joes1609
Im Profil kannst Du frei den Rang ändern


Verfasst am:
15. Dez 2011, 00:07
Rufname:

AW: Problem mit Datenexport nach Excel - AW: Problem mit Datenexport nach Excel

Nach oben
       Version: Office 2003

Hallo,

erst mal Danke für die Antwort, komme leider erst am Freitag wieder an die Datenbank. Werde dann den Code posten.

Danke
joes1609
Im Profil kannst Du frei den Rang ändern


Verfasst am:
16. Dez 2011, 11:40
Rufname:


AW: Problem mit Datenexport nach Excel - AW: Problem mit Datenexport nach Excel

Nach oben
       Version: Office 2003

Hallo,

hier mal die Abfragen
1. ohne EVAL(Laufzeitfehler 3061)
Code:
SELECT Tabelle2.GeraeteartID, Tabelle2.Kategorie, Tabelle2.LastModifiedBy, Tabelle2.LastModified, Tabelle2.CreateDate
FROM Tabelle2
WHERE (((Tabelle2.CreateDate)=[Formulare]![Formular1]![txtvon]));

2. mit EVAL(Laufzeitfehler 2482)
Code:
SELECT Tabelle2.GeraeteartID, Tabelle2.Kategorie, Tabelle2.LastModifiedBy, Tabelle2.LastModified, Tabelle2.CreateDate
FROM Tabelle2
WHERE (((Tabelle2.CreateDate)=Eval("Formulare!Formular1!txtvon")));


Danke für die Hilfe
Nouba
nicht ganz unwissend :)


Verfasst am:
16. Dez 2011, 11:54
Rufname:
Wohnort: Berlin

AW: Problem mit Datenexport nach Excel - AW: Problem mit Datenexport nach Excel

Nach oben
       Version: Office 2003

Hallo,

dann setze qdf(0) = Me.txtVon in den Kode ein oder verwende Forms statt Formulare im Eval-Argument.

_________________
mit freundlichen Grüssen Nouba

Wenn beim Lesen eines Beitrags der Eindruck entsteht, dass sich der Fragesteller wenig Mühe gegeben hat, so erhöht das nicht unbedingt die Motivation, eine Antwort zu verfassen.
joes1609
Im Profil kannst Du frei den Rang ändern


Verfasst am:
16. Dez 2011, 14:30
Rufname:

AW: Problem mit Datenexport nach Excel - AW: Problem mit Datenexport nach Excel

Nach oben
       Version: Office 2003

Hallo,
hab ich beides probiert, kommt jeweils Laufzeitfehler 3061.
Sonneschein
AC97-Entwicklung, AC2003-2010 nur Test


Verfasst am:
16. Dez 2011, 14:39
Rufname: Mike

AW: Problem mit Datenexport nach Excel - AW: Problem mit Datenexport nach Excel

Nach oben
       Version: Office 2003

Hallo,
funktioniert die Eval()-Variante, wenn du die Abfrage direkt öffnest?

_________________
Grüße
Mike
MissPh!
Office-VBA-Programmiererin


Verfasst am:
16. Dez 2011, 15:04
Rufname:
Wohnort: NRW

AW: Problem mit Datenexport nach Excel - AW: Problem mit Datenexport nach Excel

Nach oben
       Version: Office 2003

Hallo,

entscheidend ist die Änderung von Formulare in Forms bei der 2. Variante mit Eval. Hast du auch das ausprobiert?

Und warum setzt du die von Nouba vorgeschlagene Lösung nicht ein? Zeige bitte den Code dazu, wie du das umgesetzt hast.

Und zu guter letzt:
Formular namens Formular1 ist geöffnet, enthält ein Textfeld namens txtvon, welches ein gültiges Datum enthält?
Dann wird es wohl an der Formatierung liegen, versuche folgendes:
Code:
SELECT Tabelle2.GeraeteartID, Tabelle2.Kategorie, Tabelle2.LastModifiedBy, Tabelle2.LastModified, Tabelle2.CreateDate
FROM Tabelle2
WHERE (((Tabelle2.CreateDate)=Int(Eval("Forms!Formular1!txtvon"))));
falls du dich nicht doch noch mit der QueryDef-Lösung anfreunden kannst. Wink
_________________
Gruß MissPh!
joes1609
Im Profil kannst Du frei den Rang ändern


Verfasst am:
16. Dez 2011, 18:13
Rufname:


Re: AW: Problem mit Datenexport nach Excel - Re: AW: Problem mit Datenexport nach Excel

Nach oben
       Version: Office 2003

Hallo, das ändern von Formular in Forms hat das gewünschte Ergebnis gebracht.

Nochmal vielen Dank an alle die geholfen haben.

MissPh! - 16. Dez 2011, 14:04 hat folgendes geschrieben:
Hallo,

entscheidend ist die Änderung von Formulare in Forms bei der 2. Variante mit Eval. Hast du auch das ausprobiert?

Und warum setzt du die von Nouba vorgeschlagene Lösung nicht ein? Zeige bitte den Code dazu, wie du das umgesetzt hast.

Und zu guter letzt:
Formular namens Formular1 ist geöffnet, enthält ein Textfeld namens txtvon, welches ein gültiges Datum enthält?
Dann wird es wohl an der Formatierung liegen, versuche folgendes:
Code:
SELECT Tabelle2.GeraeteartID, Tabelle2.Kategorie, Tabelle2.LastModifiedBy, Tabelle2.LastModified, Tabelle2.CreateDate
FROM Tabelle2
WHERE (((Tabelle2.CreateDate)=Int(Eval("Forms!Formular1!txtvon"))));
falls du dich nicht doch noch mit der QueryDef-Lösung anfreunden kannst. Wink
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Programmierung / VBA: Datenexport aus Access in eine Excel-Vorlage {Nachgefragt} 7 Feeko 549 16. Dez 2013, 13:58
Thompsen00 Datenexport aus Access in eine Excel-Vorlage {Nachgefragt}
Keine neuen Beiträge Access Hilfe: Access Datenexport nach Excel Zwischenablage nur 65000 Daten 2 Bob60 1620 13. Dez 2013, 11:31
Prinzkarneval Access Datenexport nach Excel Zwischenablage nur 65000 Daten
Keine neuen Beiträge Access Programmierung / VBA: VBA Datenexport ins Excel INKLUSIVE FORMATIERUNG 0 Eisermann02 298 10. Jun 2013, 07:05
Eisermann02 VBA Datenexport ins Excel INKLUSIVE FORMATIERUNG
Keine neuen Beiträge Access Tipps & Tricks: Datenexport aus Access in eine Excel-Vorlage 2 astern 10646 26. Mai 2013, 10:58
Willi Wipp Datenexport aus Access in eine Excel-Vorlage
Keine neuen Beiträge Access Programmierung / VBA: Datenexport über DoCmd.TransferText Feldtrennzeichen falsch 1 Siljen 334 16. Mai 2013, 09:46
KlausMz Datenexport über DoCmd.TransferText Feldtrennzeichen falsch
Keine neuen Beiträge Access Programmierung / VBA: Datenexport von Access nach Excel 4 seppk1984 264 16. Sep 2011, 20:58
seppk1984 Datenexport von Access nach Excel
Keine neuen Beiträge Access Programmierung / VBA: Problem Datenexport nach excel 6 Gordonsky 589 24. Feb 2011, 07:15
Gordonsky Problem Datenexport nach excel
Keine neuen Beiträge Access Programmierung / VBA: Problem mit datenexport nach excel 2 Gast 478 13. Jul 2010, 08:39
Gast Problem mit datenexport nach excel
Keine neuen Beiträge Access Tabellen & Abfragen: Problem mit Datenexport aus Access 5 webrus 1726 02. Jan 2010, 15:43
steffen0815 Problem mit Datenexport aus Access
Keine neuen Beiträge Access Programmierung / VBA: Datenexport Access - Excel 18 Robertxx 1855 09. Dez 2009, 10:12
Ropbertxx Datenexport Access - Excel
Keine neuen Beiträge Access Hilfe: Laufzeitfehler 2306 beim Datenexport nach Excel 6 Lobby 2842 30. Jan 2008, 17:56
SGast Laufzeitfehler 2306 beim Datenexport nach Excel
Keine neuen Beiträge Access Programmierung / VBA: Datenexport in txt-Datei mit Zusatzzeile (Information) 2 Azraelevilgod 794 19. Nov 2007, 15:49
Azraelevilgod Datenexport in txt-Datei mit Zusatzzeile (Information)
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen