MS Access VBA, error '91:Object variable or with block variable not set'

[akaess]

Hey everybody I am currently trying to merger data from a form in MS access but it keeps giving me the error 91: Object variable or with block variable not set. could somebody please look at the code below and please guide me to a solution. Thank you!

'****************************************************************
'MailMerge method opens specified Word document and merges fields
'specified within the document with the Access fields located in
'the specified query FRM00034
'****************************************************************
Public Sub MailMerge034()
Dim strPath As String
Dim strDataSource As String
 
Dim doc As Word.Document
Dim wrdApp As Word.Application
 
On Error GoTo HandleErrors
' can't use CurrentProject.Path in Access 97
strPath = GetCurrentDBPath
' Delete the rtf file, if it already exists.
strDataSource = strPath & "MAILMERGEQUERIES\" & conQuery034 & rel_Base_Mask & ".doc"
Kill strDataSource
 
' Export the data to rtf format
DoCmd.OutputTo acOutputQuery, conQuery034, _
acFormatRTF, strDataSource, False
 
' Start Word using mailmerge template
Set wrdApp = New Word.Application
Set doc = wrdApp.Documents.Add(strPath & conTemplate034)
 
' Do the mail merge to a new document.
With doc.MailMerge
.OpenDataSource Name:=strDataSource
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
If .State = wdMainAndDataSource Then .Execute
End With
 
' Display the mail merge document
wrdApp.Visible = True
 
ExitHere:
Set doc = Nothing
Set wrdApp = Nothing
Exit Sub
 
HandleErrors:
Select Case Err.Number
Case 5922
MsgBox "The Data Requested Does Not Exist in Database"
Resume ExitHere
Case 2501
Resume ExitHere
Case 70
MsgBox "Close Previously Generated Documents"
Resume ExitHere
Case 53 ' File not found
Resume Next
Case Else
MsgBox Err.Number & ": " & Err.Description
Resume ExitHere
End Select
Resume
End Sub

[Stewart Ross]

Hi. I have added code tags around your code to make it easier to read. Could you advise on which of the lines listed your object not set error occurs? It would assist greatly with reviewing what might be going wrong.

Thanks

Stewart

[ADezii]

I'm not 100% sure on this one, but you may have to provide a fully qualified Object Reference in your inner With block, since you are referencing a member of an Object in an outer With block (eliminate the Inner With...End With). Try a simple code substitution, if I'm wrong then there is no harm done. Replace Lines 28 to 38 with:

' Do the mail merge to a new document.
With doc.MailMerge
  .OpenDataSource Name:=strDataSource
  .Destination = wdSendToNewDocument
  .SuppressBlankLines = True
  .DataSource.FirstRecord = wdDefaultFirstRecord
  .DataSource.LastRecord = wdDefaultLastRecord
     If .State = wdMainAndDataSource Then .Execute
End With