title image


Smiley Die Lösung als VBA-Code
Public Function zerlegen()Dim rs As RecordsetDim fd As FieldDim nr, lfdnr As IntegerDim dateiname As StringAngenommen die zu zerteilende Tabelle hat den Namen DienstSet rs = CurrentDb.OpenRecordset("Dienst", dbOpenSnapshot)lfdnr = 1Do While Not rs.EOFnr = FreeFiledateiname = "A" & lfdnr & ".txt"Open dateiname For Output As #nrFor Each fd In rs.FieldsPrint #nr, fd'So wird jedes Feld in einer eigenen Zeile gespeichert'oder wenn die einzelnen Felder durch ein Trennzeichen z.B. * getrennt'werden sollen print #nr,fd & "*";NextClose nrlfdnr = lfdnr + 1rs.MoveNextLoopSet rs = NothingEnd Functionm.f.G.Walter

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: