Populating a word docs test based on a bookmark value using VBA in Access and SQL Ser

[Chris David]

Hi.

We have an application that populates a word documents bookmarks. We have table tbat holds the bookmark values and the VBA Code that adds the resulting values to the word document... Client has requested us to remove Template line of text if the bookmark below it is null. So we have a word template on the users computer that when the users clicks report , the vba code stored in sql server runs and populates the word documents bookmarks. But there words that need to be removed from the template if the bookmark returns nothing..See below

Template wording to be removed if bookmark is null

You have the following errors""""

[bookmark] which may be blank

The ""You have the folowwing errors" needs to be deleted of the originating template.

How can I do this usign VBA?

Thanks very much for your help

[RobDog888]

Welcome to the Forums.

Thread moved from classic vb6 forum to office development/vba forum

[westconn1]

can you post the code to populate the bookmarks and also a copy of the template?

[Chris David]

can you post the code to populate the bookmarks and also a copy of the template?

Okay thanks!




The call goes to a sql server table where the rows look like below
LOBID Template Bookmark Value FormatType VBACode
somenumber Qu InsuredAddress12 Forms("frmMain").subContacts.Form.cboInsuredStreetAddress1.Column(1) NULL NULL


The field VBACode has VBA CODE THAT RUNS AND POPULATES THE sorry caps the template with data.

Sorry I cannot figure outhow to add the bookmark template to this reply.

Thanks
Chris

[Chris David]

I am trying to insert this into a sql table and let the vba code run this but I cannot get this code to work. Can someone assist? This will run from a field in a table in sql server and populate the template if the list is greater than 0

insertText|IIf(Forms("Form_frmMain_subSubjAndEndor").lstSubjectivitySelected > 0, "This quote is subject to the following", NULL)

[Chris David]

This is failing.. Can someone assist ?

insertText|IIf(Forms("Form_frmMain_subSubjAndEndor").lstSubjectivitySelected > 0, "This quote is subject to the following", NULL)

[westconn1]

Sorry I cannot figure outhow to add the bookmark template to this reply.

click go advanced, then manage attachments
post the vba code within code tags

insertText|IIf(Forms("Form_frmMain_subSubjAndEndor").lstSubjectivitySelected > 0, "This quote is subject to the following", NULL)

i have no idea what this is supposed to do, which part is failing, you may have to break it into 2 lines using a variable, to test