Discussion :

[cchampion2fr]

Re,

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


Merci pour votre reponse.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[cafeine]

n'ouvre pas le fichier en binary, mais utilise plutôt un accès "OutPut"

au lieu des "Put", tu mettras "Print"

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Fic = 1
Open "D:\projets\db_dump.txt" For Output As #Fic
Print #Fic, "USE myDB;"
Print #Fic, "DELETE FROM Matable;"