Word XP Mail Merge Problem

[Shannon Rotz]

I'm trying to automate Word XP from Access XP with the following function.
The sqlstmt argument is "Select * from [mytable] where [criteria]". I
understand that Microsoft Word mailmerge changed its default data source to
OLEDB, so I took a look in the KB on how to do this. According to Q285332,
my function should work - but it doesn't! I keep getting "Cannot open data
source" or the "Confirm data source" dialog box. I have tried this with and
without the Subtype argument.

Am I missing something?
Shannon

--------------------------------------------------------------------------

Public Function WordXP_letter(d oc_name As String, sqlstmt As String,
AutoMerge As Boolean, Optional strQuery As String)
'On Error GoTo err_word_letter

Dim mywrd As Word.Applicatio n
Dim mydoc As Word.Document

'Stop
Set mywrd = New Word.Applicatio n

Set mydoc = mywrd.Documents .Add(doc_name)
mywrd.Visible = True
With mydoc.MailMerge
.MainDocumentTy pe = wdFormLetters
.OpenDataSource NAME:=CurrentDb .NAME, SQLStatement:=s qlstmt,
subtype:=wdMerg eSubTypeWord200 0
.Destination = wdSendToNewDocu ment
End With
If AutoMerge = True Then
mydoc.MailMerge .Execute True
mydoc.Close wdDoNotSaveChan ges
End If
mywrd.Activate

'mywrd.Document s("Document1"). Close wdDoNotSaveChan ges
Set mydoc = Nothing
Set mywrd = Nothing
Exit Function

err_WordXP_lett er:
Select Case Err.Number
Case Is = 5151
MsgBox ("Cannot find the template '" & doc_name & "'. Please
re-add it to the folder and try again.")
Case Is = 4198
Resume Next
Case Else
MsgBox Err.Number & " - " & Err.Description
Exit Function
End Select

End Function

[Shannon Rotz]

Cancel this request guys - I finally got it working. However, then I ended
up with another problem, which I've posted separately ... sure could use
some help on that!
"Shannon Rotz" <sr***@shaw.c a> wrote in message
news:PSjcd.7587 26$gE.634372@pd 7tw3no...

I'm trying to automate Word XP from Access XP with the following function.
The sqlstmt argument is "Select * from [mytable] where [criteria]". I
understand that Microsoft Word mailmerge changed its default data source
to OLEDB, so I took a look in the KB on how to do this. According to
Q285332, my function should work - but it doesn't! I keep getting "Cannot
open data source" or the "Confirm data source" dialog box. I have tried
this with and without the Subtype argument.

Am I missing something?
Shannon

--------------------------------------------------------------------------

Public Function WordXP_letter(d oc_name As String, sqlstmt As String,
AutoMerge As Boolean, Optional strQuery As String)
'On Error GoTo err_word_letter

Dim mywrd As Word.Applicatio n
Dim mydoc As Word.Document

'Stop
Set mywrd = New Word.Applicatio n

Set mydoc = mywrd.Documents .Add(doc_name)
mywrd.Visible = True
With mydoc.MailMerge
.MainDocumentTy pe = wdFormLetters
.OpenDataSource NAME:=CurrentDb .NAME, SQLStatement:=s qlstmt,
subtype:=wdMerg eSubTypeWord200 0
.Destination = wdSendToNewDocu ment
End With
If AutoMerge = True Then
mydoc.MailMerge .Execute True
mydoc.Close wdDoNotSaveChan ges
End If
mywrd.Activate

'mywrd.Document s("Document1"). Close wdDoNotSaveChan ges
Set mydoc = Nothing
Set mywrd = Nothing
Exit Function

err_WordXP_lett er:
Select Case Err.Number
Case Is = 5151
MsgBox ("Cannot find the template '" & doc_name & "'. Please
re-add it to the folder and try again.")
Case Is = 4198
Resume Next
Case Else
MsgBox Err.Number & " - " & Err.Description
Exit Function
End Select

End Function