title image


Smiley Du kannst ja mal folgendes versuchen....
Erstelle eine Tabelle mit dem Namen 'tbl_FeldNamen'.

Und erfasse dort die Exportnamen und Deine FeldNamen.

Das sollte nun so aussehen:

ExpFeldTblFeldsalutationBegruessungAnredecompany_nameFirmenNamenameKundenName

Natürlich etwas länger, da Du mehr Felder hast. So bist Du auch flexibel: kannst die Felder über die Tabelle definieren und brauchst im Code nichts ändern...





Nun versuche mal folgenden Code:

Ich hoffe ich habe Dich richtig verstanden.



Dim Tmp As String, rs As DAO.Recordset, DB As DAO.Database

Dim fldNamen() As String, str As String, i As Long, xi As Long



  Set DB = CurrentDb

  str = "Select ExpFeld, TblFeld FROM tbl_FeldNamen"

  Set rs = DB.OpenRecordset(str, dbOpenSnapshot)

  If Not rs.EOF Then

    rs.MoveLast

    rs.MoveFirst

    ReDim fldNamen(rs.RecordCount - 1, 1)

    For i = 0 To rs.RecordCount - 1

      fldNamen(i, 0) = rs(0)

      fldNamen(i, 1) = rs(1)

      rs.MoveNext

    Next i

  End If

  rs.Close

  Set rs = DB.OpenRecordset("DeineTabelle", dbOpenDynaset)

  Open "C:\Temp\Export.txt" For Input As #1

  rs.AddNew

  Do While Not EOF(1)

    Line Input #1, Tmp

    i = InStr(Tmp, "=")

    If i > 0 And Len(Tmp) > i Then

      str = Left(Tmp, i - 1)

      For xi = LBound(fldNamen) To UBound(fldNamen)

        If fldNamen(xi, 0) = str Then

          rs.Fields(fldNamen(xi, 1)) = Mid(Tmp, i + 1)

        End If

      Next xi

    End If

  Loop

  rs.Update

  Close #1

  rs.Close

End Sub









Natürlich gibts da noch einige andere Möglichkeiten, aber so genau hast Du Deine Voraussetzungen auch nicht geschildert.

Deswegen der Code auch für DAO - Bei Accessversion >= 2k mußt Du noch den Verweis auf DAO 3.6 setzen.



Das sollte soweit erstmal funktionieren. Bei bestimmten Konstellationen könnte es noch Probleme geben, das müßte man im Code noch einbauen - Aber Du willst ja auch noch was zu tun haben ;o)





Gruß Carsten


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: