Newsgroup: it.comp.appl.access
Titolo: Access > Word (Finestra Word in primo piano)

Salve a tutti.
Da diverso tempo, utilizzo una routine (lo spunto l'ho preso dal sito 
comune), per il trasferimento automatico di dati da Access 97 a Word, per la 
compilazione di documenti.
Fino a poco tempo fa, tutto ok.
Da alcuni giorni, evidentemente con qualche mia smanettatura di troppo, dopo 
l'apertura, la finestar del documento Word mi passa in 2° piano, ed il 
controllo ritorna sulla form dal quale è stato avviato i comando!
A me invece, occorre la visualizzazione del documento con la possibilità di 
modifica chiaramente.
Qualcuno, sa dirmi da dove riesca a reimpostare la situazione originale?
Ho verificato ma proprio non riesco a capire.
Grazie 1000 a tutti
Marco


Una volta che hai istanziato un nuovo oggetto word , poi devi renderlo
visibile:
Dim objWord As Word.Application
    Dim rst As Recordset
    Dim strSQL As String
    'Lancia l' applicazione Word
    Set objWord = New Word.Application
    objWord.Documents.Add _
     Application.CurrentProject.Path & "\tuodoc.doc"
    objWord.Visible = True
Prova così e facci sapere
Saluti

     Dim strSQL As String
 Lascia perdere questa parte che ho copiato senza provedere a
cancellare.
Ciao

 ha scritto nel messaggio 
news:1168860619....@51g2000cwl.googlegroups.com...




Saluti
Ti ringrazio, ma già sto usando il parametro "Visible=True", purtroppo 
però.... il documento appare 1 attimo ed immediatamente mi perde lo stato 
attivo!
Mah, proprio non capisco!
Grazie ancora
Marco 

 Marco
Potrebbe esserci un errore o access richiede un input dall'utente; comunque 
prova con il metodo Activate:
objWord.Activate
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:eofs55$gv3$1...@tdi.cu.mi.it...

Grazie ragazzi ma, sto già usando, subito dopo il metodo Visible, anche il 
metodo Activate:
objWord.Visible = True
objWord.Activate
Inoltre, ho già provato l'esecuzione della procedura su altri pc ma, stessa 
cosa.
Ma ancora più assurdo:
Nelle altre Form, dove vado a riaprire il documento, tutto funziona 
regolarmente: il documento rimane attivo.
Mah!
Ciao
Marco

 Marco
Verifica che dopo la fine della routine di automazione non venga eseguito
un qualche setfocus su un controllo in access.
Metti un punto di interruzione su objWord.Activate e da lì in poi esegui
passo passo con F8 per vedere cosa fa, forse trovi l'inghippo.
Ciao.
-Marco-
-- 
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Marco
Il codice che utilizzi?
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:eogqte$p4b$1...@tdi.cu.mi.it...

Allora ho risolto, e dipendeva dal metodo objWord.Activate, che ho dovuto 
"remmare", ed in questo modo la finestar Word mi rimane attiva (praticamente 
solo usando il metodo Visible).
rem             ObjWord.Activate
            ObjWord.Visible = True
Inoltre, volevo mettere a Schermo intero la schermata Word, in modo da 
permettere l'edit all'utente, denza essere "confuso" da finestre 
sottostanti.
All'interno alla stessa routine (che ho trovato su sito comune), viene usata 
la funzione:
    objWord.WindowState = wdWindowStateMaximize
ma la chiave (wdWindowStateMaximize) mi genera errore:  "variabile non 
definita".
Ho provato a definirla con:
 Dim wdWindowStateMaximize (senza tipologia, perchè non la conosco), e pure 
senza segnalazione d'errore, ma la finestra WORD rimane ridotta.
Grazie ancora per tutti i vss. aiuti!
Marco

 Marco
Ciao.
-- 
Sergio MAZZA