Can't Someone Help with a MailMerge Problem ????????

[Bud Zielinski]

Some of our users have converted to Office 2003. Our Access app is in
2000. they run it in Access 2003 with Access 2000 as the default file
format.

When doing a merge from the partial code segment below, we had rec'd
the :
"Opening this will run the following SQL Command" message. We were
able to suppress that message with registry changes and code contained
in MSKB 82765.

However we are still getting the :
Select data source dialog box which asks the user to select the
datasource.

How can we suppress that dialog box ?

Bud

Set objWord = GetObject(strFileLocation, "Word.Document")
'turn off alerts
objWord.Application.DisplayAlerts = wdAlertsNone
' Make Word visible.
objWord.Application.Visible = True
' Set the mail merge data source as the OLF Front End database.
objWord.MailMerge.OpenDataSource _
Name:="C:\my Documents\OurLady2000.mdb", _
LinkToSource:=True, _
Connection:=strConnect
objWord.MailMerge.DataSource.QueryString
' Execute the mail merge.
objWord.MailMerge.Execute

[Dean Covey]

Almost sounds like Access 2003 is running a security check that is not
really needed. Go to TOOLS>MACRO>SECURITY and set to LOW. See if that
works.

This feature is disabling potentially harmful macros and code.

--
Dean Covey
www.coveyaccounting.com

MS-Office Certified:
http://www.microsoft.com/learning/mc...st/default.asp

"Bud Zielinski" <zb**@cfl.rr.com> wrote in message
news:2e**************************@posting.google.c om...

Some of our users have converted to Office 2003. Our Access app is in
2000. they run it in Access 2003 with Access 2000 as the default file
format.

When doing a merge from the partial code segment below, we had rec'd
the :
"Opening this will run the following SQL Command" message. We were
able to suppress that message with registry changes and code contained
in MSKB 82765.

However we are still getting the :
Select data source dialog box which asks the user to select the
datasource.

How can we suppress that dialog box ?

Bud

Set objWord = GetObject(strFileLocation, "Word.Document")
'turn off alerts
objWord.Application.DisplayAlerts = wdAlertsNone
' Make Word visible.
objWord.Application.Visible = True
' Set the mail merge data source as the OLF Front End database.
objWord.MailMerge.OpenDataSource _
Name:="C:\my Documents\OurLady2000.mdb", _
LinkToSource:=True, _
Connection:=strConnect
objWord.MailMerge.DataSource.QueryString
' Execute the mail merge.
objWord.MailMerge.Execute

[Bud Zielinski]

tried setting the security settings in both Word and Access to low and
still get the same result.

Could really use some help on this

Bud

"Dean Covey" <nospam> wrote in message news:<3M********************@comcast.com>...

Almost sounds like Access 2003 is running a security check that is not
really needed. Go to TOOLS>MACRO>SECURITY and set to LOW. See if that
works.

This feature is disabling potentially harmful macros and code.

--
Dean Covey
www.coveyaccounting.com

MS-Office Certified:
http://www.microsoft.com/learning/mc...st/default.asp

"Bud Zielinski" <zb**@cfl.rr.com> wrote in message
news:2e**************************@posting.google.c om...

Some of our users have converted to Office 2003. Our Access app is in
2000. they run it in Access 2003 with Access 2000 as the default file
format.

When doing a merge from the partial code segment below, we had rec'd
the :
"Opening this will run the following SQL Command" message. We were
able to suppress that message with registry changes and code contained
in MSKB 82765.

However we are still getting the :
Select data source dialog box which asks the user to select the
datasource.

How can we suppress that dialog box ?

Bud

Set objWord = GetObject(strFileLocation, "Word.Document")
'turn off alerts
objWord.Application.DisplayAlerts = wdAlertsNone
' Make Word visible.
objWord.Application.Visible = True
' Set the mail merge data source as the OLF Front End database.
objWord.MailMerge.OpenDataSource _
Name:="C:\my Documents\OurLady2000.mdb", _
LinkToSource:=True, _
Connection:=strConnect
objWord.MailMerge.DataSource.QueryString
' Execute the mail merge.
objWord.MailMerge.Execute