Wenn du das Ergebnis in jeweils einer TextDatei haben willst, gehts z.B. so (mit DAO Zugriff)
dim RS as recordset
set RS=currentdb.openrecordset("Tabelle_mit_Codes")
rs.movefirst
while not rs.eof
open "c:\Datei_" & RS!Nummer_des_Codes & ".txt" for output as #1
print#1, RS!Code
close#1
rs.movenext
wend
rs.close
Dann wuerde für jeden Code eine Datei mit der Code_Nummerierung im Dateinamen und dem Code in der Datei erzeugt werden.
Es gibt natürlich noch unzählige andere Lösungswege.. je nach Gusto
|