Newsgroup: it.comp.appl.access
Titolo: Errore di run-time

Ciao Ng, grazie al vostro aiuto sono riuscito quasi a portare a termine il
mio lavoro, tutto funziona, però, c'è purtroppo come in ogni fase di debug
un errore...allora quello che ho realizzato è una maschera che si basa su
una tabella con tre campi, inseririsco questi campi nella maschera e alla
pressione del pulsante Apri Word si apre il documento che ha il nome
corrispondente ad uno dei campi, e vi inserisce in tre posizioni differenti
(con una ricerca su stringhe) i tre valori, fatto ciò salva il documento e
chiude word, così in teoria sono pronto per inserire nuovamente altri tre
valori e ripetere l'operazione...dove stà il però, eccolo, fatto il primo
inserimento al secondo, cioè una volta inseriti i dati nella tabellla e
premuto il tasto mi compare questo errore: Errore di Run Time 462 Il
computer server remoto non esiste o non è disponibile...quindi con
CTRL+ALT+CANC termino il processo di word, ripeto l'operazione e tutto va
bene. Perchè? io non so più dove andare, non sono neache troppo esperto di
VB, non so, io ci provo, vi invio il codice del pulsante, qualcuno sa darmi
una mano? Non è certo un capolavoro di ottimizzazione...
Private Sub Comando10_Click()
Dim oApp As Word.Application
Dim oRange As Word.Range
Dim oRange1 As Word.Range
Dim oRange2 As Word.Range
Dim i As Variant
Dim aCampi
aCampi = Array("Plano:", "Pedidos:", "Pzas:")
Dim vCampi
vCampi = Array(Me!Plano.Value, Me!Pedido.Value, Me!Cantidad.Value)
Set oApp = CreateObject("Word.application")
oApp.Documents.Open ("c:\") & Me!Plano.Value
Set oRange = oApp.Documents(1).Content
Set oRange1 = oApp.Documents(1).Content
Set oRange2 = oApp.Documents(1).Content
With oRange.Find
    .Text = aCampi(0)
    .Execute
    oRange.Select
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.TypeText vCampi(0)
End With
With oRange1.Find
    .Text = aCampi(1)
    .Execute
    oRange1.Select
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.TypeText vCampi(1)
End With
With oRange2.Find
    .Text = aCampi(2)
    .Execute
    oRange2.Select
    Selection.MoveRight Unit:=wdCharacter, Count:=2
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.TypeText vCampi(2)
End With
oApp.Visible = True
oApp.Activate
oApp.Documents.Close savechanges:=True
oApp.Application.Quit
End Sub

 ha scritto nel messaggio
news:752za.222157$K35.5...@news2.tin.it...

Forse aggiungendo
Set oApp = Nothing
dovrebbe funzionare
Ciao, Carlo

 Ti ringrazio per l'aiuto, però non funziona...qualche altra idea? anch'io
pensavo fosse sufficiente terminare l'oggetto...
Ciao, Femto

 Ciao, Femto
Oltre ad impostare a nothing (come ti ha suggerito Carlo Costarella)
l'oggetto oApp prova anche con tutti gli altri oggetti creati: oRange,
oRange1, oRange2; il tutto dopo la riga oApp.Application.Quit.
Considera anche la possibilità di gestire un eventuale errore con On Error
Goto, perché se per qualsiasi motivo si blocca la procedura ti rimangono
"appesi" gli oggetti...
Ciao.
P.S. Ovvio che nella gestione degli errori azzeri (nothing) i suddetti
oggetti.
--
Sergio MAZZA