aki hay un ejemplo de como crear un archivo de texto recorriendo un recordset
Open App.Path & "\URL.txt" For Output Access Write Shared As #1
Print #1, "Archivo Creado el: " & fecha & " a las: " & hora
While Not rcs_c.EOF
id = rcs_c!id
cat = rcs_c!categoria
rcs_u.MoveFirst
Print #1, "--------------------------------------------------------------------------"
Print #1, "" & cat
Print #1, "--------------------------------------------------------------------------"
For i = 1 To totreg
If id = rcs_u!id_categoria Then
Print #1, "" & rcs_u!URL
total = total + 1
rcs_u.MoveNext
Else
rcs_u.MoveNext
End If
Next
i = 1
rcs_c.MoveNext
Wend
Print #1, "-----------------------------------------------------------------------------"
Print #1, "Total de Urls: " & total
Print #1, "-----------------------------------------------------------------------------"
Print #1, ""
Print #1, "AUTOR : Eric Goldberg"
Print #1, "MSN :
[email protected]"
Print #1, "CORREO:
[email protected]"
Print #1, ""
Print #1, "StoreUrl version: " & App.Major & "." & App.Minor & "." & App.Revision
Close #1