How avoid Run Time error '462': the remote server machine does not exist or is unavailable

[christ2000]

Hello I am using access to fill out a word document using Bookmarks, the code work but the problem that I can use this just one time, if I run the code twice I always get this error:

Run Time error '462': the remote server machine does not exist or is unavailable

is there nay way to avoid this?

this is the code I am using:

Private Sub Command320_Click()
Dim LWordDoc As String
Dim oApp As Object
'Path to the word document
LWordDoc = "C:\Users\temp\Documents\Contractor DB\contrato.dotx"
If Dir(LWordDoc) = "" Then
MsgBox "Document not found."


Else
'Create an instance of MS Word
Set oApp = CreateObject(Class:="Word.Application")
oApp.Visible = True
'Open the Document
oApp.Documents.Open Filename:=LWordDoc
End If

Dim Name As Word.Range
Set Name = ActiveDocument.Bookmarks("name").Range
Name.Text = [Form]![Name]
Dim LastName As Word.Range
Set Name = ActiveDocument.Bookmarks("lastname").Range
Name.Text = [Form]![Last Name]
Dim Company As Word.Range
Set Name = ActiveDocument.Bookmarks("company").Range
Name.Text = [Form]![Company]
Dim Address As Word.Range
Set Name = ActiveDocument.Bookmarks("Address").Range
Name.Text = [Form]![FullAddress]
Dim Nombre As Word.Range
Set Name = ActiveDocument.Bookmarks("nombre").Range
Name.Text = [Form]![Name]
Dim APELLIDO As Word.Range
Set Name = ActiveDocument.Bookmarks("APELLIDO").Range
Name.Text = [Form]![Last Name]
Dim lastnamerate As Word.Range
Set Name = ActiveDocument.Bookmarks("lastnamerate").Range
Name.Text = [Form]![Last Name]
Dim firstnamerate As Word.Range
Set Name = ActiveDocument.Bookmarks("firstnamerate").Range
Name.Text = [Form]![Name]
Dim mnamerate As Word.Range
Set Name = ActiveDocument.Bookmarks("mnamerate").Range
Name.Text = [Form]![Middle Name]


End Sub


Thanks

[Gicu]

What do you do with the Word document after is populated? Do you leave it open (current code) or do you want to close it? You need to cleanup your code to close/reset your variables (i.e. SetName=Nothing, Set oApp=nothing, etc.).

Read the info in this link and it will probably get you on the right path: https://support.microsoft.com/en-ca/...-error-message

You might want to look at replacing your existing process with mail-merge which is easier to implement and more powerful than your current approach.

Cheers,
Vlad

[christ2000]

What do you do with the Word document after is populated? Do you leave it open (current code) or do you want to close it? You need to cleanup your code to close/reset your variables (i.e. SetName=Nothing, Set oApp=nothing, etc.).

Read the info in this link and it will probably get you on the right path: https://support.microsoft.com/en-ca/...-error-message

You might want to look at replacing your existing process with mail-merge which is easier to implement and more powerful than your current approach.

Cheers,
Vlad

thanks for answer, I just print the document and close, but error always appear

[Gicu]

read the info in the link; you need to close reset your variables once you are done with each instance.

Cheers,
Vlad

[christ2000]

The link help to fix my error, thanks for your help GICU