Word merge from Access 2010

Question

Hi, I want to be able to set the mail merge data source and get 'Object variable or With block variable not set in procedure...' at this line
With wordDocument
.MailMerge.OpenDataSource _
Name:=gDbapp.Name, _
ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, _
connection:=connectionString, _
SQLStatement:="SELECT * FROM 'qWordMergeDataSource' WHERE wmdsPrintId='" & sessionID & "'", _
SQLStatement1:="", SubType:=wdMergeSubTypeAccess
I have recorded a macro in Word to do this and the code snippet above is taken from this.
Do you have any suggestions or recommendation to resolve this issue?
Many thanks,
Jonathan
Jonathan

Answer 1

Hi, sorry about the delay in responding.
I should mention that the template is typically only opened from Access.
When I use the Immediate window to examine the parts of the connection string and document properties, valid values are printed.
I'm wondering whether part of the issue is that the connection string is limited to 255 characters. I have been adjusting the connection string to test whether a different combination makes any difference. No joy.
connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"User ID=Admin;" & _
"Data Source=" & gDbapp.Name & ";" & _
"Mode=Read;" & _
"Jet OLEDB:Engine Type=6;" & _
"Jet OLEDB:Database Locking Mode=1;" & _
"Jet OLEDB:Global Partial Bulk Ops=2;" & _
"Jet OLEDB:Global Bulk Transactions=1;" ' & _
"Jet OLEDB:Support Complex Data=False;" & _
' "Extended Properties=" & Chr(34) & Chr(34) & ";" & _
' "Jet OLEDB:Create System Database=False;" & _
' "Jet OLEDB:SFP=False;" & _
' "Jet OLEDB:System database=" & Chr(34) & Chr(34) & ";" & _
' "Jet OLEDB:Registry Path=" & Chr(34) & Chr(34) & ";" & _
' "Jet OLEDB:New Database Password=" & Chr(34) & Chr(34) & ";" & _
' "Jet OLEDB:Encrypt Database=False;" & _
' "Jet OLEDB:Don't Copy Locale on Compact=False;" & _
' "Jet OLEDB:Compact Without Replica Repair=False;" & _
' "Jet OLEDB:Bypass UserInfo Validation=False"
Actually when changing the combination of connection string arguments I get the following error
I am wondering whether this is the inner error? That is, I am running the access application that this template is wanting to use as a data source and the database is running in exclusive mode. I have tried 0 and 1 for the setting of
Jet OLEDB:Database Locking Mode=1;
But changing the setting to 0 does not change the outcome. Could running is exclusive mode be the cause and is there a workaround?
Many thanks,
Jonathan
Jonathan