Newsgroup: it.comp.appl.access
Titolo: Access & Word

 
          Private Sub cmdWord_Click()
On Error GoTo cmdWord_err '<-- gestione dell'errore
Dim oApp As Word.Application
Dim Rst As Recordset, i As Integer
Dim percorso As String
percorso = Me.Path.Value
 
'non visualizzo gli avvisi
DoCmd.SetWarnings False
'eseguo la query di creazione tabella
DoCmd.RunSQL "SELECT Nominativi.ID,
Nominativi.ID_Tipologia,Nominativi.Ragione_Sociale, " & _
"Nominativi.Indirizzo, Nominativi.Cap, Nominativi.Citta, Nominativi.Email,
Nominativi.Provincia " & _
"INTO t_clienti_temp " & _
"FROM Nominativi " & _
"WHERE ID IN (" & Me!ID & ");"
'visualizzo gli avvisi
DoCmd.SetWarnings True
Set oApp = CreateObject("Word.Application")
'Imposto il tipo di documento
    If Opzione_Documento = 1 Then
 
 'eseguo la stampa unione su un nuovo documento
    oApp.Documents.Open "" & percorso & "" & "Tipo1.doc"
 End If
 
    If Opzione_Documento = 2 Then
 
 'eseguo la stampa unione su un nuovo documento
    oApp.Documents.Open "" & percorso & "" & "Tipo2.doc"
 End If
Questo qua sopra è il codice in cui selezionando un'opzione mando in word i
dati di access , ora però mi sono accorta di un errore...
praticamente tipo1.doc dovrebbe essere un modello di documento ed il file
generato quando lo salvo dovrebbre sganciarsi dal database tenendosi i
valori e invece si tieni i campi unione agganciati cosiche io quando genero
un altro documento il file salvato precedentemente mi va a prendere i nuovi
valori.
Come faccio a generare un documento nuovo sgangiato dal modello iniziale?
spero di essere stata chiara
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 ha scritto nel messaggio
news:80Z18Z72Z164Y1...@usenet.libero.it...

L'esempio che ti ho inviato faceva proprio questo esattamente alla riga:
'chiudo il documento master senza salvare le modifiche
oApp.Documents(2).Close False
chiude il documento, senza salvare le modifiche, che viene utilizzato per la
stampa unione (documento master).
Il tuo codice non è completo, manca proprio la parte finale:
- chiusura documento master;
- applicazione word resa visibile;
quindi non so' come intervenire.
Considera che un documento creato con la stampa unione non è collegato alla
sua origine dati (altrimenti è un controsenso), se ti trovi in questa
condizione vuol dire che salvi i documento sbagliato; il master invece del
documento generato da quest'ultimo...
Ciao.
-- 
Sergio MAZZA

 
Ueh MAZZA.... 
come stai?? Tornato finalmente.
MAssimiliano

 ha scritto nel messaggio
news:tw1Zc.13814$B06....@news.edisontel.com...

Non sono ancora "tornato"; sono a casa e rientro domani in ufficio. Stavo
controllando se a qualcuno dei "miei" discorsi iniziati serviva risposta,
ecco perchè non ho dato l'annuncio ufficiale...
Ciao.
-- 
Sergio MAZZA


Detto fatto.....
Private Sub cmdWord_Click()

percorso = Me.Path.Value
 






 End If
 
 If Opzione_Documento = 3 Then
 
 'eseguo la stampa unione su un nuovo documento
    oApp.Documents.Open "" & percorso & "" & "Tipo3.doc"
 End If
 
 
With oApp.ActiveDocument.mailmerge
 .Destination = wdSendToNewDocument
 .Execute
End With
'chiudo il documento master senza salvare le modifiche
oApp.Documents(1).Close False
'rendo visibile word
oApp.Visible = True
 
cmdWord_exit:
    Exit Sub
cmdWord_err:
    Set oApp = Nothing
    MsgBox "Errore " & Err.Number & ", " & Err.Description
 
 End Sub




Questa riga:
'chiudo il documento master senza salvare le modifiche
oApp.Documents(1).Close False
io avevo scritto:
'chiudo il documento master senza salvare le modifiche
oApp.Documents(2).Close False
l'hai cambiata tu arbitrariamente o per qualche motivo che al momento non
ricordo?
Ciao.
-- 
Sergio MAZZA


adesso ho capito perche la avevo cambiata...
lungo tutto il documento Word ho dei campi : il campo cliente me lo ritrovo
in vari passaggi del documento, ho avuto un lapsus che non mi cambiasse i
campi all'avvio di un doc nuovo e invece... lo fa
mi sto perdendo con me stessa ultimamente..


 mi sto perdendo con me stessa ultimamente..
E ti sei ritrovata?
Ciao.
-- 
Sergio MAZZA