Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
TransferSpreadsheet - Fehlerbehandlung
zurück: Excel Datei aus Access formatieren weiter: dbUseJet - DSN übergeben!! 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
byteline
Im Profil kannst Du frei den Rang ändern


Verfasst am:
20. Sep 2007, 08:00
Rufname:

TransferSpreadsheet - Fehlerbehandlung - TransferSpreadsheet - Fehlerbehandlung

Nach oben
       Version: Office XP (2002)

Hallo Miteinander,
über eine verknüpfte Exceltabelle füge ich deren Daten (mittels Anfügeabfrage) Daten in meine temp. Accesstabelle zur Weiterverarbeitung ein. So weit so gut.

Wie kann ich aber abfangen, Fehlermeldung "Importierte Datei entspricht nicht der vorgebenen Vorlage" reicht, wenn der User die Excelvorlage in den Überschriften verändert hat.

Mein bisheriger Code:
Code:
    'Verknüpfung zu Exceltabelle: "Bestandsdatenpflege" löschen
    DoCmd.DeleteObject acTable, "Bestandsdatenpflege"
    'Verknüpfung zu Exceltabelle: "Bestandsdatenpflege" erstellen
    DoCmd.TransferSpreadsheet acLink, , "Bestandsdatenpflege", Dateiname, True
    'alte DS aus Tabelle:"tblBestandsdatenpflege" löschen
    CurrentDb.Execute "DELETE FROM tblBestandsdatenpflege"
    'neue DS in Tabelle:"tblBestandsdatenpflege" eintragen
    SQL = "INSERT INTO tblBestandsdatenpflege " & _
               "( Besitzgesellschaft, Regionalbereich, ProjektName, " & _
                 "[WohnObjectNummer(Mietobjektnummer)], Anschrift, Lage, " & _
                 "Fläche, [Leerstand(J/N)], HinterlegteNettokaltmiete, " & _
                 "LeistungFestellung, ModBeginn, ModEnde, AbnahmeSOLL, " & _
                 "AbnahmeIST, PrognoseBaukostenBrutto, BaukostenIST, " & _
                 "BaukostenKorrigiert, PrognoseBaukostenJahresende, " & _
                 "CapexID, Bemerkung, ProjectnameID, Liste ) " & _
          "SELECT Besitzgesellschaft, Regionalbereich, ProjektName, " & _
                 "[WohnObjectNummer(Mietobjektnummer)], Anschrift, Lage, " & _
                 "Fläche, [Leerstand(J/N)], HinterlegteNettokaltmiete, " & _
                 "LeistungFestellung, ModBeginn, ModEnde, AbnahmeSOLL, " & _
                 "AbnahmeIST, PrognoseBaukostenBrutto, BaukostenIST, " & _
                 "BaukostenKorrigiert, PrognoseBaukostenJahresende, " & _
                 "CapexID, Bemerkung, ProjectnameID, Liste " & _
            "FROM Bestandsdatenpflege;"
    CurrentDb.Execute SQL
Danke für die Hilfe.
Viele Grüße
byteline
SGast
Gast


Verfasst am:
20. Sep 2007, 08:13
Rufname:


AW: TransferSpreadsheet - Fehlerbehandlung - AW: TransferSpreadsheet - Fehlerbehandlung

Nach oben
       Version: Office XP (2002)

Hallo,
Zitat:
Wie kann ich aber abfangen, Fehlermeldung "Importierte Datei entspricht nicht der vorgebenen Vorlage" reicht, wenn der User die Excelvorlage in den Überschriften verändert hat.
Ich kann mir nicht vorstellen, wann und bei welchem Befehl diese Fehlermeldung kommt. Rolling Eyes

Gruß Steffen
byteline
Im Profil kannst Du frei den Rang ändern


Verfasst am:
20. Sep 2007, 08:20
Rufname:

AW: TransferSpreadsheet - Fehlerbehandlung - AW: TransferSpreadsheet - Fehlerbehandlung

Nach oben
       Version: Office XP (2002)

Hallo Steffen,

die Fehlermeldung ist keine aus Access generierte Meldung, sondern nur ein Beispiel von mir.
Ich wollte abfangen, wenn der User die Exceltabelle verändert. Z.B. Spaltennamen ändert, Spalten löscht und dergleichen.
Weiß aber leider nicht wie. Sad

Viele Grüße
byteline
SGast
Gast


Verfasst am:
20. Sep 2007, 09:52
Rufname:

AW: TransferSpreadsheet - Fehlerbehandlung - AW: TransferSpreadsheet - Fehlerbehandlung

Nach oben
       Version: Office XP (2002)

Hallo,
am einfachsten ist die Nutzung der Accesseigenen Fehlerbehandlung
Code:
On Error GoTo Fehler
    CurrentDb.Execute "DeineAbfrage", dbFailOnError
Fehler:
    MsgBox "FEHLER :" & Err.Number & ":" & Err.Description

Gruß Steffen
byteline
Im Profil kannst Du frei den Rang ändern


Verfasst am:
20. Sep 2007, 10:08
Rufname:


AW: TransferSpreadsheet - Fehlerbehandlung - AW: TransferSpreadsheet - Fehlerbehandlung

Nach oben
       Version: Office XP (2002)

Danke,

hab es jetzt so gemacht, fand eine eigene Fehlerbeschreibung passender.Wink
(Variablen sind global definiert)
Code:
Sub ExcelImportErsterfassungWEBestandsdaten(Dateiname)
On Error GoTo ExcelImportErsterfassungWEBestandsdaten_Error
    'Verknüpfung zu Exceltabelle: "Ersterfassung WE" löschen
    DoCmd.DeleteObject acTable, "Ersterfassung WE"
    'Verknüpfung zu Exceltabelle: "Ersterfassung WE" erstellen
    DoCmd.TransferSpreadsheet acLink, , "Ersterfassung WE", Dateiname, True
    'alte DS aus Tabelle:"tblWEErsterfassung" löschen
    CurrentDb.Execute "DELETE FROM tblWEErsterfassung"
    'neue DS in Tabelle:"tblWEErsterfassung" eintragen
    SQL = "INSERT INTO tblBestandsdatenpflege " & _
               "( Besitzgesellschaft, Regionalbereich, ProjektName, " & _
                 "[WohnObjectNummer(Mietobjektnummer)], Anschrift, Lage, " & _
                 "Fläche, [Leerstand(J/N)], HinterlegteNettokaltmiete, " & _
                 "LeistungFestellung, ModBeginn, ModEnde, AbnahmeSOLL, " & _
                 "AbnahmeIST, PrognoseBaukostenBrutto, BaukostenIST, " & _
                 "BaukostenKorrigiert, PrognoseBaukostenJahresende, " & _
                 "CapexID, Bemerkung, ProjectnameID, Liste ) " & _
          "SELECT Besitzgesellschaft, Regionalbereich, ProjektName, " & _
                 "[WohnObjectNummer(Mietobjektnummer)], Anschrift, Lage, " & _
                 "Fläche, [Leerstand(J/N)], HinterlegteNettokaltmiete, " & _
                 "LeistungFestellung, ModBeginn, ModEnde, AbnahmeSOLL, " & _
                 "AbnahmeIST, PrognoseBaukostenBrutto, BaukostenIST, " & _
                 "BaukostenKorrigiert, PrognoseBaukostenJahresende, " & _
                 "CapexID, Bemerkung, ProjectnameID, Liste " & _
            "FROM Bestandsdatenpflege;"
    CurrentDb.Execute SQL
Exit_ExcelImportErsterfassungWEBestandsdaten:
    Exit Sub
ExcelImportErsterfassungWEBestandsdaten_Error:
    If (Err <> 0) Then
        MsgBox "Importierte Datei entspricht nicht der vorgebenen " & _
               "Vorlage!" & vbNewLine & "Bitte Exceldatei manuell " & _
               "überprüfen!", vbCritical, "Import fehlgeschlagen"
        Exit Sub
        Resume Exit_ExcelImportErsterfassungWEBestandsdaten
    End If
End Sub

Viele Grüße
byteline
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: Fehlerbehandlung in Modul 3 der kleine Freiburger 113 26. Jan 2014, 16:35
der kleine Freiburger Fehlerbehandlung in Modul
Keine neuen Beiträge Access Programmierung / VBA: Fehlerbehandlung Recordset Laufzeitfehler 91 6 Zauberbaecker 494 04. Jun 2012, 19:05
MissPh! Fehlerbehandlung Recordset Laufzeitfehler 91
Keine neuen Beiträge Access Programmierung / VBA: Fehlerbehandlung in Formulare 8 Herbert40 494 22. Feb 2012, 15:51
Gast Fehlerbehandlung in Formulare
Keine neuen Beiträge Access Tabellen & Abfragen: Transferspreadsheet bestimmte Register einlesen 12 shorty111 496 10. Feb 2012, 21:39
MissPh! Transferspreadsheet bestimmte Register einlesen
Keine neuen Beiträge Access Programmierung / VBA: Filedialog und transferspreadsheet 2 Jottwd 790 26. Sep 2011, 15:39
Jottwd Filedialog und transferspreadsheet
Keine neuen Beiträge Access Programmierung / VBA: TransferSpreadsheet - acExport in bestehende Tabelle 1 cheeZy 2731 04. Feb 2009, 15:57
Gast TransferSpreadsheet - acExport in bestehende Tabelle
Keine neuen Beiträge Access Tabellen & Abfragen: TransferSpreadsheet acimport an Tabelle anfügen 0 djanna 1311 21. Jan 2009, 10:09
djanna TransferSpreadsheet acimport an Tabelle anfügen
Keine neuen Beiträge Access Programmierung / VBA: Problem: TransferSpreadsheet und Null-Werte. Für Experten ;- 2 derFuxx 383 18. Okt 2008, 19:41
derFuxx Problem: TransferSpreadsheet und Null-Werte. Für Experten ;-
Keine neuen Beiträge Access Programmierung / VBA: cmd.transferspreadsheet 1 alv98g 704 11. Jun 2008, 11:28
NichtTerminal cmd.transferspreadsheet
Keine neuen Beiträge Access Programmierung / VBA: TransferSpreadsheet , um aktuelle Ansicht zu exportieren 0 Gast 2408 13. März 2008, 10:51
Gast TransferSpreadsheet , um aktuelle Ansicht zu exportieren
Keine neuen Beiträge Access Programmierung / VBA: DoCmd.TransferSpreadsheet Pfad hat leerzeichen :-( 0 lara_to 793 06. März 2008, 11:06
lara_to DoCmd.TransferSpreadsheet Pfad hat leerzeichen :-(
Keine neuen Beiträge Access Formulare: fehlerbehandlung 3 Tom07 482 22. Nov 2007, 23:24
Nouba fehlerbehandlung
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft-Excel Diagramme