WOW . I’ve been drawn away to another project temporarily so haven’t tried this yet, but this is so cool I’m at a loss as to how to thank you.

Hi dear all
Can any one put an Example for it , i try to do it but can not .
Ashraf

Could you give a little more information? What exactly is going wrong?

I ran some tests in Word & did not encounter this problem. Once the secured db was opened in code, I was able to loop thru recordset & “do stuff” with a Word doc & was not prompted for User ID or password. See attached text file for sample code, exported from Word module (too lengthy to post in its entirety). For this example, I used user-level security wizard to create a secured copy of Northwind.mdb and new workgroup file named “NWSecured.mdw.”, and created simple Word template to capture Employee data from Northwind “Employees” table. When OpenSecureNW() sub runs, 9 new Employee Data docs are created and saved in specified folder, with no errors or prompts.

As noted, I don’t work in Word VBA much; the attd code is simpified version of typical export sub used in Access, modified for Word. For example, replaced NZ function (AFAIK it’s Access-specific) with Format function to avoid possible errors if field value is Null. In Access I use Word Document object variables. I don’t know if ref to ActiveDocument is causing problem. Had no problem setting value for Custom document property (defined in template) for HireDate.

If you can open recordset and read data before problem occurs, then recommend store data in an array or other suitable data structure, close recordset, then “do stuff” in Word doc using the “captured” data. For example, see GetNWEmployeeData() sub in attached file. Sub uses an array of a user-defined Type “NWEmployee” based on analagous fields in NW Employees table to capture data:

Option Explicit

Type NWEmployee
ID As Long
LastName As String * 20
FirstName As String * 10
HireDate As Date
End Type

You can loop thru recordset, populate an array variable based on this structure, then close recordset & use “captured” data to do stuff. If you still can’t resolve issue, recommend post code that generates error.

HTH

Your code ran like a racehorse and I was really stumped! Then your comments about NZ (and your *brilliant* idea of using Format instead) got me to thinking …. I had wanted to use NZ, so I had set a reference to the Access Object Library. *NOT* a good idea. The first time it encountered the “NZ” function, it asked for a username and password as per my workstation’s .mdw file! I got rid of the reference and the NZ and its fixed.
A million-billion thanks..

Glad you solved problem. When first started exporting Access data to Word, I quickly discovered that it’s NOT a good idea to try to assign a Null value to a Word bookmark or FormField. So I normally use NZ function for any field other than primary key, since there’s no problem setting value of bookmark or FormField to a zero-length string. But since there’s no NZ in Word, in this case I replaced NZ with Format to return a zero-length string in event of null value in field. The Format function known to be versatile, but I think this is one very useful use for function that goes overlooked when working with recordsets in code….