troubleshooting Question

Mail Merge

Avatar of andyb7901
andyb7901 asked on
Visual Basic Classic
3 Comments1 Solution278 ViewsLast Modified:
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
ASKER CERTIFIED SOLUTION
GrahamSkan
Retired

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Top Expert 2012

The Distinguished Expert awards are presented to the top veteran and rookie experts to earn the most points in the top 50 topics.

Log in to continue reading
Become an EE member today7-DAY FREE TRIAL
Members can start a 7-Day Free trial then enjoy unlimited access to the platform for $9.99/mo
View membership options
Unlock 1 Answer and 3 Comments.
or
Learn why we charge membership fees
We get it - no one likes a content blocker. Take one extra minute and find out why we block content.
See how we're fighting big data
The Value of Experts Exchange in My Daily IT Life

Experts Exchange (EE) has become my company's go-to resource to get answers. I've used EE to make decisions, solve problems and even save customers. OutagesIO has been a challenging project and... Keep reading >>

Mike

Owner of Outages.IO
Phoenix, Arizona, United States
Member Since 2016
Join a full scale community that combines the best parts of other tools into one platform.
Unlock 1 Answer and 3 Comments.
View membership options
“All of life is about relationships, and EE has made a virtual community a real community. It lifts everyone's boat.”
William Peck

Member since 2004