[AccessD] XML

Just to create an xml string that you could drop into the XML DOM

Function createxml() As String

Dim strXLML As String
 strXML = ""

 strXML = strXML & "?xml version="1.0" encoding="UTF-8"?"
 strXML = strXML & "<mapping>"
 strXML = strXML & "<formProperties>"

etc.....
   createxml = strXML


Martin Reid wrote:

>Note I didnt prefix this OT as it isnt. Its part of Access 2007 Data Collection Via Email
> 
> 
>Given the following structure and data would it be easier to use VBA to create this or simply type up the XML in an editor. In fact would you use VBA at all? I could do this in 30 seconds in an XML editor. I havnt a clue where to start with the VBA side of this. In terms of Access this is dropped into a Memo field.
> 
> 
>
><mapping>
><formProperties>
>
><automateDataCollection>true</automateDataCollection>
>
><enableDataCollection>true</enableDataCollection>
>
><maxReplies>25</maxReplies>
><numReplies>0</numReplies>
><allowMultipleReplies>true</allowMultipleReplies>
><allowMultipleRows>true</allowMultipleRows>
><onlyUpdates>false</onlyUpdates>
><stopDateTime>0</stopDateTime>
><onlySentTo>true</onlySentTo>
></formProperties>
><tables>
><table name="table1" accessTable="Customers" collectionType="insert">
><iterate root="/AccessInfoPathForm/dcip:inlinedata/dcip:row">
><mapitem IsPrimaryKey="1" formNode="dcip:PrimaryKey" tableCell="ID"/>
><mapitem formNode="table1:field1" tableCell="Company" caption="Company" readOnly="false" required="false" type="x:string"/>
><mapitem formNode="table1:field2" tableCell="Last Name" caption="Last Name" readOnly="false" required="false" type="x:string"/>
><mapitem formNode="table1:field3" tableCell="First Name" caption="First Name" readOnly="false" required="false" type="x:string"/>
></iterate>
></table>
></tables>
></mapping>
>
> 
>
> 
>
> 
>
> 
>Martin WP Reid
>Training and Assessment Unit
>Riddle Hall
>Belfast
> 
>tel: 02890 974477
> 
> 
>  
>
>------------------------------------------------------------------------
>
>No virus found in this incoming message.
>Checked by AVG Free Edition.
>Version: 7.1.407 / Virus Database: 268.12.9/458 - Release Date: 27/09/2006
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada