ECRIRE DANS FICHIER TXT

3stone

13/08/2005 à 14:11

Salut,

"lou"
| dans un fichier txt existant ex :(toto.txt)
|
| je voudrais envoyer le contenu d'une table acces
|
| 1) la premiere fois le fichier est vide(j envoi les données)
| 2)la deuxieme fois je voudrais envoyer le contenu de cette meme table mais
| (dont le contenu a ete mis a jour) sans ecraser le données que contiens déjà
| le fichier txt
| (les metre a la suite )comment proceder ?

Regarde ceci :
http://users.skynet.be/accesshome/ah_fichiers_generertxt.htm

--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw

lou

13/08/2005 à 15:06

sorry je n arrive pas a le faire fonctionner
un peux d"aide svp
tout ce que je peux dire c'est que le chemin de mon fichier txt est
""C:Documents and SettingslouMes documentsCUSTOMER.txt"
et le nom de la table qui contiens le données s'appelle
"STOCKtvaDM"

merci pour l aide

"3stone" a écrit dans le message de news:

Salut,

"lou"
| dans un fichier txt existant ex :(toto.txt)
|
| je voudrais envoyer le contenu d'une table acces
|
| 1) la premiere fois le fichier est vide(j envoi les données)
| 2)la deuxieme fois je voudrais envoyer le contenu de cette meme table
mais

| (dont le contenu a ete mis a jour) sans ecraser le données que contiens
déjà

| le fichier txt
| (les metre a la suite )comment proceder ?

Regarde ceci :
http://users.skynet.be/accesshome/ah_fichiers_generertxt.htm

--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw

3stone

13/08/2005 à 16:03

Salut,

"lou"
| sorry je n arrive pas a le faire fonctionner

mais tu sais lire ? ;-)

| tout ce que je peux dire c'est que le chemin de mon fichier txt est
| ""C:Documents and SettingslouMes documentsCUSTOMER.txt"
| et le nom de la table qui contiens le données s'appelle
| "STOCKtvaDM"

Et bien, tu colle la fonction dans un module général (onglet module)
et tu le sauve sous le nom "mod_GenerateurTexte" par exemple.

Ensuite, tu l'utilise comme indiqué !

--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw

lou

13/08/2005 à 17:07

oui je sais lire pas de probleme

mais de toutes façons il y a un bug dans le code

le message indique ;
nombre d arguments incorrect ou affectation de proprieté incorrect

dans ligne
Rst.MoveNext TxtLine = ""

Sub GenerateTXT(strItem As String, strPath As String)
Dim strFile As String
Dim StrHeadFile As String

Dim Dbs As DAO.Database
Dim Rst As DAO.Recordset
Dim Fld As DAO.Field
Dim TxtLine As String
Dim Fichier As Integer

Const Separ = vbTab 'séparateur
Const IdVal = Null 'délimiteur

StrHeadFile = "Ligne d'Entete 1" & vbCrLf & "Ligne d'Entête 2"

strFile = strPath & "" & strItem & "_" & _
DCount("*", strItem) & ".txt"

Set Dbs = CurrentDb
Set Rst = Dbs.OpenRecordset(strItem)
Fichier = FreeFile()

Open strFile For Output As #Fichier
'Pour ajouter à un fichier, utiliser "Append" '
' Open strFile For Append As #Fichier
Print #Fichier, StrHeadFile

While Not Rst.EOF
For Each Fld In Rst.Fields
TxtLine = TxtLine & IdVal & Fld.Value & IdVal & Separ
Next Fld
TxtLine = Left(TxtLine, Len(TxtLine) - Len(Separ))
Print #Fichier, TxtLine
Rst.MoveNext TxtLine = "" bug ici
Wend

Close #Fichier
Rst.Close
Dbs.Close
Set Rst = Nothing
Set Dbs = Nothing

MsgBox "Fichier " & strFile & " créé.", vbOKOnly, ""

voici le call

Private Sub Commande1_Click()
Call GenerateTXT("STOCKtvaDM", "C:Documents and SettingslouMes
documents")
End Sub

ou est l 'erreur ????

"3stone" a écrit dans le message de news:
#OBD5#

Salut,

"lou"
| sorry je n arrive pas a le faire fonctionner

mais tu sais lire ? ;-)

| tout ce que je peux dire c'est que le chemin de mon fichier txt est
| ""C:Documents and SettingslouMes documentsCUSTOMER.txt"
| et le nom de la table qui contiens le données s'appelle
| "STOCKtvaDM"

Et bien, tu colle la fonction dans un module général (onglet module)
et tu le sauve sous le nom "mod_GenerateurTexte" par exemple.

Ensuite, tu l'utilise comme indiqué !

--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw

oui je sais lire pas de probleme

mais de toutes façons il y a un bug dans le code

le message indique ;
nombre d arguments incorrect ou affectation de proprieté incorrect

dans ligne
Rst.MoveNext TxtLine = ""

Sub GenerateTXT(strItem As String, strPath As String)
Dim strFile As String
Dim StrHeadFile As String

Dim Dbs As DAO.Database
Dim Rst As DAO.Recordset
Dim Fld As DAO.Field
Dim TxtLine As String
Dim Fichier As Integer

Const Separ = vbTab 'séparateur
Const IdVal = Null 'délimiteur

StrHeadFile = "Ligne d'Entete 1" & vbCrLf & "Ligne d'Entête 2"

strFile = strPath & "" & strItem & "_" & _
DCount("*", strItem) & ".txt"

Set Dbs = CurrentDb
Set Rst = Dbs.OpenRecordset(strItem)
Fichier = FreeFile()

Open strFile For Output As #Fichier
'Pour ajouter à un fichier, utiliser "Append" '
' Open strFile For Append As #Fichier
Print #Fichier, StrHeadFile

While Not Rst.EOF
For Each Fld In Rst.Fields
TxtLine = TxtLine & IdVal & Fld.Value & IdVal & Separ
Next Fld
TxtLine = Left(TxtLine, Len(TxtLine) - Len(Separ))
Print #Fichier, TxtLine
Rst.MoveNext TxtLine = "" bug ici
Wend

Close #Fichier
Rst.Close
Dbs.Close
Set Rst = Nothing
Set Dbs = Nothing

MsgBox "Fichier " & strFile & " créé.", vbOKOnly, ""

voici le call

Private Sub Commande1_Click()
Call GenerateTXT("STOCKtvaDM", "C:Documents and SettingslouMes
documents")
End Sub

ou est l 'erreur ????

"3stone" <3stone_@_skynet_be> a écrit dans le message de news:
#OBD5#AoFHA.2860@TK2MSFTNGP15.phx.gbl...

Salut,

"lou"
| sorry je n arrive pas a le faire fonctionner

mais tu sais lire ? ;-)

| tout ce que je peux dire c'est que le chemin de mon fichier txt est
| ""C:Documents and SettingslouMes documentsCUSTOMER.txt"
| et le nom de la table qui contiens le données s'appelle
| "STOCKtvaDM"

Et bien, tu colle la fonction dans un module général (onglet module)
et tu le sauve sous le nom "mod_GenerateurTexte" par exemple.

Ensuite, tu l'utilise comme indiqué !

--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw

Vous avez filtré cet utilisateur ! Consultez son message

3stone

13/08/2005 à 19:04

re,

"lou"
| oui je sais lire pas de probleme

mais parfois on doute lorsque tout est écrit...

| mais de toutes façons il y a un bug dans le code

Rst.MoveNext
TxtLine = ""

sur une nouvelle ligne... c'est mieux !

--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw

lou

13/08/2005 à 19:49

Tu réponds,
sur une nouvelle ligne... c'est mieux !

veux dire quoi ????

"3stone" a écrit dans le message de news:
#

re,

"lou"
| oui je sais lire pas de probleme

mais parfois on doute lorsque tout est écrit...

| mais de toutes façons il y a un bug dans le code

Rst.MoveNext
TxtLine = ""

sur une nouvelle ligne... c'est mieux !

--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw

3stone

13/08/2005 à 20:22

"lou"
| Tu réponds,
| sur une nouvelle ligne... c'est mieux !
|
| veux dire quoi ????

Rst.MoveNext TxtLine = ""

alors qu'il faut :

Rst.MoveNext
TxtLine = ""

--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw

ECRIRE DANS FICHIER TXT

7 réponses

Veuillez sélectionner un problème