access to xml ved brug af XSD

Det kan man ikke

XSD er til validering - og man kan sikkert godt validere en xml fil op mod en xsd fil i vba - resultat er en indikation på om xml filen overholder formatet eller ej.

Jeg har brugt denne løsning i stedet for

Dim stDocName As String
Dim strFilter As String
Dim strSaveFileName As String

strFilter = ahtAddFilterItem(strFilter, "XML (*.xml)", "*.xml")
strSaveFileName = ahtCommonFileOpenSave( _
                                    OpenFile:=False, _
                                    Filter:=strFilter, _
                Flags:=ahtOFN_OVERWRITEPROMPT Or ahtOFN_READONLY, _
                    FileName:="lars")



Dim rst As DAO.Recordset
Open strSaveFileName For Output As #1
Set rst = CurrentDb.OpenRecordset("SELECT * FROM tabel1", dbOpenSnapshot)
Print #1, "<statics>"

rst.MoveFirst


Do While Not rst.EOF

Print #1, "<Contact>"
Print #1, "<fornavn>" & rst!fornavn & "</fornavn>"
Print #1, "<efternavn>" & rst!efternavn & "</efternavn>"
Print #1, "<adresse>" & rst!adresse & "</adresse>"
Print #1, "</Contact>"
  rst.MoveNext
Loop
Print #1, "</statics>"
rst.Close
Set rst = Nothing
Close #1