Predmet:XML i access 2003

---

U pitanju je export iz accessa u xml, ja koristim slijedeci kod:

Dim adTables As AdditionalData

Set adTables = Application.CreateAdditionalData
adTables.Add ("Parametar")

Application.ExportXML _
ObjectType:=acExportTable, _
DataSource:="Zahtjev", _
DataTarget:="c:\Tring\xml\stampatinefiskalnidokument.xml", _
AdditionalData:=adTables

I export odradi kako treba ali dobijem ovako (primejr):
<?xml version="1.0" encoding="UTF-8" ?>
- <dataroot xmlns:od="urn:schemas-microsoft-com:officedata" generated="2011-07-23T01:08:01">
- <Zahtjev>
<BrojZahtjeva>1</BrojZahtjeva>
<VrstaZahtjeva>1</VrstaZahtjeva>
</Zahtjev>
- <Parametar>
<Naziv>Text</Naziv>
<Vrijednost>Nefiskalni tekst</Vrijednost>
</Parametar>
</dataroot>

a trebalo bi da ovako izgleda:

<?xml version="1.0" encoding="utf-8" ?>
- <Zahtjev xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<BrojZahtjeva>400794</BrojZahtjeva>
<VrstaZahtjeva>6</VrstaZahtjeva>
- <Parametri>
- <Parametar>
<Naziv>Text</Naziv>
<Vrijednost>Ovo je primjer nefiskalnog teksta !</Vrijednost>
</Parametar>
</Parametri>
</Zahtjev>

Znači mjesto <dataroot> da pise zahtjev, unaprijed HVALA!