I am doing a mail merge to a Word template from an Access query. It is a
onClick event on a button. The code is as below.
It opens the Word template and then comes up with Data Link Properties
dialog. When I click OK, I get a message as below.
"The database has been placed in a state by user 'Admin' on machine 'MY'
that prevents it from being opened or locked."
When I click OK, it comes up with a Login dialog for MS Access database. If
I click OK, it will post the above message again. If I click Cancel, it goes
ahead with the merge.

Does anyone know how can I get rid of these messages? Thanks a million.

Dim strDir As String
Dim objWord As New Word.Application
Dim objDoc As Word.Document
strDir = getMDBPath
objWord.Application.Visible = True
Set objDoc = objWord.Documents.Open(strDocName)
objWord.Application.Visible = True

objDoc.MailMerge.OpenDataSource _
Name:=getThisDBPath(), _
LinkToSource:=True, AddToRecentFiles:=False, _
Connection:="QUERY qry_MailMerge_1", _
SQLStatement:="SELECT * FROM [qry_MailMerge_1]"
objDoc.MailMerge.Destination = wdSendToNewDocument
objDoc.MailMerge.Execute

objWord.Application.Documents(1).SaveAs (strMergedDocName & ".doc")
objWord.Application.Documents(2).Close wdDoNotSaveChanges
objWord.Application.Documents(1).Close wdSaveChanges
objWord.Quit
Set objWord = Nothing
Set objDoc = Nothing

Fixed by saving the MDB file and doing a compact and repair.

"omsoft" wrote:

> I am doing a mail merge to a Word template from an Access query. It is a
> onClick event on a button. The code is as below.
> It opens the Word template and then comes up with Data Link Properties
> dialog. When I click OK, I get a message as below.
> "The database has been placed in a state by user 'Admin' on machine 'MY'
> that prevents it from being opened or locked."
> When I click OK, it comes up with a Login dialog for MS Access database. If
> I click OK, it will post the above message again. If I click Cancel, it goes
> ahead with the merge.
>
> Does anyone know how can I get rid of these messages? Thanks a million.
>
> Dim strDir As String
> Dim objWord As New Word.Application
> Dim objDoc As Word.Document
> strDir = getMDBPath
> objWord.Application.Visible = True
> Set objDoc = objWord.Documents.Open(strDocName)
> objWord.Application.Visible = True
>
> objDoc.MailMerge.OpenDataSource _
> Name:=getThisDBPath(), _
> LinkToSource:=True, AddToRecentFiles:=False, _
> Connection:="QUERY qry_MailMerge_1", _
> SQLStatement:="SELECT * FROM [qry_MailMerge_1]"
> objDoc.MailMerge.Destination = wdSendToNewDocument
> objDoc.MailMerge.Execute
>
> objWord.Application.Documents(1).SaveAs (strMergedDocName & ".doc")
> objWord.Application.Documents(2).Close wdDoNotSaveChanges
> objWord.Application.Documents(1).Close wdSaveChanges
> objWord.Quit
> Set objWord = Nothing
> Set objDoc = Nothing
>