Hallo alle zusammen!
Ich habe folgendes Problem:
Ich schreibe eine Funktion, die mir die Daten aus einer txt Datei in Access überträgt.
Nur passiert es manchmal, dass par Fehler auftretten. Wenn ich das in Access durch import ausprobiere,wird
eine Importfehlertabelle erstellt (mit Zeile und Feldnummer). Die Frage ist, was soll ich in VBA Code
schreiben, um so eine Importfehlertabelle auch erstellt zu bekommen, wenn ich mein Modul ausführe.
Hier ist den Code:
Ich habe folgendes Problem:
Ich schreibe eine Funktion, die mir die Daten aus einer txt Datei in Access überträgt.
Nur passiert es manchmal, dass par Fehler auftretten. Wenn ich das in Access durch import ausprobiere,wird
eine Importfehlertabelle erstellt (mit Zeile und Feldnummer). Die Frage ist, was soll ich in VBA Code
schreiben, um so eine Importfehlertabelle auch erstellt zu bekommen, wenn ich mein Modul ausführe.
Hier ist den Code:
Visual Basic-Quellcode
- Function Rohdaten_einlesen()
- On Error GoTo Rohdaten_einlesen_Err
- Dim Quellverzeichnis As String
- Dim Archivverzeichnis As String
- Dim lngZeile As Long
- Dim lngFeld As Long
- Quellverzeichnis = "I...."
- "
- FN$ = Dir$(Quellverzeichnis & "Datei")
- While FN$ <> ""
- DoCmd.TransferText acImportDelim, "", "Rohdaten", Quellverzeichnis & FN$, False, ""
- FN$ = Dir$()
- Wend
- Rohdaten_einlesen_Exit:
- Exit Function
- Rohdaten_einlesen_Err:
- MsgBox CStr(Err) & vbTab & Err.Description //Hier muss etwas rein...
- Resume Rohdaten_einlesen_Exit
- End Function