VBA loop

Af og til kan man jo stirre sig blind.  :O)

Din løkke løber jo bare felterne igennem. Du mangler vist en Write-fætter inden i løkken.

Ja og hvorfor opfinde hjulet igen?
Der findes udmærkede indbyggede funktioner til at eksportere data direkte fra en query til en tekstfil :-)

skal der både være en write_line i begge løkker?

Prøver at vise et forslag til koden; men det er godt nok bøvlet at skrive. ekspertens editor og Win 7 spiller altså ikke så godt sammen. Cursoren forsvinder hele tiden, suk!

>>>hugo: Vi er helt enige; men for begyndere kan det være lærerigt at kravle før man går. ;o)

----------------

Function print_file()

Dim write_line As String, answer As VbMsgBoxResult, okay As Variant, fine As Variant, whatever As Variant, ok As Variant
Dim db As Database, rs As Recordset, tabel As TableDef, snumber As String,
Dim felt_nr As Integer, felt_antal As Double, raekke_antal As Integer
Dim file_nm As String
Set db = CurrentDb

file_nm = "C:\test.txt"


'Open file for output
Open file_nm For Output As #1


Set rs = db.OpenRecordset("qQueryName", dbOpenDynaset, dbReadOnly)


rs.MoveFirst

okay = False

felt_antal = rs.Fields.Count

   
    Do Until rs.EOF
        felt_nr = 0
        Do Until felt_nr = felt_antal
          write_line = rs.Fields(felt_nr).Value             
          Print #1, write_line; ";";
          felt_nr = felt_nr + 1
        Loop   
        Print #1            ' Print record to file.
        rs.MoveNext
    Loop
   
Close #1
rs.Close

End Function

Tak for hjælpen :-)
Jeg havde fået det til at fungerer, da jeg gav point for dit svar..
Men jeg sætter pris på koden.

Alt i orden. Takker for point ;O)