Hi everyone,
I have problem with open Word document from Access. Firs time everything is ok, and then on the middle of code it give me a message: Runtime Error 462, The remote server machine does not exist or is unavailable.
here it is:
Public Sub Command60_Click()
On Error GoTo Err_Command60_Click

Dim oApp As Object
Dim doc As Object
Dim lokacija As String


lokacija = Application.CurrentProject.Path & "\putni_list.dot"

Set oApp = CreateObject("Word.Application")
oApp.Visible = True

Set doc = oApp.Documents.Open(lokacija, , True)

With doc
...

Dim lavSQL As String
Dim lokSQL As String
Dim osoSQL As String

...

Dim recset As ADODB.Recordset
Set recset = New ADODB.Recordset
Dim conn As ADODB.Connection
Set conn = CurrentProject.Connection
Dim row_num As Integer
Dim col_num As Integer
Dim odobrenje As Integer
odobrenje = Me.ID.Value

recset.Open "Select ...", _
conn, adOpenKeyset, adLockOptimistic
recset.MoveLast
recset.MoveFirst
.Bookmarks("lokomotiva").Select
.Tables.Add Range:=Selection.Range, NumRows:=recset.RecordCount, NumColumns:=recset.Fields.Count <=broken cod onn second open, err 462
For row_num = 1 To recset.RecordCount
For col_num = 1 To recset.Fields.Count
.Tables(.Tables.Count).Cell(row_num, col_num).Select
Selection.TypeText recset.Fields(col_num - 1)
Next col_num
recset.MoveNext
Next row_num


.SaveAs FileName:=Application.CurrentProject.Path & " " & Me.vlak.Value & " " & Me.Datum.Value & ".doc"

End With

recset.Close
Set recset = Nothing
conn.Close
Set doc = Nothing
Set oApp = Nothing


Exit_Command60_Click:
Exit Sub
Err_Command60_Click:
MsgBox Err.Description
Resume Exit_Command60_Click

End Sub
Please help.

Please post all your VBA code.

I think you have left out parts that that are related to the issue.

From what you posted I I spotted one:

looks like it is missing the leading . for the With Doc


The may be other ssues. Hard to say for sure with seeing all the VBA code.

__________________
Boyd Trimmell aka HiTechCoach (.com)
Microsoft Access MVP Alumni 2010-2015

I was tries with ".Selection..." but it wasn't work. Insert message "Object doesn't support this property or method"
Here is all code:
Public Sub Command60_Click()
On Error GoTo Err_Command60_Click

Dim oApp As Object
Dim doc As Object
Dim lokacija As String


lokacija = Application.CurrentProject.Path & "\putni_list.dot"

Set oApp = CreateObject("Word.Application")
oApp.Visible = True

Set doc = oApp.Documents.Open(lokacija, , True)

With doc
.formfields("vlak").result = CStr(Me.vlak.Value)
.formfields("kolodvor1").result = CStr(Me.Combo23.Column(1))
.formfields("kolodvor2").result = CStr(Me.Combo23.Column(1))
.formfields("kolodvor3").result = CStr(Me.Kombinirani20.Column(1))
.formfields("dana").result = CStr(Me.Datum.Value)

Dim lavSQL As String
Dim lokSQL As String
Dim osoSQL As String

lokSQL = "SELECT t_dionice.dionica_pruge, tblVlak.lokomotiva, tblStatus.status, tblVlak.strojovodja, tblRadnoMjesto.radno_mjesto, tblVlak.relacija, tblVlak.osovine, tblVlak.bruto, tblVlak.duljina, tblVlak.SKM, tblVlak.postotak, ((tblVlak.SKM*tblVlak.postotak)/100) AS PKM, tblVlak.IDPutniList" _
& "FROM tblStatus INNER JOIN (tblRadnoMjesto INNER JOIN (t_dionice INNER JOIN (PutniList INNER JOIN tblVlak ON PutniList.ID = tblVlak.IDPutniList) ON t_dionice.ID = tblVlak.relacija) ON tblRadnoMjesto.ID = tblVlak.IDRadnoMjesto) ON tblStatus.ID = tblVlak.IDStatus;"

osoSQL = "SELECT t_dionice.dionica_pruge, tblOsoblje.Ime, tblDomicil.domicil, tblRadnoMjesto.radno_mjesto, tblOsoblje.IDPutniList" _
& "FROM t_dionice INNER JOIN (tblRadnoMjesto INNER JOIN (tblDomicil INNER JOIN tblOsoblje ON tblDomicil.ID = tblOsoblje.domicil) ON tblRadnoMjesto.ID = tblOsoblje.radno_mjesto) ON t_dionice.ID = tblOsoblje.relacija;"


lavSQL = "SELECT t_pruge.[šifra pruge], t_dionice.dionica_pruge, tbl_lagane_voznje.od_km & " + " & tbl_lagane_voznje.od_m AS Expr1, tbl_lagane_voznje.do_km & " + " & tbl_lagane_voznje.do_m AS Expr2, tbl_lagane_voznje.vmax, tbl_lagane_voznje.datum_kraja, tbl_lagane_voznje.datum_pocetka" _
& "FROM (t_dionice INNER JOIN tbl_lagane_voznje ON t_dionice.ID = tbl_lagane_voznje.dionica) INNER JOIN t_pruge ON tbl_lagane_voznje.pruga = t_pruge.ID" _
& "WHERE (((tbl_lagane_voznje.datum_kraja) Is Null))" _
& "ORDER BY tbl_lagane_voznje.od_km;"

Dim recset As ADODB.Recordset
Set recset = New ADODB.Recordset
Dim conn As ADODB.Connection
Set conn = CurrentProject.Connection
Dim row_num As Integer
Dim col_num As Integer
Dim odobrenje As Integer
odobrenje = Me.ID.Value

recset.Open "Select dionica_pruge, lokomotiva, status, strojovodja, radno_mjesto From lokSQL Where IDPutniList= " + CStr(Me.ID.Value), _
conn, adOpenKeyset, adLockOptimistic
recset.MoveLast
recset.MoveFirst
.Bookmarks("lokomotiva").Select
.Tables.Add Range:=Selection.Range, NumRows:=recset.RecordCount, NumColumns:=recset.Fields.Count
For row_num = 1 To recset.RecordCount
For col_num = 1 To recset.Fields.Count
.Tables(.Tables.Count).Cell(row_num, col_num).Select
Selection.TypeText recset.Fields(col_num - 1)
Next col_num
recset.MoveNext
Next row_num
recset.Close

recset.Open "Select dionica_pruge, Ime, domicil, radno_mjesto From osoSQL Where IDPutniList= " + CStr(Me.ID.Value), _
conn, adOpenKeyset, adLockOptimistic
If recset.RecordCount = 0 Then
.formfields("osoblje").result = CStr("-")
Else
recset.MoveLast
recset.MoveFirst
.Bookmarks("osoblje").Select
.Tables.Add Range:=Selection.Range, NumRows:=recset.RecordCount, NumColumns:=recset.Fields.Count
For row_num = 1 To recset.RecordCount
For col_num = 1 To recset.Fields.Count
.Tables(.Tables.Count).Cell(row_num, col_num).Select
Selection.TypeText recset.Fields(col_num - 1)
Next col_num
recset.MoveNext
Next row_num
End If
recset.Close


recset.Open "Select dionica_pruge, Expr1, Expr2, vmax From DS_SM", _
conn, adOpenKeyset, adLockOptimistic

If recset.RecordCount = 0 Then
.formfields("tablica").result = CStr("-")
Else
recset.MoveLast
recset.MoveFirst
.Bookmarks("tablica").Select
.Tables.Add Range:=Selection.Range, NumRows:=recset.RecordCount, NumColumns:=recset.Fields.Count
For row_num = 1 To recset.RecordCount
For col_num = 1 To recset.Fields.Count
.Tables(.Tables.Count).Cell(row_num, col_num).Select
Selection.TypeText recset.Fields(col_num - 1)
Next col_num
recset.MoveNext
Next row_num
End If
.SaveAs FileName:=Application.CurrentProject.Path & " " & Me.vlak.Value & " " & Me.Datum.Value & ".doc"

End With
recset.Close
Set recset = Nothing
Set doc = Nothing
oApp.Quit



Exit_Command60_Click:
Exit Sub
Err_Command60_Click:
MsgBox Err.Description
Resume Exit_Command60_Click

End Sub

Before insert table my code work without errors, but after I find this code in book and prepare for my needs I have problem.
Thanks for your help, I'm advance beginner in access