updatere xml fil fra MS Access

"...I stedet for at exportere hele db'en til xml for hver updatering.."

Can you explain what your using the XML for, Access db's arent normally in XML format and it wouldnt be necessary to export to XML to update.

Mor info please

I read some web pages (http://www.thescarms.com/xml/domtutorial.aspx) where it states that its possible to update a xml document.

But how to use that with ms access, does not seem to be so straight forward.

I have a friend who is making a flash site and will need this data in a xml format, which is why I woul like to find a way to make some kind of udate to the xml per update in the database.

Any ideas ?

Where does Access come into the picture? Are you saying that if an update occurs in the database then you also want to update the XML?

If the database is on a web site then I dont think you can run the code (VBA) in your Access dB..

The update comes from a form inside the ms access db, which is why I thought the vba code would be the best solution.

It has to be an automatic process as the user should not need to do anything in updating the xml file.

I'm trying to get a complete picture of what your trying to do.

So the Access db is NOT on a web site?
In the dB you have one or more tables and one or more forms?
You update one of the tables through one of the forms?
After the update you want to update an XML document?
Does the XML document contain the same data as the table you just updated and you want to update the same record?

You can import/export XML to/from Access, so you coul djust update in the tabel and then export it.

sorry that I am not that clear :

ms access is on a file server together with the xml file containing the same structure and data as in the ms access db.

The plan is :
user open ms access which opens a form where the user can update the users table.
the user makes an update and click a button to save the changes to the db.
In the same script when the db gets updated, it should also make the same changes in the xml document.

I tested with the entire export to xml, but it takes too long (this is just a test example the real db is about 8 mb). The ms access is on a network drive and the users are on different physical locations. (The network might just be too slow, but I am sure they will not upgrade their network  ;)  )

Hope this clears it up a bit

If exporting to xml takes too long then I cant see that reading/writing the XML file is going to be faster.

I dont work so much with XML bu the link you gave above seems streight forward enough.

Have you tried making any code to open the file and loop through the records?

This is probably where I hit the wall, I have tried to loop but being able to update a  an entry that I want seems harder than such.

I can update the first entry in the xml file, but other onces seems harder than such.

Here is the coding I have now, there is a lot of garbage code as I am not sure how to do this:

Sub SelectSingleNode()

Dim xmlDoc As MSXML2.DOMDocument60
Dim xmlSingleNode As MSXML2.IXMLDOMNode
Dim xmlNodeListKey As MSXML2.IXMLDOMNodeList
Dim myNodeKey As MSXML2.IXMLDOMNode
Dim ElemList As IXMLDOMNodeList
Dim ElemListName As IXMLDOMNodeList
Dim root As IXMLDOMElement
Dim child As IXMLDOMNode

Dim etst As MSXML2.IXMLDOMNode
Set xmlDoc = New MSXML2.DOMDocument60
Set root = xmlDoc.documentElement
Dim i

xmlDoc.async = False


xmlDoc.Load ("C:\Users\Torben Henriksen\Documents\MS Access\Users.xml")

Set xmlSingleNode = xmlDoc.SelectSingleNode("//Full_x0020_Name")
Set xmlNodeListKey = xmlDoc.selectNodes("//ID")
Set ElemList = xmlDoc.getElementsByTagName("ID")
Set ElemListName = xmlDoc.getElementsByTagName("Full_x0020_Name")
For Each myNodeKey In xmlNodeListKey

For i = 0 To (ElemList.length - 1)

If ElemList.Item(i).Text = "2" Then

Set xmlSingleNode = xmlDoc.SelectSingleNode("//Full_x0020_Name")

Debug.Print ElemList.Item(i).XML
Debug.Print ElemListName.Item(i).XML

' The singleNode only give the first in the list
' xmlSingleNode.Text = "Torben" & i

'xmlDoc.Save "C:\Users\Torben Henriksen\Documents\MS Access\Users.xml"

End If
Next
Next myNodeKey

Set xmlDoc = Nothing

End Sub

If you can send me your dB and an example of the XML then maybe I can get it to work.
ekspertenATsanthell.dk
AT = @

Cheers Terry, I figured it out

Thanks and enjoy Christmas next week

Merry Christmas and a good New Year to you too.