Newsgroup: it.comp.appl.access
Titolo: [Automazione] Problemi con Applicazione Attiva

Perchè dopo aver aperto un Documento da Modello, riempito
tramite Bookmark e salvato mi ritorna attiva l'applicazione Access..?
Mi aspettavo che rimanesse in primo piano Word.
Chiamo la Funzione sotto dal Click appena terminata mi ripassa il Focus su
Access.
Non volevo usare metodi alternativi, essendo strano questo comportamento.
Da quello che ne sò dovrebbe rimanere Attivo Word, ed in primo piano.
Sbaglio qualche considerazione...?
Le variabili wordApp/wordDoc le annullo su evento Close di wordDoc
che rilevo avendo dichiarato WithEvents la stessa.
Private WithEvents wordApp As Word.Application
Private WithEvents wordDoc As Word.Document
Private Function CreaSchedaTaratura(strDOT As String, strDOC As String, mode
As Integer) As Boolean
   Dim ReplSel As Boolean
   Dim fld As DAO.Field
   On Error GoTo gestErrori
   Screen.MousePointer = 11
   Set wordApp = GetObject(, "Word.Application")
   With wordApp
      ReplSel = .Options.ReplaceSelection
      .Options.ReplaceSelection = True
      Set wordDoc = .Documents.Add(strDOT)
      Call CMB_PROTECT
      .WindowState = wdWindowStateMaximize
   End With
   For Each fld In Me.RecordsetClone.Fields
      If Me.Controls(fld.Name).Tag <> "EXCLUDE" Then
         If Not IsNothing(Me.Controls(fld.Name).Value) Then
            If wordDoc.Bookmarks.Exists(fld.Name) Then
               wordDoc.Bookmarks(fld.Name).Select
               wordApp.Selection.TypeText Text:=Me.Controls(fld.Name).Value
            End If
            'wordDoc.Bookmarks(fld.Name).Delete
         End If
      End If
   Next
   wordDoc.Protect 2, True ', "PWD"
   wordApp.Options.ReplaceSelection = ReplSel
   Select Case mode
      Case 1         'STAMPA MODELLO PRECOMPILATO
         wordDoc.PrintOut
         wordDoc.close wdDoNotSaveChanges
      Case 2         'APRE E SALVA SCHEDA
         wordDoc.SaveAs strDOC
         wordApp.Visible = True
         wordApp.Activate
         wordDoc.Activate
   End Select
   CreaSchedaTaratura = True
Esci:
    Screen.MousePointer = 0
   Exit Function
gestErrori:
   If err.Number = 429 Then
       'se c'è stato un errore è perchè Word non era già aperto:
       'aprilo adesso
       Set wordApp = CreateObject("Word.Application")
       Resume Next
   Else
      MsgBox err.Number & "-" & err.Description
      GoTo Esci
   End If
End Function
Grazie
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

 Mi aspettavo che rimanesse in primo piano Word.
[CUT]
Ma quante volte posti lo stesso problema???
Se non ti viene risposto č perchč o non si č online o non ti si vuole 
rispondere!!!
Aspetta un attimo, non serve postare mille volte lo stesso problema!!!
In questo Ng normalemente chi non riesce a mettere su due righe viene 
aiutato,
non ti preoccupare, ma abbi un pň di pazienza
MAssimiliano
p.s.
ROTFL
Alessandro, era troppo gustosa per farsela scappare. E' chiaro che sto 
scherzando.
 

 Grazie
Visto cosě sembra a posto. Non č che dopo questa function va in esecuzione
qualche altro evento che riattiva access? Visto che l'attivazione di word
č una delle ultime cose che fai, subito prima di uscire, l'inconveniente
non dovrebbe essere causato dal codice di questa function. Ho provato una
cosa simile e non succede, dopo il salvataggio resta su word.
Come mai IsNothing(Me.Controls(fld.Name).Value) e non IsNull()? Non č un
oggetto.
Ciao.
Namor
-- 
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

 ha scritto nel messaggio
news:42263cca$0$6317$5fc...@news.tiscali.it...

Ciao Alex,
io in fondo faccio anche :
AppAcctivate "Microsoft Word"
Se ti può andare bene!
Saluti
Cinzia

 Mi aspettavo che rimanesse in primo piano Word.
[CUT]
@Alex mi devi scusare ma il mio Outlook Express non mi ha segnato in rosso
il thread precedente quindi non ho potuto notarlo :(
Come Namor ho effettuato una prova e non riscontro il problema, forse hai
qualche SetFocus in giro.
Ciao Giorgio

 Namor
IsNothing è una funzione che ho fatto io, e valuta anche il VarType.
IsNull infatti se scrivi in una TextBox e poi cancelli non rileva nulla
poichè Vuoto=Vbnullstring è diverso da Null.
E così via per typi di Variabili array ecc...!
Di fatto mi sono fatto una funzione cheprevede tutto(spero)
e per comodità uso quella, ma il problema non è li ovviamente.
Ho visto il tuo Demo, dal quale ho preso spunto ed è proprio
per questo che non mi tornava.
Ora leggo gli altri Post.
Grazie.
Ciao
Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Ciao Giorgio
Giao Giorgio ho avuto lo stesso problema ed è per questo che ho
ripostato
non voleva essere un sollecito ci mancherebbe altro, ma avendo
per errore messo lo stesso Subject mi si è accodato al vecchio 3D 
non rendendolo visibile.
Non ho setFocus purtroppo...!
GRazie.
@Alex


 Cinzia
Questa sera provo e ti aggiorno.
Grazie
@ALex


 @ALex
Non ho trovato i riferimenti di quanto mi hai consigliato.
Uso A97.
Poi un dubbio:
non equivale a wordApp.Activate dove wordApp è l'istanza
di Word...?
Ciao


 ha scritto nel messaggio
news:FGzVd.2798$tY2....@news.edisontel.com...

Purtroppo la colpa č mia, come ho spiegato a Giorgio ho fatto un pasticcio
con il Subject mettendolo UGUALE a quello di un post precedente.
Il mio Browser li ha accorpati e non mi appariva.
Quando poi ho letto il tuo post era tardi....! ;-)
Ciao


Spero di non prendere del pirla e francamente non sò quanto la cosa
possa essere magari risaputa.
Il motivo del ritorno al Focus su Access era come immaginavo una banalità,
alla quale non avrei mai pensato.
Ho usato lo spazio come SubHyperlinkAddress per ottenere l'effetto
del cambio Icona.
Ho perso 2 ore per capirlo, ma è realmente quello.
Rimosso quello funziona tutto come era ipotizzabile essere.
Saluti
