Need help to resolve - Error appears "Object Required"

[awaiskazmi]

When i use this code i get error "Object Required"


Private Sub Command12_Click()
Dim cn As ADODB.Connection
Set rs = New ADODB.Recordset
On Error GoTo errorhandler


Set cn = New ADODB.Connection


Set rs = New ADODB.Recordset
rs.ActiveConnection = CurrentProject.Connection
rs.Open ("select * from MySelectedObservations")


Dim objWord As Word.Application
Dim pathgetter As String
Dim doc As Word.Document
Dim WordHeaderFooter As HeaderFooter
Dim filepath As String
Set objWord = CreateObject("Word.Application")


pathgetter = DLookup("Word_Path_Field", "WORD_PATH_TBL", "Serial = 1")
filepath = "" & pathgetter & "\Observations " & Format(Now(), "dd-mm-yyyy") & ".docx"


With objWord
.Visible = True


Set doc = .Documents.Open(filepath)
End With


With objWord.Selection



.Font.Name = "Times New Roman"
.Font.Size = 10
.Font.TextColor = vbBlack
.Font.Bold = True
.Font.Underline = wdUnderlineSingle
'.Font.Bold = True


.TypeText Observation_Heading.Value
.TypeText ":"
.TypeParagraph


.Font.Name = "Times New Roman"
.Font.Size = 10
.Font.TextColor = vbBlack
.Font.Bold = False
.Font.Underline = wdUnderlineNone
.TypeText Observation_Details.Value
.TypeParagraph
.TypeParagraph

.Font.Name = "Times New Roman"
.Font.Size = 10
.Font.TextColor = vbBlack
.Font.Bold = True
.Font.Underline = wdUnderlineNone

.TypeText "Risk Implication: "

.Font.Name = "Times New Roman"
.Font.Size = 10
.Font.TextColor = vbBlack
.Font.Bold = False
.Font.Underline = wdUnderlineNone

.TypeText Risk_Implication.Value
.TypeParagraph

.Font.Name = "Times new Roman"
.Font.Size = 10
.Font.TextColor = vbBlack
.Font.Bold = True
.Font.Underline = wdUnderlineNone


.TypeText "Risk Category: "
.TypeParagraph

.Font.Name = "Times New Roman"
.Font.Size = 10
.Font.TextColor = vbBlack
.Font.Bold = False
.Font.Underline = wdUnderlineNone

.TypeText Risk_Category.Value
.TypeParagraph

.Font.Name = "Times New Roman"
.Font.Size = 10
.Font.TextColor = vbBlack
.Font.Bold = True
.Font.Underline = wdUnderlineNone


.TypeText "Branch Remarks: "
.TypeParagraph
.TypeParagraph


End With


doc.Save
doc.Activate





errorhandler:
MsgBox Err.Description


End Sub

[June7]

On what line? Disable the error handler for debugging - comment the On Error line.

Please post lengthy code between CODE tags to retain indentation and readability.

[awaiskazmi]

error comes at line

Set doc = .Documents.Open(filepath)

Runtime error 462 The remote server machine does not exist

[June7]

Perhaps the variable filepath is not getting the correct value. When the debugger stops on that line, what is the value? Does document in that path actually exist?

I tested code with static path/filename and it works. Here's the simple code I tested.

Dim objWord As Word.Application
Dim doc As Word.Document
Set objWord = CreateObject("Word.Application")
With objWord
    .Visible = True
    Set doc = .Documents.Open("C:\Users\June\Keyboard.docx")
End With

[awaiskazmi]

boss i did it ............ project successfully completed