TXT importieren und transponieren

[DF6GL]

Hallo,

erweitere den Code wie nachstehend:

.
.
.
                Case Asc("A")
                    r("EtikAnz") = Clng(mid (sline,2))    'Tabellenfeld heißt "EtikAnz"   und hat Datentyp LONG
                  r.Update
            End Select
.
.

[ReneK]

Hallo.

Richtig. Die statischen Felder, wo nur das Layout drin steht fummel ich mir wieder in die Ausgabe, wenn ich den Weg wieder zurück nach der Bearbeitung in die Txt Ausgabe gehe.

Also, ich für meinen Teil gehe heute Lotto spielen. 
Herzlichen Dank. 100%     

Hier jetzt einmal komplett:

Code [Auswählen] Erweitern


Private Sub test2_Click()
On Error GoTo Err_test2_Click

Dim DateiName As String
Dim ZielTab As String
Dim r As DAO.Recordset
Dim AktDB As DAO.Database
Dim sline As String
Dim LU As Long

DateiName = "d:\User\DruckfileImport\test.txt"
ZielTab = "ImportTabelle_1"

Set AktDB = CurrentDb
Set r = AktDB.OpenRecordset(ZielTab)
LU = FreeFile
Open DateiName For Input As LU
            Do Until EOF(LU) = True
            Line Input #LU, sline
            Select Case Asc(Left(sline, 1))
                Case Asc("r")
                    r.AddNew
                Case Asc("R")
                    sline = Mid(sline, 3)
                   r(Split(sline, ";")(0)) = Split(sline, ";")(1)
                Case Asc("A")
                    r("A") = CLng(Mid(sline, 2))
                  r.Update
            End Select
          Loop

Exit_test2_Click:
    If Not r Is Nothing Then r.Close: Set r = Nothing
    Close LU

Exit Sub

Err_test2_Click:
    MsgBox Err.Description
    Resume Exit_test2_Click
   
End Sub