Mail Merge from Access to Word

[primagic]

Hi

I have the following code to merge a query into a word document. I can only merge all the records in the query. How would I amend the code to merge only the current record displayed on the form?

Also, when it merges into word, it brings up a confirm database box with various options like MS Access Databases via DDE, OLE DB Database Files and so on. Can I remove this?

Dim objWord As Word.Document
Set objWord = GetObject("E:\****\Clients\pwms\Master Due Diligence Template.doc", "Word.Document")

'Make Word Visible
objWord.Application.Visible = True

'Set Merge Data Source
objWord.MailMerge.OpenDataSource Name:="E:\***\Clients\pwms\dd.mdb", LinkToSource:=True, Connection:="QUERY qryDDDocumentMerge", SQLStatement:="SELECT*FROM qryDDDDocumentMerge"

'Execute the MailMerge
objWord.MailMerge.Destination = wdSendToNewDocument
objWord.MailMerge.Execute

 

[SoCalAccessPro]

Change SQLStatement:="SELECT*FROM qryDDDDocumentMerge"
to SQLStatement:="SELECT*FROM qryDDDDocumentMerge WHERE [Your Field] = YourCriteria"


Dunno about the warning. Have you tried docmd.setwarings = false ?

Tyrone Lumley
SoCalAccessPro

http://www.socalaccesspro.com

 

[primagic]

Can someone help me. I run the code below and it comes up with the message in word.

"Error has occured. The database has been placed in a state by user Admin on the machine....."

Any ideas how to overcome this?

Thanks

Dim objWord As Word.Document
Set objWord = GetObject("E:\****\Clients\pwms\Master Due Diligence Template.doc", "Word.Document")

'Make Word Visible
objWord.Application.Visible = True

'Set Merge Data Source
objWord.MailMerge.OpenDataSource Name:="E:\***\Clients\pwms\dd.mdb", LinkToSource:=True, Connection:="QUERY qryDDDocumentMerge", SQLStatement:="SELECT*FROM qryDDDDocumentMerge"

'Execute the MailMerge
objWord.MailMerge.Destination = wdSendToNewDocument
objWord.MailMerge.Execute

 

[ProgramError]

It is most likely the database is locked by a rouge user. Check if anyone is using the database and if not then delete the .ldb locking file (not the mdb).

Ian Mayor (UK)
Program Error
9 times out of 10 I know what I'm talking about. This must be my tenth reply.