Newsgroup: it.comp.appl.access
Titolo: Esportazione in un txt sulla stessa riga

Buongiorno,
quesito facile facile...
Ho la tabella pippo, contenente circa 550 record, con un solo camp
"Email"
Voglio ottenere un file txt con le singole email, divise da un punto e
virgola
ma sulla stessa riga, non come mi propone l'esportazione guidata, con un
"a capo" dopo
ogni punto e virgola.
Inoltre, poiche devo fare un copia incolla nel campo "destinatari" in
Outlook,
so che piu' di tot nominativi non mi prende.
Vorrei quindi esportare nel file di testo, una riga contenente ad es. 50
email(suddivise dal punto e virgola)
poi "a capo" e di nuovo una riga con le altre 50 email e cosi via fino
alla fine dei record.
Chi mi aiuta ?
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
news:734653706bd968db5c3...@mygate.mailgate.org...

Beh, visto l'impossibilità di utilizzare qualcosa di già fatto
devi ricorrere al CODICE.
Utilizzi le funzioni Open NomeFile For Output #1
della quale trovi un ottimo esempio nell'Help, ma
a questa devi associate un pò di codice per leggere la Tabella:
Function ExportTxt()
Dim rst as Recordset, strFileName as string
dim nMax as integer, strOut as string
set rst=currentdb.Openrecordset("NomeTabella")
If not(rst.BOF and rst.EOF) then
rst.movefirst:x=1
Open strFileName for Output #1
Do untill rst.EOF
   Do untill x=50 or rst.EOF
      strOut=Strout & rst.Fileds(0) & ";"
      rst.movenext
      x=x+1
   loop
   StrOut=Left(strOut, Len(strOut)-1)
   Print #1, strOut	
   x=1:strOut=vbNullString
   rst.movenext
loop
Speriamo bene.....!!!!!!!!
Alessandro 




Speriamo bene.....!!!!!!!!
Alessandro 
----
Ciao, grazie ma ho qualche problema.
Ho creato una maschera con un solo pulsante di comando che sul click fa
partire =ExportTxt()
La tua function l'ho salvata in un modulo.
Mi ha dato qusto errore
"Errore di compilazione: errore di sintassi" su questa riga: "Open
strFileName for Output #1"
Ho provato a creare un file di testo "prova.txt" (e' sulla stessa
directory del db)
e di aggiungere questa istruzione 
set strFileName="prova.txt"
ma mi da' il seg.errore:
"errore di compilazione:necessario oggetto" su "set
strFileName="prova.txt""
Sto imparando ma ho pochissima dimestichezza con l'inserimento del
codice, mi potresti illuminare ?
Un'altra domanda: se avessi voluto solo l'unica stringa in output senza
tener conto del numero dei record, non c'era uno strumento piu' veloce,
magari un'impostazione di esportazione che non conosco ?



Io ho provato e pare funzionare, ma ho inserito il Percorso Completo
nel nome File---> C:\Documenti\Prova.txt
Va regolarmente.
Lo strumento piů velove č la Funzione TransferText, con la quale
puoi crearti un Metodo di Import/Export personalizzato e richiamarla
in un attimo.
Prova con l'Help, c'č un esempio...!
--
Alessandro./[@Alex]/
*--------------------------------------------------------------------------*
Alessandro B.
Sito Comune      :   
http://www.sitocomune.com
Sito Personale   :   
http://digilander.iol.it/ik2zok/
*--------------------------------------------------------------------------*

 wrote in message
news:xFH48.12981$761.4...@twister1.libero.it...

Scusa se insisto,
ti posto l'intera function, continua a darmi errori di sintassi
Puoi dare un'occhiata ?
Grazie mille
p.s.
"Utilizzi le funzioni Open NomeFile For Output #1
della quale trovi un ottimo esempio nell'Help"
non riesco a trovarle !
Function ExportTxt()
Dim rst As Recordset, strFileName As String
Dim nMax As Integer, strOut As String
Set rst = CurrentDb.Openrecordset("prova")
Set strFileName = c:\documenti\access\prova.txt
If Not (rst.BOF And rst.EOF) Then
rst.MoveFirst: x = 1
Open strFileName For Output As #
Do Until rst.EOF
   Do Until x = 50 Or rst.EOF
      strOut = strOut & rst.Fields(0) & ";"
      rst.MoveNext
      x = x + 1
   Loop
   strOut = Left(strOut, Len(strOut) - 1)
   Print #1, strOut
   x = 1: strOut = vbNullString
   rst.MoveNext
Loop
End If
End Function


 wrote in message
news:56eaf68626d6026e41c...@mygate.mailgate.org...

Non preoccuparti, se ho creato un mostro č giusto che
lo sistemiamo...!
Premetto che provo una cosa completa e poi ti do conferma, ma
a prima vista l'anomalia piů grossa č la dichiarazione della
Stinga di Percorso:
ERRORE----->
Set strFileName = c:\documenti\access\prova.txt
Corretta---->
strFileName = "c:\documenti\access\prova.txt"
Riassumendo provo a ripassartela:
Function ExportTxt()
Dim rst As Recordset, strFileName As String
Dim nMax As Integer, strOut As String
Dim x As Integer
Set rst = CurrentDb.OpenRecordset("prova")
strFileName = "c:\documenti\access\prova.txt"
If Not (rst.BOF And rst.EOF) Then
rst.MoveFirst: x = 1
Open strFileName For Input As #1
Do Until rst.EOF
   Do Until x = 50 Or rst.EOF
      strOut = strOut & rst.Fields(0) & ";"
      rst.MoveNext
      x = x + 1
   Loop
   strOut = Left(strOut, Len(strOut) - 1)
   Print #1, strOut
   x = 1: strOut = vbNullString
   rst.MoveNext
Loop
Close #1
End If
End Function
Riproviamo.....!
Alessandro.
