Newsgroup: it.comp.appl.access
Titolo: Errore in SECONDA ESPORTAZIONE in WORD

Incomincio col ringraziare chiunque si possa prodigare... :-)
Partendo dall'esempio su StitoComune ho creato il codice qui sotto...
PROBLEMA:
prima esportazione tutto ok
seconda esportazione dalla stessa maschera se word è aperto OK
seconda esportazione da stessa maschera  ma chiusa e riaperta OK
seconda esportazione dalla stessa maschera se word è chiuso mi dà
errore di run time 462 il computer server remoto non esiste on non è
disponibile
anche se word lo apre il segnalibro lo trova, ma poi si blocca alla
riga successiva
Private Sub EsportaGruppiOmogenei_Click()
Me.GruppiOmogenei.SetFocus
Dim Wrd As Word.Application, Doc As Word.Document
Dim RstDatiDitta As New ADODB.Recordset
Dim CNDatiDitta As New ADODB.Connection
Dim stringaSQLDatiDitta As String
Dim Modello As String
Dim NomeFile As String
Dim Record As String
'Trova il nome, completo di percorso, del modello word
'("Relazione base fono626.dot" nella stessa cartella del database)
    Modello = CurrentDb.Name
    Modello = Left(Modello, Len(Modello) - Len(Dir(Modello))) &
"Relazione base fono626.dot"
    On Error Resume Next 'gestione errori step by step
    'cerca un'istanza di Word già aperta
    Set Wrd = GetObject(, "Word.Application")
    If Err.Number = 429 Then
        'se c'è stato un errore è perchè Word non era già aperto:
        'aprilo adesso
        Set Wrd = CreateObject("Word.Application")
    End If
    On Error GoTo 0 'ripristina la segnalazione degli errori
    'rendi visibile la finestra di Word:
    Wrd.Visible = True
    'attiva Word e portalo in primo piano:
    Wrd.Activate
    'Apri un nuovo documento basato sul modello:
    Set Doc = Wrd.Documents.Add(Modello)
    'attivalo e portalo in primo piano:
    Doc.Activate
 ' trovo i dati della ditta
Set RstDatiDitta = New ADODB.Recordset
Set CNDatiDitta = CurrentProject.Connection
stringaSQLDatiDitta = "SELECT T_Anagrafica.IdAnagrafica,
T_Anagrafica.DITTA, T_Anagrafica.ViaSedeLegale,
T_Anagrafica.N_CivicoSedeLegale, T_Anagrafica.CAPSedeLegale,
T_Anagrafica.CittaSedeLegale, T_Anagrafica.ViaSedeOperativa,
T_Anagrafica.N_CivicoSedeOperativa, T_Anagrafica.CAPSedeOperativa,
T_Anagrafica.CittaSedeOperativa, T_Anagrafica.Telefono1,
T_Anagrafica.Fax, T_Anagrafica.P_IVA, T_Anagrafica.DatoreDiLavoro,
T_Anagrafica.RSPP, T_Anagrafica.RLS, T_Anagrafica.Medico FROM
T_Anagrafica WHERE (((T_Anagrafica.IdAnagrafica)=" &
Me.Id_Anagrafica_GruppiOmogenei & "));"
RstDatiDitta.Open stringaSQLDatiDitta, CNDatiDitta, adOpenKeyset,
adLockOptimistic
RstDatiDitta.MoveLast
RstDatiDitta.MoveFirst
    'cerco il segnalibro "Ditta"
    Wrd.Selection.GoTo What:=wdGoToBookmark, Name:="Ditta"
    Selection.MoveLeft unit:=wdWord, Count:=1
    Selection.Font.Bold = True
    If Not IsNull(RstDatiDitta(1)) Then
    Selection.TypeText Text:=RstDatiDitta(1)
    Else: Selection.TypeText Text:="______________________"
    End If
    'avvisa l'utente che l'esportazione è terminata
    Wrd.Application.WordBasic.MsgBox "Esportazione terminata",
"Esportazione dati da Access"
    'azzera le variabili oggetto
    Set Doc = Nothing
    Set Wrd = Nothing

On 12 Mag, 19:32, 
a...@libero.it
 wrote:
Mi correggo seconda esportazione con WORD chiuso mi da sempre e
comunque errore

 ha scritto nel messaggio 
news:1178991136.2...@o5g2000hsb.googlegroups.com...





Private Sub EsportaGruppiOmogenei_Click()
Me.GruppiOmogenei.SetFocus














------------------  RISPOSTA  -----------------
Prova a referenziare tutti i selection che non fanno riferimento esplicito 
ad un oggetto.
Mi spiego meglio: vedo scritto "Selection.MoveLeft..." questa istruzione 
falla diventare "Wrd.Selection.MoveLeft..." e così per tutte le altre 
istruzioni che non fanno esplicito riferimento all'oggetto Wrd.
Ciao
Antonio

 ha scritto nel messaggionews:1178991136.2...@o5g2000hsb.googlegroups.com...

Carissimo Antonio,
10 e LODE!!!!!!!!!!!!!!!!!!!!!!!!!
Funziona! Grazie ancora.
F.