VBA - MailMerge error 2046

[Nicolae Fieraru]

Hi All,

I have a table in the database and a Word document saved on the hard disk. I
want to mailmerge the content of the table into the word document, all done
in vba.

Any examples?

I tried this:

DoCmd.SelectOnject acTable, "myTable", true
DoCmd.RunCommand acCmdWordMailMerge

and I get run-time error 2046, "The command or action 'WordMailMerge' isn't
available now.

Regards,
Nicolae

[Nicolae Fieraru]

Hi again,

I solved this problem. It should be like this:

Private Sub Command0_click()
Set db = CurrentDb
Set qdf = db.QueryDefs("qryTemp")
Dim strDocName as String

Set oApp = CreateObject("Word.Application")
Set tdf = Nothing
On Error resume next
Set tdf = CurrentDb.TableDefs("tblMailMerge")
db.TableDefs.Delete "tblMailMerge"
db.TableDefs.Refresh
On error go to 0

qdf.SQL = "Select Firstname, Surname into tblMailMerge from tblCustomers"
qdf.Execute dbFailOnError
strDocName = "C:\Docs\mydoc.doc"

oApp.Visible = true
oApp.Application.Documents.Open strDocName

Set oApp = Nothing
End Sub

There might be some bugs (regarding deleting the table tblMailMerge when it
doesn't exist), since I am still developing it, but I solved the initial
error

Regards,
Nicolae

[Pieter Linden]

> There might be some bugs (regarding deleting the table tblMailMerge when it

doesn't exist), since I am still developing it, but I solved the initial
error

So write a function to see if the table exists If not, exit the code.