issue on mergeing word document on secured ACCESS

[sealahu]

I try to merge word document from ACCESS. Every thing looks good. but because my access database have security set up. so everytime I start to run macro to start mail merge, It pop up a window to ask you userid and password.
I wonder is there any way I could hard code in the VBA code.

My function is:

Function MergeIt()

On Error GoTo ErrorHandler

Dim objWord As Word.Document
Set objWord = GetObject("D:\unfinished project\Investment Agency.doc", "Word.Document&quot
' Make Word visible.
objWord.Application.Visible = True
' Set the mail merge data source as the Northwind database.
objWord.MailMerge.OpenDataSource _
Name:="D:\unfinished project\TEST Secure Consent.mdb", _
LinkToSource:=False, _
Connection:="QUERY qryLabelQuery", _
SQLStatement:="Select * from `qryLabelQuery`"
' Execute the mail merge.
objWord.MailMerge.Execute

Set objWord = Nothing

ErrorHandler:
MsgBox "Error #" & Err.Number & " occurred. " & Err.Description, vbOKOnly, "Error"
Exit Function

End Function

I wonder in somewhere in objWord.MailMerge.OpenDataSource ,
I could hard code userid and password for that.

Any idea?

 

[vbajock]

http://msdn.microsoft.com/library/d...y/en-us/office97/html/output/f1/d4/s5abeb.asp

has some info. It needs to go in the Connection: parameter but I can't find any examples of the exact syntax.
Also more at:

http://msdn.microsoft.com/library/d...ry/en-us/vbawd10/html/womthopendatasource.asp

you might try

Connection:="QUERY qryLabelQuery", "PWD=somepassword","UID=someuser"

 

[hermanlaksko]

If you use a code i.e. a commandbutton in stead of the macro call, this problem should go away.

"Say NO to macroes" B-)

Herman