Newsgroup: it.comp.appl.access
Titolo: creazione di un file di testo

dovrei creare un file di testo che contiene gli stessi campi contenuti in
una mia tabella costruita in access. Avrei pensato di creare una maschera
nella quale dire poi che un certo campo deve partire da una certa colonna e
deve essere lungo ad esempio 50 caratteri. Non ho proprio idea di come fare.
Accetto volentieri vostri consigli
Grazie mille

Io ho creato un modulo per fare quello che chiedi
partendo dalla tabella clienti che ha numerosi campi ho scritto un file di
testo dal nome clienti.txt
Premetto che non sono un guru come altri in questo ng e quindi il codice č
senz'altro migliorabile
Inoltre sono stato anch'io, a suo tempo, aiutato e quindi.......
questo č il codice da inserire in un modulo
come si richiama una funzione questo lo sai ?????
la funzione da richiamare e pr2
Option Compare Database
Option Explicit
Public Function pr2()
Dim rstTbl As Recordset
Dim iln As Variant
Dim qdf As QueryDef
Dim var As Long
    Open "C:\affari\CLIENTI.TXT" For Output As #1
    Set qdf = CurrentDb.QueryDefs("clienti")
    Set rstTbl = qdf.OpenRecordset
    rstTbl.MoveFirst
    While Not (rstTbl.EOF)
        iln = ""
        iln = "15"
        iln = iln & Format(rstTbl!CONTATORE, "0000")
        iln = iln & rstTbl![CL_RAGSOC]
        iln = iln & rstTbl![CL_RAG2]
        iln = iln & " "
        iln = iln & rstTbl![CL_INDIRI]
        iln = iln & rstTbl![CL_INDI2]
        iln = iln & rstTbl![CL_CITTA]
        iln = iln & Left(Format(rstTbl![CL_PROV], "!@@;!@@"), 2)
        iln = iln & Left(Format(rstTbl![CL_CAP], "!@@@@@;!@@@@@"), 5)
        iln = iln & rstTbl![CL_CODF IS],
        iln = iln & rstTbl![CL_PARIVA]
        iln = iln & "S"
        If IsNull(rstTbl![COD_CAB]) Then
        iln = iln & "00000"
        Else
        iln = iln & Left(Format(rstTbl![COD_CAB], "00000"), 5)
        End If
        iln = iln & rstTbl![BREVE]
        If IsNull(rstTbl![COD_ABI]) Then
        iln = iln & "00000"
        Else
        iln = iln & Left(Format(rstTbl![COD_ABI], "00000"), 5)
        End If
        If rstTbl![CL_MODPAG] = "RF" Then
        iln = iln & "00RF"
        Else
        iln = iln & Format(rstTbl![CL_MODPAG], "0000")
        End If
        Print #1, iln
    rstTbl.MoveNext
    Wend
    Close #1
    rstTbl.Close
End Function

 wrote in message
8aoec7$9b$1...@fe1.cs.interbusiness.it...


 deve essere lungo ad esempio 50 caratteri. Non ho proprio idea di come
fare.[Demolition Man] Per quanto riguarda la Maschera puoi crearla, poi,
importando la tabella di Word; per far partire, inoltre, una colonna
desiderata devi entrare in struttura cliccare sulle proprietą della colonna
e fai in modo che sia quella colonna che parta per prima (ordinamento).
Spero di aver capito e di esserti stato utile. Demolition Man.


di ACCESS in Word
Oppure te la stampi da Access. Poi ti piazzi i tuoi fogli di carta
vicino al monitor, apri il Notepad e cominci a copiare. Mi raccomando,
usa gli spazi e non il tab per allineare il tutto e soprattutto usa un
font non proporzionale.
Come dici? Non hai la stampante? Allora con un po' di pazienza li
scrivi a mano su un pezzo di carta...
(Scusate, non ho resistito... :-)
-- 
Ciao,
Giovanni

Io faccio così:
File
Salvacon nome/esporta
File o database esterno
tipo file : File di testo
Parte l'autocomposizione:
scegli A larghezza fissa e fai clic sul pulsante Avanzate con il quale puoi
specificare le lunghezze dei campi.
Queste specifiche le puoi salvare per riutilizzarle in seguito per
esportazioni analoghe.
Fammi sapere, ciao Giorgio

scrivi a mano su un pezzo di carta...
Alternativa: si puo' sempre comprare un secondo pc, mettere i due
monitor a fianco e...
OK basta.
--
Lorenzo Coronati
--
<<Nessuno sa che questa affermazione e' vera>>
(John D. Barrow)
--

Ovviamente questo è il codice che va inserito in una macro di Word.
Fra l'altro avevo saltato una riga.
 Set db = OpenDatabase _
    (Name:="C:\.....\file.mdb")
  Set rs = db.OpenRecordset(Name:="NomeTabella")
' Questo è un segnalibro che tu dei aver già inserito nel dcuemnto word
 Selection.GoTo What:=wdGoToBookmark, Name:="NomeSegnalibro"
  Selection.InsertAfter Text:=rs.Campo
 rs.close