Newsgroup: it.comp.appl.access
Titolo: Stampa unione di una lista

Ho creato una tabella dove ci sono vari nominativi e finche si va sulle
maschere o su report di access tutto bene adesso pero adeesoo vorrei
stampare detta lista di nominativi in un foglio Word
Es.
Numero  Data Nascita Nominativo  Cartellino
Numero  Data Nascita Nominativo  Cartellino
Numero  Data Nascita Nominativo  Cartellino
Ecc fino a 18, numero max è già selezionato dalla query che mi crea la
tabella
Ho cercato di inserire nella tabella i campi moduli modificando il nome e
così anche nel prg di access, passaggio sottoriportato,  però mi stampa
sempre il primo nominativo e non cambia a ogni riga come vorrei.
Come potrei fare? per stampare tutti i nominativi della tabella.
Grazie a chi mi da un'idea o dove potrei trovare un esempio
    Doc.Bookmarks("NUMERO").Select
    Wrd.Selection.TypeText Me.NUMERO
        Doc.Bookmarks("NASC_DATA").Select
        Wrd.Selection.TypeText Me.NASC_DATA
    Doc.Bookmarks("NOMINATIVO").Select
    Wrd.Selection.TypeText Me.NOMINATIVO
        Doc.Bookmarks("CARTELLINO").Select
        Wrd.Selection.TypeText Me.CARTELLINO
    Doc.Bookmarks("NUMERO2").Select
    Wrd.Selection.TypeText Me.NUMERO
        Doc.Bookmarks("NASC_DATA2").Select
        Wrd.Selection.TypeText Me.NASC_DATA
    Doc.Bookmarks("NOMINATIVO2").Select
    Wrd.Selection.TypeText Me.NOMINATIVO
        Doc.Bookmarks("CARTELLINO2").Select
        Wrd.Selection.TypeText Me.CARTELLINO

 ha scritto nel messaggio news:43782ef3$0$16209$4faf...@reader3.news.tin.it...

Probabilmente non hai inserito queste istruzioni in un ciclo che legge i record.
Se cerchi una alternativa puoi inserire nel documento un campo DATABASE che legge direttamente il contenuto di una tabella/query e 
ti restituisce una tabella...
Ciao.
-- 
Sergio MAZZA 

 Ciao.
Innazitutto grazie della risposta
Penso che inserire un campo DATABASE nel documento non posso considerato
che per la stampa unione uso un documento .dot
Per il campo ciclo avevo tentaato ad inserire questo passaggio ma si
impianta tutto pertanto non so dove sbaglio
Dim ini As Integer
For ini = 1 To 18
    T_SCHEDA = "tabTemp" & Trim(Str(i))
 
    Doc.Bookmarks("NUMERO").Select
    Wrd.Selection.TypeText Me.NUMERO
    Doc.Bookmarks("NASC_DATA").Select
    Wrd.Selection.TypeText Me.NASC_DATA
    Doc.Bookmarks("NOMINATIVO").Select
    Wrd.Selection.TypeText Me.NOMINATIVO
    Doc.Bookmarks("CARTELLINO").Select
    Wrd.Selection.TypeText Me.CARTELLINO
Next ini
Grazie se puoi darmi una dritta
Faccio presente che nel documento oltre fino ai 18 nominativi dovro
inserire anche i soliti normali campi 
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 -- 
Ferma tutto.
Quello che stai utilizzando è un codice VBA che fa riferimento a dei valori di controlli su una form, quindi non avrai altro che un 
solo record.
Per avere tutti i record devi crearti un recordset e ciclare in quello:
es.
dim rst as dao.recordset
set rst = currentdb.openrecordset("nomeTabella/Query")
do while not rst.eof
   Doc.Bookmarks("NUMERO").Select
   Wrd.Selection.TypeText rst!NUMERO
   Doc.Bookmarks("NASC_DATA").Select
   Wrd.Selection.TypeText rst!NASC_DATA
   Doc.Bookmarks("NOMINATIVO").Select
   Wrd.Selection.TypeText rst!NOMINATIVO
   Doc.Bookmarks("CARTELLINO").Select
   Wrd.Selection.TypeText rstCARTELLINO
    ...inserimento riga nuova...
    rst.movenext
loop
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio
news:dla1cs$9q5$1...@area.cu.mi.it...

Innanzittutto grazie
Di chiedo un ultimo aiuto da parte tua, perche penso che cio che io desidero
non posso farlo ma vorrei un tuo parere, al riguardo della lettera in word
che dovrei stampare. Il documento come già accenato è un documento word.dot
e i campi che devo riempire sono dei campi modulo e pertanto i segnalibro
non possono essere uguali, ma non so se possno essere ripetitivi.
Quando mi dici ".... inserimento riga nuova...."  cosa intendi che non
riesco a capire
Grazie di nuovo

 Grazie di nuovo
Partendo dal presupposto che "non si può fare" si parte in svantaggio; questa conclusione lasciala alla fine quando hai valutato 
qualsiasi soluzione proposta.
Un documento word che sia in formato doc o dot non cambia la sua natura generale; tranne che quest'ultimo viene preso "a modello" 
dall'applicazione per generare altri documenti "a sua uguaglianza".
Quello che non si capisce (almeno io non l'ho capito) è se questo documento (quello finale che va all'utente) è utilizzato solo come 
output (access --> word) o dopo l'elaborazione ci si può intervenire; altrimenti perché inserire dei campi modulo che presumono 
l'intervento di un utente?
Devi riempire 18 posizioni? Li vogliamo chiamare Segnalibri? Crea 18 segnalibri con nomi del tipo: "Numero1/2/3...NASC_DATA1/2/3..." 
e il tuo codice diventa:
Dim ini As Integer
dim rst as dao.recordset
set rst = currentdb.openrecordset("nomeTabella/Query")
do while not rst.eof
 ini = ini + 1
    Doc.Bookmarks("Numero" & i).Select
    Wrd.Selection.TypeText Me.NUMERO
    Doc.Bookmarks("NASC_DATA" & i).Select
    Wrd.Selection.TypeText Me.NASC_DATA
    Doc.Bookmarks("NOMINATIVO" & i).Select
    Wrd.Selection.TypeText Me.NOMINATIVO
    Doc.Bookmarks("CARTELLINO" & i).Select
    Wrd.Selection.TypeText Me.CARTELLINO
     rst.movenext
loop
Quando dico "...inserimento di una nuova riga..." intendo "...ho finito di scrivere, vai alla riga successiva..." e qui ricomincio a 
scrivere etc. etc. fino alla 18a. Ma se inserisci tutti i 18 segnalibri non hai bisogno di ritorni a capo...
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio
news:dlc7fe$3nd$1...@area.cu.mi.it...

Il documento una volta stampato si salva su una cartella dove se occorrono
degli aggiustamenti l'operatore lo potrà fare oltre a restare in archivio
finche non verrà cancellato. Questa scelta è che il risultato è x una
società sportiva che genera la lista x la consegna all'arbitro prima della
partita e dunque ogni momento si puo variare.
Ho cercato di fare il passaggio che mi avevi indicato pero continua a
stamparmi solamente il primo nominativo su tutta la lista finche ci sono
nominativi pertanto il contatore funziona ma non modifica il nominativo (
ho modificato rst con rst1 percheè il primo già in uso)
Dim ini As Integer
Dim rst1 As DAO.Recordset
Set rst1 = CurrentDb.OpenRecordset("T_SCHEDA_ARBITRO")
 Do While Not rst1.EOF
ini = ini + 1
 'PARTE RELATIVA AI GIOCATORI
    Doc.Bookmarks("NUMERO" & ini).Select
    Wrd.Selection.TypeText Me.NUMERO
     Doc.Bookmarks("NOMINATIVO" & ini).Select
    Wrd.Selection.TypeText Me.NOMINATIVO
    Doc.Bookmarks("NASC_DATA" & ini).Select
    Wrd.Selection.TypeText Me.NASC_DATA
    Doc.Bookmarks("CARTELLINO" & ini).Select
    Wrd.Selection.TypeText Me.CARTELLINO
   rst1.MoveNext
   Loop
Grazie dell'attenzione

 Grazie dell'attenzione
Ricordati di impostare a nothing gli oggetti creati (set xxx = nothing), quando non più utilizzati, e gestire gli errori (on error 
goto) inserendo anche qui la distruzione degli oggetti...
Ciao.
-- 
Sergio MAZZA