La question : est-il possible via requêtes de créer une table dont les
champs seraient composés des 4 lignes significatives du fichier texte ?
Année
@ = objet de l'acte
espace et Numero de l'acte
ligne vide à ne pas reprendre
Nom
Prénoms
lignes blanches à ne pas reprendre
Bonjour et merci !! La référence MS Scripting runtime y est déjà !? Ca coince dans le module là ou j'ai mis des <<<<<
Merci
"Jessy Sempere [MVP]" wrote in message news:42382e79$
Bonjour
Rajoutes la référence : "Microsoft Scripting Runtime"
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Bruno Frisque" a écrit dans le message news:
Merci, voici le code mis en place, mais il donne Runtime err 91 : Obj var
or
With block variable not set.. <<< - au niveau du form : 'code by Jessy Sempere MSA FR 8/02/05 Call ReadTxt("c:datatable.txt")
- dans me module : Function ReadTxt(strFile As String)
Dim tabFile() As Variant Dim lngTab As Long, lngLine As Long, i% Dim fs As FileSystemObject Dim ts As TextStream Dim intAnnée As Integer Dim strObject As String Dim intNumActe As Integer Dim strNom As String Dim strPrenom As String
Set fs = CreateObject("Scripting.FileSystemObject") Set ts = fs.OpenTextFile(strFile, ForReading) <<<<<< c'est ici que
çà coince ...
Do While Not ts.AtEndOfStream lngTab = lngTab + 1 ReDim Preserve tabFile(lngTab) tabFile(lngTab) = ts.ReadLine Loop ts.Close: Set ts = Nothing
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Bruno Frisque" a écrit dans le message news: #
Merci & Génial : sans le '=', çà compile sans erreur .... But, il y a tjrs 1 mais : mon form acec Command0 qui appelle la fonction
:
Private Sub Command0_Click() 'code by Jessy Sempere MSA FR 8/02/05 'ReadTxt 'Debug.Print ReadTxt
Call ReadTxt(TableCiviloLasne!field1)
End Sub
donne err "ObjectRequired" ....
Je loupe encore quelque chose, mais çà approche ????
Encore merci
"Gafish" wrote in message news:%
Bonjour,
Essaie en enlevant le = après execute.
Arnaud
"Bruno Frisque" a écrit dans le message news:
Merci,
J'ai coché la référence MS Scripting runtime mais :
Compilation bloque sur CurrentDb.Execute : "argument not optional
....
Il manquerait quelque chose ?? encore merci à +
"Jessy Sempere [MVP]" wrote in message
news:420877be$
Bonjour
Tu peux essayer ce code :
******************************************************* Function ReadTxt(strFile As String)
Dim tabFile() As Variant Dim lngTab As Long, lngLine As Long, i% Dim fs As FileSystemObject Dim ts As TextStream Dim intAnnée As Integer Dim strObject As String Dim intNumActe As Integer Dim strNom As String Dim strPrenom As String
Set fs = CreateObject("Scripting.FileSystemObject") Set ts = fs.OpenTextFile(strFile, ForReading)
Do While Not ts.AtEndOfStream lngTab = lngTab + 1 ReDim Preserve tabFile(lngTab) tabFile(lngTab) = ts.ReadLine Loop ts.Close: Set ts = Nothing
MsgBox "Opération Terminé" End Function *******************************************************
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Bruno Frisque" a écrit dans le message
news:
Bonjour.
Je dispose d'un fichier texte (Etat Civil) composé comme ceci
La question : est-il possible via requêtes de créer une tab le
dont
les
champs seraient composés des 4 lignes significatives du fichier
texte
?
Année @ = objet de l'acte espace et Numero de l'acte ligne vide à ne pas reprendre Nom Prénoms lignes blanches à ne pas reprendre
D'avance tout grand merci
Bonjour et merci !!
La référence MS Scripting runtime y est déjà !?
Ca coince dans le module là ou j'ai mis des <<<<<
Merci
"Jessy Sempere [MVP]" <jessy.sempere@prg.sncf.fr> wrote in message
news:42382e79$1@news.sncf.fr...
Bonjour
Rajoutes la référence :
"Microsoft Scripting Runtime"
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Bruno Frisque" <frisque@datamovers.be> a écrit dans le message news:
egcHf4kJFHA.1948@TK2MSFTNGP14.phx.gbl...
Merci, voici le code mis en place, mais il donne Runtime err 91 : Obj
var
or
With block variable not set.. <<<
- au niveau du form :
'code by Jessy Sempere MSA FR 8/02/05
Call ReadTxt("c:datatable.txt")
- dans me module :
Function ReadTxt(strFile As String)
Dim tabFile() As Variant
Dim lngTab As Long, lngLine As Long, i%
Dim fs As FileSystemObject
Dim ts As TextStream
Dim intAnnée As Integer
Dim strObject As String
Dim intNumActe As Integer
Dim strNom As String
Dim strPrenom As String
Set fs = CreateObject("Scripting.FileSystemObject")
Set ts = fs.OpenTextFile(strFile, ForReading) <<<<<< c'est ici
que
çà coince ...
Do While Not ts.AtEndOfStream
lngTab = lngTab + 1
ReDim Preserve tabFile(lngTab)
tabFile(lngTab) = ts.ReadLine
Loop
ts.Close: Set ts = Nothing
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Bruno Frisque" <frisque@datamovers.be> a écrit dans le message news:
#tsnugrDFHA.2220@TK2MSFTNGP09.phx.gbl...
Merci & Génial : sans le '=', çà compile sans erreur ....
But, il y a tjrs 1 mais : mon form acec Command0 qui appelle la
fonction
:
Private Sub Command0_Click()
'code by Jessy Sempere MSA FR 8/02/05
'ReadTxt
'Debug.Print ReadTxt
Call ReadTxt(TableCiviloLasne!field1)
End Sub
donne err "ObjectRequired" ....
Je loupe encore quelque chose, mais çà approche ????
Encore merci
"Gafish" <---gafish@free.fr----nospam> wrote in message
news:%232oLIMpDFHA.3396@TK2MSFTNGP10.phx.gbl...
Bonjour,
Essaie en enlevant le = après execute.
Arnaud
"Bruno Frisque" <frisque@datamovers.be> a écrit dans le message
news:
O8TwIKpDFHA.2608@TK2MSFTNGP10.phx.gbl...
Merci,
J'ai coché la référence MS Scripting runtime mais :
Compilation bloque sur CurrentDb.Execute : "argument not
optional
....
Il manquerait quelque chose ??
encore merci
à +
"Jessy Sempere [MVP]" <jessy.sempere@prg.sncf.fr> wrote in
message
news:420877be$1@news.sncf.fr...
Bonjour
Tu peux essayer ce code :
*******************************************************
Function ReadTxt(strFile As String)
Dim tabFile() As Variant
Dim lngTab As Long, lngLine As Long, i%
Dim fs As FileSystemObject
Dim ts As TextStream
Dim intAnnée As Integer
Dim strObject As String
Dim intNumActe As Integer
Dim strNom As String
Dim strPrenom As String
Set fs = CreateObject("Scripting.FileSystemObject")
Set ts = fs.OpenTextFile(strFile, ForReading)
Do While Not ts.AtEndOfStream
lngTab = lngTab + 1
ReDim Preserve tabFile(lngTab)
tabFile(lngTab) = ts.ReadLine
Loop
ts.Close: Set ts = Nothing
MsgBox "Opération Terminé"
End Function
*******************************************************
--
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Bruno Frisque" <frisque@datamovers.be> a écrit dans le
message
news:
O1JGX8WDFHA.3368@TK2MSFTNGP10.phx.gbl...
Bonjour.
Je dispose d'un fichier texte (Etat Civil) composé comme
ceci
Bonjour et merci !! La référence MS Scripting runtime y est déjà !? Ca coince dans le module là ou j'ai mis des <<<<<
Merci
"Jessy Sempere [MVP]" wrote in message news:42382e79$
Bonjour
Rajoutes la référence : "Microsoft Scripting Runtime"
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Bruno Frisque" a écrit dans le message news:
Merci, voici le code mis en place, mais il donne Runtime err 91 : Obj var
or
With block variable not set.. <<< - au niveau du form : 'code by Jessy Sempere MSA FR 8/02/05 Call ReadTxt("c:datatable.txt")
- dans me module : Function ReadTxt(strFile As String)
Dim tabFile() As Variant Dim lngTab As Long, lngLine As Long, i% Dim fs As FileSystemObject Dim ts As TextStream Dim intAnnée As Integer Dim strObject As String Dim intNumActe As Integer Dim strNom As String Dim strPrenom As String
Set fs = CreateObject("Scripting.FileSystemObject") Set ts = fs.OpenTextFile(strFile, ForReading) <<<<<< c'est ici que
çà coince ...
Do While Not ts.AtEndOfStream lngTab = lngTab + 1 ReDim Preserve tabFile(lngTab) tabFile(lngTab) = ts.ReadLine Loop ts.Close: Set ts = Nothing
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Bruno Frisque" a écrit dans le message news: #
Merci & Génial : sans le '=', çà compile sans erreur .... But, il y a tjrs 1 mais : mon form acec Command0 qui appelle la fonction
:
Private Sub Command0_Click() 'code by Jessy Sempere MSA FR 8/02/05 'ReadTxt 'Debug.Print ReadTxt
Call ReadTxt(TableCiviloLasne!field1)
End Sub
donne err "ObjectRequired" ....
Je loupe encore quelque chose, mais çà approche ????
Encore merci
"Gafish" wrote in message news:%
Bonjour,
Essaie en enlevant le = après execute.
Arnaud
"Bruno Frisque" a écrit dans le message news:
Merci,
J'ai coché la référence MS Scripting runtime mais :
Compilation bloque sur CurrentDb.Execute : "argument not optional
....
Il manquerait quelque chose ?? encore merci à +
"Jessy Sempere [MVP]" wrote in message
news:420877be$
Bonjour
Tu peux essayer ce code :
******************************************************* Function ReadTxt(strFile As String)
Dim tabFile() As Variant Dim lngTab As Long, lngLine As Long, i% Dim fs As FileSystemObject Dim ts As TextStream Dim intAnnée As Integer Dim strObject As String Dim intNumActe As Integer Dim strNom As String Dim strPrenom As String
Set fs = CreateObject("Scripting.FileSystemObject") Set ts = fs.OpenTextFile(strFile, ForReading)
Do While Not ts.AtEndOfStream lngTab = lngTab + 1 ReDim Preserve tabFile(lngTab) tabFile(lngTab) = ts.ReadLine Loop ts.Close: Set ts = Nothing
MsgBox "Opération Terminé" End Function *******************************************************
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Bruno Frisque" a écrit dans le message
news:
Bonjour.
Je dispose d'un fichier texte (Etat Civil) composé comme ceci
