Mail Merge from Access

[vveluru]

I have the following code for mail merge..It seems to be working, but even though I have the sql in the sql statement, it is still popping up a few things, which I need to avoid..
The first one is Microsoft Word Document with Yes/No buttons:

Opening this document will run the following SQL Command:
Select * from '00005067'
Data from your database will be placed in the document. Do you want to continue?

The next one is a window with a list of tables from the database to select from, even though I am already defining the sql statement in the code below..

Is it possible to avoid these two prompts?
Any help from you will be greatly appreciated. Thank you for your help in advance.

Function MergeIt(fsHistoryId As String, fsTemplateId As String)
   Dim objWord As Word.Document
   Dim lsSql As String
   lsSql = "Select * from " & [fsTemplateId] & " where historyId = " & fsHistoryId
 
   Set objWord = GetObject("H:\RDA\ITS\MailMerge\" & fsTemplateId & ".doc", "Word.Document")
   ' Make Word visible.
   objWord.Application.Visible = True
   ' Set the mail merge data source as the Northwind database.
   objWord.MailMerge.OpenDataSource _
      Name:= CurrentDb.name, _
      LinkToSource:=True, _
      Connection:="TABLE " & [fsTemplateId], _
      SQLStatement:=lsSql
 
 
   ' Execute the mail merge.
   objWord.MailMerge.Execute
End Function
 
 
 

[zaidlig]

Did you try:

ObjWord.Application.DisplayAlerts = wdAlertsNone

[vveluru]

I have tried that and it still doesnt seem to work..I even tried this..

DoCmd.SetWarnings False

It still doesnt work...

[zaidlig]

The Docmd would only set the warnings on the Access app. The warning you are seeing are from the Word app. That's why I included the ObjWord before the command.

Have your included the Word Reference in your Access code page? I think it may help to figure out what commands Word will respond to stop the warnings.

[vveluru]

I noticed that it is triggering that message box right after executing this command...
Set objWord = GetObject("H:\RDA\ITS\MailMerge\" & fsTemplateId & ".doc", "Word.Document")

objWord.Application.DisplayAlerts = wdAlertsNone is after this line and hence ignoring that...

[vveluru]

The Docmd would only set the warnings on the Access app. The warning you are seeing are from the Word app. That's why I included the ObjWord before the command.

Have your included the Word Reference in your Access code page? I think it may help to figure out what commands Word will respond to stop the warnings.

by the way, I am referencing the Microsoft word 11.0 object library