Mailmerge WHERE filter

HealTheWord · #1 08-17-2021, 03:35 AM

Hello!
I have a mailmerge code that creates and saves automatically word files in a folder.
A part of the code is written below:

Quote:

Set MainDoc = ThisDocument
With MainDoc.MailMerge

.OpenDataSource Name:=DB_PATH, SQLStatement:="SELECT * FROM[TABLE NAME] WHERE [FIELD01] = 'VALUE OF INTEREST'"

totalRecord = .DataSource.RecordCount

For recordNumber = 1 To totalRecord

With .DataSource

.ActiveRecord = recordNumber
.FirstRecord = recordNumber
.LastRecord = recordNumber
End With

.Destination = wdSendToNewDocument
.Execute False

Set TargetDoc = ActiveDocument

TargetDoc.SaveAs2 DESTINAZIONE & .DataSource.DataFields("file_name").Value & ".docx", wdFormatDocumentDefault

TargetDoc.Close False

Set TargetDoc = Nothing

Next recordNumber

End With

Set MainDoc = Nothing

End Sub

It works enough well, but at the end of the macro execution code there is a debug error message because the function "totalRecord" reads the total number of the record exisisting in the table not the total number of record filtered by WHERE query.

How can i assign to a variable only the numbers of records existing after filtered them by a WHERE query? I read about a VBA "DCount" function but it's only works with ACCESS.

Thanks for your reply!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to insert an image to a word mailmerge document based on the value of a mailmerge field?	Jake93	Mail Merge	3	07-02-2019 05:38 PM
Filter Mail Merge based on a list of filter criteria	AusSteelMan	Mail Merge	2	05-09-2016 03:35 PM
Mailmerge to Email with a mailmerge attachment	Baldeagle	Mail Merge	8	02-11-2013 04:40 AM
Mailmerge to Email with a mailmerge attachment	Baldeagle	Mail Merge	13	05-29-2012 02:04 PM
filter	kwlickt	Excel	1	03-28-2011 11:15 AM