Does anyone know how to access a query instead of a table whilst doing a mail merge from access in VB?? The current code I have is;
'Start a new main document for the mail merge.
Set oMainDoc = oApp.Documents.Add
With oMainDoc.MailMerge
'Setting Mail Merge typ eot directory, not letter. This will allow a list
'of records apposed to a new record on each page
.MainDocumentType = wdDirectory
'Set up the mail merge data source to MySQL - Dissertation using Access front end
sDBPath = "C:\Documents and Settings\Andy\My Documents\Disertation\VB Project\Database\ODBC.mdb"
.OpenDataSource Name:=sDBPath, _
SQLStatement:="SELECT * from [fullreport]"
'Add the field codes to the document to create the form letter.
With .Fields
'Setting the question fields
Set oSel = oApp.Selection
'Selecting the range of data from the table
'Formatting mail merge
oSel.TypeParagraph
oSel.TypeText "Question: "
.Add oSel.Range, "Question"
'Formatting mail merge
oSel.TypeParagraph
oSel.TypeParagraph
'Setting the question fields
oSel.TypeText "Answer: "
'Selecting the range of data from the table
.Add oSel.Range, "Answers"
'Formatting mail merge
oSel.TypeParagraph
End With
End With
With oMainDoc
'Perform the mail merge to a new document.
.MailMerge.Destination = wdSendToNewDocument
.MailMerge.Execute Pause:=False
End With
Our community of experts have been thoroughly vetted for their expertise and industry experience.
The Distinguished Expert awards are presented to the top veteran and rookie experts to earn the most points in the top 50 topics.