Automazione da Access a Word

Question

Save a tutti, sono Sandra ed ho il seguente problema..

Ho la necessità di fare in modo che compilando una form su Access, una volta cliccato su un tasto, venga richiamato un modello di word precedentemmente realizzato che viene popolato dai dati inseriti sulla maschera di Access.

HO trovato a questo link una soluzione valida

https://answers.microsoft.com/it-it/msoffice/forum/all/automazione-word-da-access/1c85bb41-20bf-4881-9cfa-1b2ed3887dbf

Tramite questo codice, riesco a fare aprire il modello di word e poi a salvarlo nel formato che desidero.

Il problema è però che vorrei che alcuni campi venissero esportati nel modello di Word solo quando effettivamente compilati e nel caso non siano compilati.. questi non lasciassero spazi vuoti nel modello di word.

Faccio un esempio

Nel modello word ho inserito i segnalibri per due possibili persone. Ma non è detto che siano 2. QUindi nel caso io non compilassi i dati della seconda persona, nel word dovrebbe sparire lo spazio dedicato a questi dati... e quindi il file dovrebbe proseguire conil resto dei dati.

PERSONA 1

ID

Nome e cognome

Generalita

Avvocato di fiducia

PERSONA 2

Nome e cognome

Generalita

Avvocato di fiducia

Avevo realizzato un report che mi permetteva di farlo, trasformando l'etichetta del campo in una casella di testo e inserendo il seguente codice

=IIf(IsNull([ Indagato_2]);Null;" Indagato_2")

E nel report attivavo l'impostazione "riducibile" su si, ma il report è limitato per tutto il testo che devo inserire io e quindi ho cercato su internet e sono arrivata a voi.

Non ho conoscenza di VBA ma a furia di sbatterci la testa sono riuscita a capire come incollare e cosa mmodificare nel codice per adattarlo a me.

Potete aiutarmi nel fare il modo che se non comppilo il campo imputato 2 questo non mi lasci spazi?

Grazie

+++ AGGIORNAMENTO +++

Ho appena scoperto che con i segnalibro non si posso ripetere all'interno di una pagina... io devo inserire in circa 3 pagina dei dati che si devono ripeetere ..

N° fascicolo

Cliente 1

CLiente 2

Avvocato_1

Avvocato_2

ora sono nella confuzione totale. Help!!

Answer 1

Ciao Mimmo, ho provato a sostituire quella riga, ma continua a lasciarmi lo spazio che prenderebbe cmq il segnalibro,

For i = 1 To 10

If doc.Bookmarks.Exists("Indagato\_2" & Format(i, "00")) Then 

doc.Bookmarks("Indagato\_2" & Format(i, "00")).Select 

If Len(Me.Indagato\_2 & "") > 0 Then 

appword.Selection.TypeText Me.Indagato\_2 

Else

appword.Selection.TypeText "" 

End If

End If

Sbaglio in qualcosa?

Answer 2

Domani provo a normalizzare secondo il tuo schema! Grazie per lo screeshot, mi aiuta parecchio.

Answer 3

Ciao,

rileggendo la tua domanda iniziale:

> Il problema è però che vorrei che alcuni campi venissero esportati nel modello di Word solo quando effettivamente compilati e nel caso non siano compilati.. questi non lasciassero spazi vuoti nel modello di word.

Interpreto nel modoseguente:

Prova a modificare l'istruzione:

appword.Selection.TypeText Me.RGNR

con

If Len(Me.RGNR & "") > 0 Then

appword.Selection.TypeText Me.RGNR

Else

appword.Selection.TypeText ""

End If

Ciao Mimmo

Answer 4

Direi che prima dovresti pubblicare il modello di Word che effettiavmente usi, per poter avere un'idea più precisa.

Riamane il fatto, analizzando il database postato, che non va bene bene la struttura che hai realizzato in quanto manca di normalizzazione dei dati.

Diciamo che un esempio da cui partire potrebbe essere il segente:

poi ci sarebbe da capire come gestire glia altri campi in tblAvvisi ovvero:

Answer 5

Ciao ragazzi, sono nuovamente qua.

Anche se non ho ricevuto risposte, sono cmq andata avanti.

Sono riuscita ad automatizzare, mi manca pero un ultimo passaggio.

Ho la necessità di far si che mentre il modello word si compila dei dati inseriti tramite maschera access, vengano nascosti i campi che non sono valorizzati.

Ho trovato un video su youtube, ma questo lavoro lo fa nel report, attraverso il generatore di espressioni inserendo un IIF.

Mi potete suggerire come fare, o cmq darmi uno spunto, perché non riesco a trovare nulla. Forse sbaglio la ricerca.

Grazie