Saut de ligne dans mon fichier?

Re,

Comment puis je sauter une ligne pour chaque enregistrement trouvé dans ma table?

Merci pour votre reponse.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Function CreeFichier()
Dim T As DAO.Recordset, m As String
Dim L As Long
 
'Ouverture table
  Set T = CurrentDb.OpenRecordset("CréationPEC")
 
' Emplacement du fichier texte créé
 
  Open Forms!import_export!chemin For Binary As #1
 
  L = 1
  Do Until T.EOF
 
'Liste des champs formatés de la table
m = T!code_appli & Space(3 - Len(Trim(T!code_appli))) & ";" & T!etab & Space(3 - Len(Trim(T!etab))) & ";" & T!code_ope & Space(7 - Len(Trim(T!code_ope))) & ";" & Format(T!Date_valeur, "ddmmyyyy") & ";" & T!service & Space(3 - Len(Trim(T!service))) & ";" & T!Section & ";" 
 
    Put #1, L, m
 
    L = L + Len(m)
    T.MoveNext
  Loop
 
  Close #1
  T.Close
 
End Function