[AccessD] ExportXML CreateAdditional Data Named Argument Error

_______________________________________________________________________________________

Note: This e-mail is subject to the disclaimer contained at the bottom of this message.
_______________________________________________________________________________________



I might be off target here, but MZ Tools will generate an XML export.  Would that work for you?

Regards
Darryl.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bud Goss
Sent: Thursday, 15 July 2010 2:41 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] ExportXML CreateAdditional Data Named Argument Error

I am attempting to generate a fairly complex .xml file with Access 2003
 
The code listed below is from a Microsoft support article as an example of the ExportXLM method AdditionalData Object for use with the Northwind database
 
Problem is that it will not compile - gives a Named Argument Not Found on line:
objAD(Item:="Order Details").Add "Order Details Details"

( Probably an typo error on above line
objAD(Item:="Order Details").Add "Order  Details" gives same error)
 
This same question/problem was posted to MSDN a while back but - I could find any posted.answer.
 
Can anyone tell me how to fix this error?
 
 
 Private Sub ExportRelTables()
   ' Purpose: Exports the Orders table as well as
   ' a number of related database to an XML file.
   ' XSD and XSL files are also created.
   Dim objAD As AdditionalData
   ' Create the AdditionalData object.
   Set objAD = Application.CreateAdditionalData
   ' Add the related tables to the object.
   With objAD
      .Add "Order Details"
      objAD(Item:="Order Details").Add "Order Details Details"
      .Add "Customers"
      .Add "Shippers"
      .Add "Employees"
      .Add "Products"
      objAD(Item:="Products").Add "Product Details"
      objAD(Item:="Products")(Item:="Product Details").Add _
         "Product Details Details"
      .Add "Suppliers"
      .Add "Categories"
   End With
   Application.ExportXML acExportTable, "Orders", _
       "C:\Orders.xml", "C:\OrdersSchema.xsd", _
       "C:\OrdersStyle.xsl", AdditionalData:=objAD
End Sub
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
_______________________________________________________________________________________

The information transmitted in this message and its attachments (if any) is intended 
only for the person or entity to which it is addressed.
The message may contain confidential and/or privileged material. Any review, 
retransmission, dissemination or other use of, or taking of any action in reliance 
upon this information, by persons or entities other than the intended recipient is 
prohibited.

If you have received this in error, please contact the sender and delete this e-mail 
and associated material from any computer.

The intended recipient of this e-mail may only use, reproduce, disclose or distribute 
the information contained in this e-mail and any attached files, with the permission 
of the sender.

This message has been scanned for viruses.
_______________________________________________________________________________________