Newsgroup: it.comp.appl.access
Titolo: Apertura Modello di Word da Access

Ciao al NG,
Ho il seguente problema, utilizzo un modello di word che ha come origine
dati una query sul DB Access 2003 da cui tento di lanciarlo. Se apro questo
modello esternamente da Access all'apertura mi chiede se voglio eseguire il
comando SQL relativo all'origine dati e si connette regolarmente all'origine
dati. Se apro questo stesso modello dall'interno di Access utilizzando il
seguente codice:
Private Sub Comando135_Click()
    '//creo l'ogetto word
    Dim objWord As Word.Application
    Set objWord = CreateObject("Word.Application")
    objWord.Documents.Open FileName:="g:\modelli\Generico6.dot"
    objWord.Visible = True
    '//cancello l'oggetto word dopo aver eseguito il lavoro
    Set objWord = Nothing
End Sub
il modello si apre ma non mi chiede se voglio eseguire il comando SQL
relativo all'origine e non si connette all'origine dati. Devo eseguire la
connessione manualmente, e spesso capita, che si verifica un errore sul
driver ODBC.
Qualcuno sa darmi cosa c'è di sbagliato sul codice.
P.S. sono ai primi tentativi sia con access che con vba.
Grazie a chiunque mi volesse aiutare
Charliebo59

 ha scritto nel messaggio 
news:6idXd.631476$b5.28...@news3.tin.it...

hai visto l'esempio di namor sul sitocomune? automazione access / word
Adesso hanno fatto una numerazione per le faq ... scusami ma non ho tempo di 
guardare il riferimento corretto, se non riesci riposta che più tardi ti do 
una mano.
www.sitocomune.com

 ha scritto nel messaggio 
news:6idXd.631476$b5.28...@news3.tin.it...

Dovresti aprire il modello a mano e modificare la tipologia di accesso ai 
dati indicando DDE. Ci sono vari messaggi sull'NG di 
microsoft.public.it.access che indicano la soluzione; comunque leggi anche 
questo link:
http://support.microsoft.com/default.aspx?scid=kb;en-us;279462
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio
news:d0juu2$hds$1...@hulme.interac.it...


 ha scritto nel messaggio 
news:bSfXd.1023788$35.38...@news4.tin.it...

ok, ricorda solo di rispondere dopo il messaggio precedente come faccio io 
... cosi chi leggerà riuscirà a seguire il senso del discorso. 

 ha scritto nel messaggio
news:6idXd.631476$b5.28...@news3.tin.it...

Ti allego una Routine che usavo per una cosa simile, funziona, ma
preferisco la tecnica di Marco Pizzamiglio con i Bookmark, in ogni caso
apro il DOC lo collego in MERGE con la stringa SQL che costruisco via
Codice, lo visualizzo, lo sconnetto e lo salvo.
Private Sub createWord(strDoc As String)
   Dim wordapp As Word.Application
   Dim wordDoc As Object
   Dim cmdbar As CommandBar
   On Error GoTo gestErrori
   CloseWord
   Screen.MousePointer = 11
   Set wordapp = CreateObject("Word.Application")
   Set wordDoc = wordapp.Documents.Open(strDoc)
   With wordDoc.MailMerge
      .OpenDataSource Name:=CurrentDb.Name, _
           ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
           AddToRecentFiles:=False, PasswordDocument:="",
PasswordTemplate:="", _
           WritePasswordDocument:="", WritePasswordTemplate:="",
Revert:=False, _
           Format:=wdOpenFormatAuto, Connection:="TABLE tblStrumenti",
SQLStatement:= _
           "SELECT * FROM [NomeTabella] WHERE NomeCampo=" & Chr(34) &
Condizione & Chr(34), _
           SQLStatement1:=""
      .ViewMailMergeFieldCodes = wdToggle
   End With
   With wordapp
      .Visible = True
      .Activate
      .WindowState = wdWindowStateMaximize
      .ActiveDocument.MailMerge.MainDocumentType = wdNotAMergeDocument
      .ActiveDocument.Save
   End With
Esci:
   Screen.MousePointer = 0
       Set wordDoc = Nothing
       Set wordapp = Nothing
   Exit Sub
gestErrori:
       MsgBox err.Number & "-" & err.Description
      GoTo Esci
End Sub
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

 ha scritto nel messaggio
news:422df791$0$32335$5fc...@news.tiscali.it...

Mi scuso per il ritardo con cui rispondo ma mi sono dovuto assentare per
qualche giorno dal computer.
Come dicevo sono un neofita sia di access che di vba, quindi proverò a
capire qualcosa sul codice che mi hai inviato.
Grazie
Charliebo59

 ha scritto nel messaggio
news:d0k01a$2hp$1...@canarie.caspur.it...

Mi scuso per il ritardo con cui rispondo ma mi sono dovuto assentare per
qualche giorno dal computer.
Non riesco a trovare dove modificare la tipologia di accesso ai dati (DDE),
potresti darmi qualche ulteriore dettaglio.
Grazie
Charliebo59