Re: AC2000 - Tabellenproblem

Wenn deine Ausgangsdatei mit Tabs getrennt ist, geht das etwa so (DAO):


Dim S, Lin As String, Tmp As String, _
  RSM As DAO.Recordset, RSC As DAO.Recordset, Merk As Long

  On Error Resume Next
  CurrentDb.Execute "DROP Table tblChef"
  CurrentDb.Execute "DROP Table tblMitgl"
  On Error GoTo 0
  CurrentDb.Execute "CREATE Table tblChef (ID Long,ChefName Text(50))"
  CurrentDb.Execute "CREATE Table tblMitgl (Num Long, IDChef Long, Menge Long, Wert Currency)"
  Set RSC = CurrentDb.OpenRecordset("tblChef", dbopendynaset)
  Set RSM = CurrentDb.OpenRecordset("tblMitgl", dbopendynaset)
  Open "C:\temp\ttt.txt" For Input As #1
  Line Input #1, Lin
  Do Until EOF(1)
    Line Input #1, Lin
    S = Split(Lin, Chr(9))
    If UBound(S) > 0 Then
      If Trim(S(1)) = "CHEF" Then
        RSC.Addnew
        Merk = Val(S(2))
        RSC!ID = merk
        Tmp = Trim(S(3))
        If Tmp  "" Then RSC!Chefname = Tmp
        RSC.UpDate
      Else
        RSM.AddNew
        RSM!IDChef = Merk
        RSM!Num = Val(S(2))
        RSM!Menge = Val(S(3))
        RSM!Wert = Val(S(4))
        RSM.UpDate
      End If
    End If
  Loop
  Close #1
  RSC.Close
  RSM.Close

Gruß aus dem Norden
Reinhard Kraasch (http://www.kraasch.de - Access Tipps & Tricks)